花子 ★と花代 ★の秘密の花園４

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 14:29:16

／￣￣￣￣￣＼
|　・　Ｕ　　　　　　|
| |ι　　　　　　　|つ
Ｕ｜｜￣￣｜｜
　　￣　　　　　￣
２ちゃんねるの過去ログを黙々と食べる花子と(花代)が愚痴をこぼすスレッドです(^_^;)花子ファミリー誕生(^_^;)

プロジェクトぞうさん
http://www.maido3.com/server/zousan/

花子と花代の基礎体温(^_^;)
http://mickey.mirv.net/2ch/hanakotmp.html
花子転送量グラフ
http://traffic.maido3.com/jfj1/McNh/nXAg/
花代転送量グラフ
http://traffic.maido3.com/eSmh/lgJ7/XcOp/
花子負荷グラフ
http://ch2.ath.cx/memories2.html
花子ファミリー
http://love.45.kg/ililili/graph-hanakos.html

前スレ
花子 ★の秘密の花園３
http://qb5.2ch.net/test/read.cgi/operate/1223528489/
花子 ★の秘密の花園２
http://qb5.2ch.net/test/read.cgi/operate/1221978255/
花子 ★の秘密の花園
http://qb5.2ch.net/test/read.cgi/operate/1211962556/

AA(^_^;)
http://www.maido3.com/server/aa/

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 14:34:07

644 ：ピロリ [sage] ：2008/10/19(日) 23:56:47 ID:BwRV+0i+0
過去ログはシンプルな形にするので
実験的に一アカウントだけ test/.htaccess をうまくいっているやつにかえて
うまく行くことを確認するだけでいいですー

収容が終わってから長い本番が始まるということで
1) read.cgi offlaw.cgiだけのシンプルな形にする
2) read.cgi .htaccess 等は /md/tmp に一個だけ置き各アカウントはシンボリックリンク
3) read.cgiの広告はどーせ更新されないので特別仕様へ
4) F35等お掃除プログラムの大改造、アカウントをまたいでサーバ内で一個起動
5) kakolog.html の整備(これは何年かかるか・・・)

等々

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 14:35:35

796 ：ピロリ [sage] ：2008/10/22(水) 18:29:46 ID:ruqJJ23l0
>>795

りょうかいー

【具体策】
サーバ毎に二個のスクリプトを置こう。

A) サーバ起動毎時に一回動くスクリプト(サーバ内の各種設定)
B) 定期的に外から呼ばれるお掃除プログラム

どちらもアカウント横断的に作業するので十分注意　←　こことても重要
既存のアカウント内に作ると経験上移転とかでの制約があるので
独自のアカウントを振って別とドメインにしよう。ドメイン自体は公開情報。
(なんでもいいです hana301.ula.ccとか)
A,Bのスクリプトは作り易い(テストし易い)ようにpublic_html下に置こう。
ただしバシバシ叩かれたらいやだから場所や名前は内緒。
public_html/index.html自体かそれからのリンクで動いているかどうかが
解るようにしよう(つまり動的なコンテンツ)

まずはこの仕様でスクリプト(Perl? 他でもいいけど、)を作る。
そして動かす(中身は起動されたら所定の位置にログを書き出すというだけ)。

二日もあれば出来るかな?
スクリプトはみんながここで教えると、

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 14:36:49

　　　　　 ∧＿∧ 　 ________　　／￣￣￣￣￣￣￣￣￣
　　　　　（　´Д｀)/￣/￣/　＜　○○！　○○○○○○○○○○！
　　　　　（二二二つ /　と）　　＼＿＿＿＿＿＿＿＿＿
　　　　　　| 　　　/　 / 　/
　＿＿　 | 　　￣|￣￣
　＼　￣￣￣￣￣￣￣＼
　　||＼　　　　　　　　　　　＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　　 .||　　　　　　　　 ||

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 14:38:29

つことで>2の(4が>3で進行中(^_^;)

命題
・定期的に外から呼ばれるお掃除プログラム
・アカウント横断的に作業する
・ユーザーアカウントの１つに設置されている

のアイデア絶賛募集中(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:12:19

#!/usr/bin/perl -w

print "Content-type: text/plain\n\n";
print "<a href=\"mirv_suteki.log\">マァヴさんって素敵！</a>";
@wdays = ( "日", "月", "火", "水", "木", "金", "土", "日" );
($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",$year + 1900, $mon + 1, $mday, $wdays[$wday],$hour, $min, $sec);
if ( -e "mirv_suteki.log" ) {
open(OUT, ">>mirv_suteki.log");
}else {
open(OUT, ">mirv_suteki.log");
}
close(OUT);

これで(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 15:12:28

1000取ってしまた；

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 15:14:16

ファイル存在確認いらないんじゃね？いるんだっけ？

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:15:00

なんかうまく追記されてない(^_^;)
http://hana301.ula.cc/c.cgi

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 15:20:06

>>9
print OUT "mirv!<>$date\n";

がないんじゃない？

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 15:20:19

DOSだと>>でファイルなければ作ってたけどうにも一緒じゃないの？

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:22:31

>10
!!!!!!!!!!!!!!!!(^_^;)orz

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:23:50

#!/usr/bin/perl -w

print "Content-type: text/plain\n\n";
print "<a href=\"mirv_suteki.log\">マァヴさんって素敵！</a>";
@wdays = ( "日", "月", "火", "水", "木", "金", "土", "日" );
($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",$year + 1900, $mon + 1, $mday, $wdays[$wday],$hour, $min, $sec);

if ( -e "mirv_suteki.log" ) {
print "mirv_suteki.logは存在します。\n" ;
open(OUT, ">>mirv_suteki.log");
}else {
print "mirv_suteki.logは存在しません。\n" ;
open(OUT, ">mirv_suteki.log");
}
print OUT "mirv!<>$date\n";
close(OUT);

うまく動いたー(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:25:37

ということで、ログを書きだすことはできるようになったわけだ(^_^;)ぶふう
このログを/home/ch2tmp7/public_html/に書き出せれば勝ち

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 15:26:03

そだよねたしか。
ファイル無ければ作成、あれば追記なはずー

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:28:40

で、アカウント横断の計略としては(^_^;)
a) root権限で実行する
b) Suexecを使う
c) なんか他の方法考える

で、b)はとりあえず行き詰った(^_^;)のでa)を試そう
つまり・・・・root権限で実行してしまうのだった。
うまく書けるかな？

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:29:23

>15
あ(^_^;)
open(OUT, ">>mirv_suteki.log");

ってやると、ファイルがない時はファイル作って書きこむんだ(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 15:30:36

perl5なら
If MODE is `'>>'', the file is opened for appending, again being created if necessary.

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 15:32:19

>>11
頑張って口説きました
↓
脱がせました
↓
服を着せました

なんて紳士的ｗ

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 15:34:44

>>10だった;

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:35:53

#!/usr/bin/perl -w

print "Content-type: text/plain\n\n";
print "<a href=\"mirv_suteki.log\">マァヴさんって素敵！</a>";
@wdays = ( "日", "月", "火", "水", "木", "金", "土", "日" );
($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",$year + 1900, $mon + 1, $mday, $wdays[$wday],$hour, $min, $sec);

open(OUT, ">>mirv_suteki.log");
print OUT "mirv!<>$date\n";
close(OUT);

これで動いた(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:37:23

さて、こういうものを作ってみた(^_^;)

#!/usr/bin/perl -w

print "Content-type: text/plain\n\n";
print "<a href=\"http://tmp7.2ch.net/mirv_suteki.log\">http://tmp7.2ch.net/mirv_suteki.log<;/a>";
@wdays = ( "日", "月", "火", "水", "木", "金", "土", "日" );
($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(time);
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d",$year + 1900, $mon + 1, $mday, $wdays[$wday],$hour, $min, $sec);

open(OUT, ">>/home/ch2tmp7/public_html/mirv_suteki.log");
print OUT "mirv!<>$date\n";
close(OUT);

これをulahana301/public_html/においといて
root権限で動かしてみる(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:40:21

http://tmp7.2ch.net/mirv_suteki.log

できたできた(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:41:45

つことで・・・・(^_^;)前スレの

p1 外から呼ばれたら、自分のアカウントに起動トリガになるファイルを一個生成する（ulahana301の実行ファイル）
p2 root権限で毎分ごとに起動トリガファイルの有無を調べる(rootの実行ファイル)
　もし起動トリガファイルがあれば
　　起動トリガファイルを削除して、p3を実行する
　さもなくば終了する
p3 root権限でp2によって起動する、お掃除プログラム本体(rootの実行ファイル)

p3が完成したと言っても過言ではない(^_^;)はず

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:42:25

でもってp1はa.cgiでええやん(^_^;)と
あとはp2を作って定期的に動かす・・・

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:44:48

つことでp2を作ってみる(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 15:44:53

>>23
時間は現地時間でいいのかな？

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 15:45:59

>>25
定期的に動かすのは前スレで出てたdaemontoolsのsvcなんちゃらだぬ

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:46:11

p2がやること
1) トリガファイルがあるかどうかしらべる
2) トリガファイルがあれば
　　　トリガファイルを削除する
　　　p3を起動する
3) 終わり

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 15:46:53

>28
ほうほう(^_^;)そこでdaemontoolsが出てくるのか！
まずは手動で動くものを作るー

28 · 2008/10/24(金) 16:04:43

ごめ、ちょっと違うかも
daemontools
ttp://www.emaillab.org/djb/tools/daemontools/top.html
superviseは指定したプログラムを起動・監視・終了とかさせるものらしい
daemon化させるためのツールですな

そのなかにこんなの発見使えそうな予感
The setuidgid program
ttp://www.emaillab.org/djb/tools/daemontools/setuidgid.html
> setuidgid は明記されたアカウントの uid と gid で別のプログラムを起動します。
rootから子プロセスを指定されたアカウントで実行するものらすい
> setuidgid は root 以外では動かせません。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 16:09:04

>>29
>>18でやった事の応用で済むね。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 16:10:14

×　18　　○　>>13

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 16:21:43

>>31
前スレでも書いたけど、それ使うなら
スーパーバイザー→指令→親プロセスA(起動時以降はデーモン)→チャイルドB1,B2...生成→.....
の流れだと思うんだけど、
httpdからのチャイルド生成を目指している(?)ようなので、どうかなあ。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 16:28:52

>>34
>>24を見るかぎり、p2をroot権限でdaemon化しておいてp3を起動するのにsetuidgidが使えるんじゃないかと思ったんだけど
p1はトリガファイル作る程度だからroot権限なんていらないし

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 16:41:04

>>35
・前スレ>>990-991で、書かれてた事、
・今回ファイルに書き込めたのはroot権限で動作させた(p1の動作です)

を見ると、どうなのかな？　と思ったのですよ。

**ピロリ** · 2008/10/24(金) 16:46:25

>>23
各アカウントには書き出さないでくれ～

**ピロリ** · 2008/10/24(金) 16:47:13

テストだけならいいような気もするけど
テスト用のアカウントを作ればいいでしょ

**ピロリ** · 2008/10/24(金) 17:00:10

1)の起動時に行われる作業

1-a)
全てのアカウントに対して行う。
制御用アカウントに
public_html/.htaccess
public_html/test/.htaccess
public_html/test/read.cgi 等 (*.so offlaw* read.cgi)
を用意しておく
/md/tmp/public_html に全てをコピー

全てのアカウントの以上のファイルを消去
シンボリックリンクにする
例) public_html/test/read,cgi -> /md/tmp/public_html/test/read.cgi
懸念は広告ファイルはどうなるか・・・
同じ場所に入れなきゃだよなぁ、たぶん
過去ログ倉庫用の広告ファイル(中身は好きに作ってネ)も
/md/tmp/public_html 配下にネ

1-b)
全てのアカウントに対して行う。
アカウント配下のすべての板に対して行う。
public_html/siberia/i/ をディレクトリごとしょうきょ(rm -rf siberia/i/)
/md/ch2xxxx/siberia/i/ を作成
んでシンボリックリンク
public_html/siberia/i/ -> /md/ch2xxxx/siberia/i/
懸念は、mdの容量問題っすね

これで1)は完成
2) は /md/ch2xxxx/siberia/i/ の中の古いファイル(N日たったファイル)を消す
ただし　呼ばれたら　一アカウントの一板のを消すだけ、次に呼ばれたら
その次をやる、呼ばれるのは M分おき。

**ピロリ** · 2008/10/24(金) 17:01:13

>>37
>>38
のように今回作るスクリプトでは各アカウントに書き込みはご法度。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 17:07:35

>>40
要は、
・収集は各アカウントの情報
・収集した情報は、収集用の専用アカウントに書き込む

と言う事？

**ピロリ** · 2008/10/24(金) 17:11:25

んだんだ

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 17:12:22

ぅぃぅぃ(^_^;)了解
書きだすのは実験用のアカウント作って検証する。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 17:12:34

あーなるほど、まとめる訳か。

**ピロリ** · 2008/10/24(金) 17:14:29

アパッチのログもまとめたいが
それは次ですな、

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 17:18:46

>39
1)は/etc/rc.localから起動しよう(^_^;)そうしよう

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 17:19:15

Apacheの各種logをまとめちゃうと、容量が怖くなってくる気がする
(現状知らないけど)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 17:23:20

んで2)の仕組みは、もっといい方法が見つかるまでは
>24の方式でやることにしよう(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 17:40:00

制御用アカウントに　
public_html/.htaccess
public_html/test/.htaccess
public_html/test/read.cgi 等 (*.so offlaw* read.cgi)
を用意しておく

これをやっておこう(^_^;)aiai.tarを解凍する

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 17:47:32

んじゃいよいよプログラムです(^_^;)
まず最初に、全てのアカウントに対して作業を行う・・・・んだから
全てのアカウントのリストがほしい・・・・
配列っつーんだっけ？(^_^;)それに入れとけば
何度でもそのリストを元に作業ができるんだよね？

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 17:55:55

で、アカウントのリストは、ls -1 /md/ch2*で取得できるはず(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 18:11:36

>>50
急ぎ作業ではないなら、
@dog、$cat、$cat[esa]、$cat[esa][karikari]　等
ポインタと呼ばれる事を今のうちに覚えたほうが今後楽になるかもしれません。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 18:12:05

>>50
プログラム中に埋め込むの？テキストとして別で保存しとく？

リダイレクトでテキストに出して、それを読み込むの方が簡単かも。

$a 変数。　$a = "マァヴ";
@data 配列。各要素へのアクセスは　$data[0] , $data[1] ,$data[2], ・・・
@data = ( "マァヴ1号" , "マァヴ2号" , "マァヴ3号");
$data[0] の中身は　"マァヴ1号"　になる。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 18:12:41

あくまで例えの変数名ですので。

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:16:14

#!/usr/bin/perl -w

#アカウントリストを作る
opendir(MD, /md);
@ServerList = readdir(MD);
closedir(md);

#できあがったリストを確認のため出力
print "Content-type: text/html\n\n";
for $TgtServer (@ServerList) {
print "$TgtServer\n;"
}

これで、/mdにあるディレクトリのリストが表示されても不思議はない(^_^;)はず

**ピロリ** · 2008/10/24(金) 18:18:02

<^_^;>

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:19:05

>52
ぅぃぅぃ(^_^;)それが活躍しそうなところに来たら
「今だ」と指摘よろしく～

なんせ、初めてのperlっつーかプログラムな状況ですぜ～

>50
環境依存ではあるけど、/mdのch2で始まるディレクトリが
サーバのリストになるので、起動時に取得する方向で考えてます(^_^;)

※ · 2008/10/24(金) 18:19:34

がーん＞＜

closedir(md);

　　↓

closedir(MD);

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 18:21:36

for $TgtServer (@ServerList) {

$TgtServerには何が入っていますか？
初期化しましたか？

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:23:29

>55
わずかこれだけのプログラムで19行ものエラーを吐かれたよ(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:24:44

>59
初期化？(^_^;)ってどうやるの？

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:25:13

>58
おお(^_^;)直した

※ · 2008/10/24(金) 18:26:06

>>57
なるほろほろ

んじゃch2以外のものもある場合は

print "$TgtServer\n;"
の部分を

if ( $TgtServer =~ /^ch2/) print "$TgtServer\n;"

とするといいかも。

ch2しかないなら不要です。

あと for じゃなくて　foreach　ね。

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:27:59

#!/usr/bin/perl -w

#アカウントリストを作る
opendir(MD, /md);
@ServerList = readdir(MD);
closedir(MD);

#できあがったリストを確認のため出力
print "Content-type: text/html\n\n";
$TgtServer = 0;
for $TgtServer (@ServerList) {
print "$TgtServer\n;"
}

>63
これが動いたらやってみる(^_^;)
まずはここまでを動かしたい～

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 18:29:05

>>60
@ServerList には”.”、”..”を含めたリストが入っていると思います。
で、$TgtServer　には、何を入れたいかがわかりません。

もし、@ServerList の上から順に入れてfor文を回すのなら、完全に間違いです。

※ · 2008/10/24(金) 18:31:02

>>64
いや、これはやって。
　　↓
for じゃなくて　foreach。

forだと構文エラーです。

foreach $TgtServer (@ServerList) {

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:34:19

>65
えーっと(^_^;)
＞@ServerList には”.”、”..”を含めたリストが入っていると思います。
はい(^_^;)入っていても不思議はないです。

＞で、$TgtServer　には、何を入れたいかがわかりません。
$TgtServerには、@ServerListの最初から１つずつ
要素を入れたいわけです(^_^;)
具体的には
@ServerListに/mdのファイルリストが入っているので
そこから$TgtServerに１つ取り出しては、printする・・・・と(^_^;)

※ · 2008/10/24(金) 18:35:51

>>67
＞print "$TgtServer\n;"

行末の　; の位置が・・・。

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:36:37

#!/usr/bin/perl -w

#アカウントリストを作る
opendir(MD, /md);
@ServerList = readdir(MD);
closedir(MD);

#できあがったリストを確認のため出力
print "Content-type: text/html\n\n";
$TgtServer = 0;
foreach $TgtServer (@ServerList) {
print ("$TgtServer\n");
}

としてみた(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:37:02

>68(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:38:46

エラーは19行から22行に増えてます(^_^;)
Possible unintended interpolation of @ServerList in string at ./dotabata.cgi line 4.
Bareword found where operator expected at ./dotabata.cgi line 9, near "print "Content-type: text/html"
(Might be a runaway multi-line // string starting on line 4)
(Do you need to predeclare print?)
Unquoted string "html" may clash with future reserved word at ./dotabata.cgi line 9.
Backslash found where operator expected at ./dotabata.cgi line 9, near "html\"
Unquoted string "n" may clash with future reserved word at ./dotabata.cgi line 9.
Backslash found where operator expected at ./dotabata.cgi line 9, near "n\"
Unquoted string "n" may clash with future reserved word at ./dotabata.cgi line 9.
String found where operator expected at ./dotabata.cgi line 12, near "print (""
(Might be a runaway multi-line "" string starting on line 9)
(Missing semicolon on previous line?)
Scalar found where operator expected at ./dotabata.cgi line 12, near "print ("$TgtServer"
(Do you need to predeclare print?)
Backslash found where operator expected at ./dotabata.cgi line 12, near "$TgtServer\"
(Missing operator before \?)
Unquoted string "n" may clash with future reserved word at ./dotabata.cgi line 12.
String found where operator expected at ./dotabata.cgi line 12, at end of line
(Missing semicolon on previous line?)
syntax error at ./dotabata.cgi line 9, near "print "Content-type: text/html"
Can't find string terminator '"' anywhere before EOF at ./dotabata.cgi line 12.
ulahana301@banana3174:~/public_html$ cat ./dotabata.cgi

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:41:41

こ、こうか？(^_^;)

#!/usr/bin/perl -w

#アカウントリストを作る
opendir(MD,"/md");
@ServerList = readdir(MD);
closedir(MD);

#できあがったリストを確認のため出力
print "Content-type: text/html\n\n";
$TgtServer = 0;
foreach $TgtServer (@ServerList) {
print ("$TgtServer\n");
}

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:43:21

できたー(^_^;)っhttp://hana301.ula.cc/dotabata.cgi
原因はdiropenするときのディレクトリを""でかこってなかった・・・・でした(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:45:44

>63を入れてみる(^_^;)
;の場所注意

※ · 2008/10/24(金) 18:47:56

♪♪♪

んで、一応書いておこう。

＞@ServerList には”.”、”..”を含めたリストが入っていると思います。
ってことなので

ch2以外のディレクトリが存在するなら
foreach $TgtServer (@ServerList) {
if ( $TgtServer =~ /^ch2/) { print "$TgtServer\n"; }
}

存在しないなら
foreach $TgtServer (@ServerList) {
if($TgtServer eq "."){ next; }
if($TgtServer eq ".."){ next; }
print "$TgtServer\n";
}

# $TgtServer = 0;はいらないですー

>>73
見れないけどうまく行ったのかな？
http://qb6.2ch.net/_500/
ここに飛ばされる

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:51:33

#!/usr/bin/perl -w

#アカウントリストを作る
opendir(MD,"/md");
@ServerList = readdir(MD);
closedir(MD);

#できあがったリストを確認のため出力
print "Content-type: text/html\n\n";
$TgtServer = 0;
foreach $TgtServer (@ServerList) {
if ( $TgtServer =~ /^ch2/) {
print ("$TgtServer\n");
}
}

動いた(^_^;)っhttp://hana301.ula.cc/dotabata.cgi

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:53:03

んじゃこれを再度配列に入れる・・・・と(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:57:30

#!/usr/bin/perl -w

#アカウントリストを作る
opendir(MD,"/md");
@DirList = readdir(MD);
closedir(MD);

#できあがったリストを確認のため出力
print "Content-type: text/html\n\n";
$num = 0;
foreach $TgtServer (@DirList) {
if ( $TgtServer =~ /^ch2/) {
@ServerList[$num] = $TgtServer;
$num ++;
}
}

foreach $TgtServer (@ServerList) {
if ( $TgtServer =~ /^ch2/) {
print ("$TgtServer\n");
}
}

こんな感じでどうだろう？(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 18:58:09

配列の場所って、0から始まるの？(^_^;)それとも1から始まるの？

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:00:01

@jx = split(/\n/, $TgtServer);

でいけるとおもうけど。

perlスクリプトは0から始まります

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:01:12

あれ？(^_^;)おいらはなんかわかってない（当然だけど）のかな？
Scalar value @ServerList[$num] better written as $ServerList[$num] at ./dotabata.cgi line 13.
と言われた。
@ServerList[$num]と$ServerList[$num]は同じものを指してるのか？(^_^;)
つか、出力見たら$ServerList[$num]にどんどん入れていくと
@ServerListの配列に入ってるわけだが(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:05:37

>80
えーっとここでは(^_^;)$TgtServerには１個しか要素がなくて
それはたとえばこの場合 ch2tmp7 とかってのじゃないの？(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:06:14

@ServerListに再度いれるなら初期化しないと遺憾のじゃね？

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:07:41

>83
あ、最初に入れる配列は@DirListという名前に変えました(^_^;)
$TgtServerは再利用するけど、いきなり代入されるんでいいかなーとか。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:10:10

>>82
foreachで@ServerListの内容をベタで $TgtServerに入れ込んだわけですよね。\nも含めて。

>>80の意味は、@jxに $TgtServerのを\n除いて配列に格納すると言う意味。

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:11:05

なにはともあれ、perlさんが
Scalar value @ServerList[$num] better written as $ServerList[$num] at ./dotabata.cgi line 13.
って言ってるので、そのように書きなおす(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:11:22

@ServerList[$num] = $TgtServer;
これか？

$ServerList[$num] = $TgtServer;

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:12:21

>85
あれ？(^_^;)そういうことになるの？＞@TgtServerの中身

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:12:41

>87
それ(^_^;)

※ · 2008/10/24(金) 19:15:20

>>76
見れた♪

んで、配列から特定の要素を取り出して再度配列にするならgrep使うといいよ。
たぶん使えるはず。

# @DirList リスト内で　ch2　から始まるものを　@TgtServerリストに入れる
@TgtServer = grep( !/^ch2/, @DirList );

で、↓な感じで

#!/usr/bin/perl -w

#アカウントリストを作る
opendir(MD,"/md");
@DirList = readdir(MD);
closedir(MD);

@ServerList = grep( !/^ch2/, @DirList );

#できあがったリストを確認のため出力
print "Content-type: text/html\n\n";

foreach $TgtServer (@ServerList) {
print ("$TgtServer\n");
}

#　実は私も手探りな感じ。

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:16:16

foreach $TgtServer (@DirList) {
処理;
}
って、@DirListの中身の１要素を$TgtServerに入れて
処理を済ませたら
@DirListの中身の次の１要素を$TgtServerに入れて
処理を済ませたら
：
とやって、@DirListの要素がなくなったらforeach()を抜ける・・・・んでないの？(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:16:52

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:17:45

#!/usr/bin/perl -w

#アカウントリストを作る
opendir(MD,"/md");
@DirList = readdir(MD);
closedir(MD);

#できあがったリストを確認のため出力
print "Content-type: text/html\n\n";
$num = 0;
foreach $TgtServer (@DirList) {
if ( $TgtServer =~ /^ch2/) {
$ServerList[$num] = $TgtServer;
$num ++;
}
}

foreach $TgtServer (@ServerList) {
if ( $TgtServer =~ /^ch2/) {
print ("$TgtServer\n");
}
}

かな？

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:18:31

#!/usr/bin/perl -w

#アカウントリストを作る
opendir(MD,"/md");
@DirList = readdir(MD);
closedir(MD);

#できあがったリストを確認のため出力
print "Content-type: text/html\n\n";
$num = 0;
foreach $TgtServer (@DirList) {
if ( $TgtServer =~ /^ch2/) {
$ServerList[$num] = $TgtServer;
$num ++;
}
}

foreach $TgtServer (@ServerList) {
if ( $TgtServer =~ /^ch2/) {
print ("$TgtServer\n");
}
}

これでワーニングも出なくなった(^_^;)
@ServerListにアカウントのリストが出来上がった～
はず(^_^;)

※ · 2008/10/24(金) 19:23:13

>>91
そうです。

>>94
ﾊﾟﾁﾊﾟﾁﾊﾟﾁﾊﾟﾁ♪
のはず

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:24:49

>>94
そうか、結果をファイルに出すわけじゃないんだもんね。
なら多分大丈夫。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:24:49

ああ、だめだ；仕事しながらだと追いつかないｗ

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:25:18

>95
どもども(^_^;)

>39
制御用アカウントに
public_html/.htaccess
public_html/test/.htaccess
public_html/test/read.cgi 等 (*.so offlaw* read.cgi)
を用意しておく

これは済ませた(^_^;)ので次は・・・・
/md/tmp/public_html に全てをコピー

これをやろう(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:26:02

>96
はい(^_^;)
これからやる作業のためのリストを作ったのです。

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:30:42

if (!-d "/md/tmp/public_html"){
mkdir "/md/tmp/public_html";
if (!-d "/md/tmp/public_html/test"){
mkdir "/md/tmp/public_html/test";
}
}

こんなんでいいのかな？(^_^;)

※ · 2008/10/24(金) 19:31:20

>>99
ありゃ・・・これはいらない？>>90

まぁ後でもいいですが。

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:32:28

ulahana301@banana3174:~/public_html$ ls /md/tmp/public_html/
test/

あっさりできた(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:34:02

エラーも含めて、なんか楽しそうだな。。。
裏山

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:34:35

>>101
grepでやってしまうかどうかはサーバーの負荷しだいだと思う。

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:34:58

>101
あ(^_^;)一回で一気に選別しながら配列に入れられるのか・・・・
@TgtServer = grep( !/^ch2/, @DirList );
とやった時の`TgtServerと
$num = 0;
foreach $TgtServer (@DirList) {
if ( $TgtServer =~ /^ch2/) {
$ServerList[$num] = $TgtServer;
$num ++;
}
}
の@ServerListって等価じゃないのかな？(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:37:27

そんじゃファイルのコピーおば(^_^;)
コピーするものは
/home/ulahana301/public_html/.htaccess
/home/ulahana301/public_html/test/*.*

※ · 2008/10/24(金) 19:40:41

>>104
どっちが負荷高いのかな？

>>105
投下等価

**ピロリ** · 2008/10/24(金) 19:40:49

cp -r とか

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:41:53

system("cp /home/ulahana301/public_html/.htaccess /md/tmp/public_html/");
system("cp /home/ulahana301/public_html/test/* /md/tmp/public_html/test/");

こんなんでいいのかな？(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:42:41

>>107
多分現状のサーバー状況だとgrepの方が負荷は少ないと思います。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 19:48:05

負荷っつっても垢リスト作るためだけのルーチンじゃなかったっけ？
呼び出されるのは鯖リブート後一回か垢変更あった時だけだろうし気にしなくていいかと

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:49:40

次(^_^;)
#/md/tmp/以下の属性を適切に変更する
system ("chmod 777 /home/ulahana301/public_html/");
system ("chmod 644 /home/ulahana301/public_html/.htaccess");
system ("chmod 777 /home/ulahana301/public_html/test/");
system ("chmod 755 /home/ulahana301/public_html/test/*");

chownして、rootのwheelにしたほうがいいのかな？(^_^;)
でも、それはrootからしかできないので後回し。

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:53:34

ここまでは動いているような気がする(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:54:23

あ(^_^;)間違えてる間違えてる>112

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:58:50

よし(^_^;)ここまでOK
次は・・・・
全てのアカウントの以上のファイルを消去
これだな・・・・
さてさて。今やっちゃうとたぶんとても悲しいことになると思うので
あとまわし

シンボリックリンクにする
これやろう(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 19:59:50

さて、ここで、先ほど成功したサーバリストを一度お蔵に入れます(^_^;)
いきなり本番は怖いので、仮のリストにテスト用アカウントを入れてテストテスト

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 20:03:21

このサーバにはなぜかch2foo7があったりする(^_^;)
food7.2ch.netは三女にあるので、実は使ってないのだ。

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 20:05:05

ここまでのソース(^_^;)っhttp://hana301.ula.cc/dotabata.txt

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 20:05:55

>>117
混乱しそうだからアカウント名変えておいたほうがいいかも～

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 20:06:44

よし(^_^;)ここまで出来たら勝ったも同然！
ということで祝杯をあげに行く～

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 20:14:44

こっちもかいｗいってら～

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 20:14:58

>>111
どれに組み込まれるかわからないしタイミングもあるだろうから、
メモリ状況や他のを今から考えていたほうが良いと思っただけなのです。

で、>>112でperlのchmodではなくsytem呼んでいるので、なにか考えているのかなと。

※ · 2008/10/24(金) 20:32:12

私は｛｝で多段にするよりも見やすくなるかなぁと思っていったので。
見た目なので、まぶちーが分かりやすいほうがいいと思うですよ。

>>120
いってら♪

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 20:37:16

>>122
＞で、>>112でperlのchmodではなくsytem呼んでいるので、なにか考えているのかなと。

ﾏｧｳﾞは「Perlの超初心者（学習1日目）」なので、単に知らないだけと言う可能性もありますがな。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 20:37:21

>>122
perlにchmodがあることを知らなかったに１ペセタ

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 20:38:46

orz
俺これ組み終わったら>>124とｹｺｰﾝするんだ…

**マァヴ** ◆jxAYUMI09s · 2008/10/24(金) 23:07:26

>>124
はい(^_^;)正解です

**動け動けウゴウゴ２ちゃんねる** · 2008/10/24(金) 23:52:16

>>122のsytem　ってのはsystemのTYPOなので脳内変換して。(きっと皆してると思うけど念のため)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/25(土) 02:39:19

花子と花代にこのスレ教えてあげた？

**マァヴ** ◆jxAYUMI09s · 2008/10/25(土) 06:55:21

発売時刻を前にして、kitaca売り切れ＠新札・・・(^_^;)札駅に向かう

つか、ほかどこで売り出すんだっけ？(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/25(土) 07:05:02

JR北海道Kitaca
http://www.jrhokkaido.co.jp/kitaca/

Kitaca - Wikipedia
http://ja.wikipedia.org/wiki/Kitaca

**動け動けウゴウゴ２ちゃんねる** · 2008/10/25(土) 07:08:59

デビュー記念Kitacaの発売について
http://www.jrhokkaido.co.jp/kitaca/info081022.html

**動け動けウゴウゴ２ちゃんねる** · 2008/10/25(土) 08:57:09

札幌、小樽、手稲、桑園、江別、岩見沢、新札幌、千歳、苫小牧
>>132より
見れたか心配だったので一応
遅かったかも。。。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/25(土) 14:55:15

キタカ、、、　なんだ・・・

そうか、来たか・・・・はぁ、、、どうすんべ？

**動け動けウゴウゴ２ちゃんねる** · 2008/10/25(土) 18:19:10

　　　　 ∧__∧
　　　　(　･ω･) 　迷子どす
　　　　ﾊ∨/^ヽ
　　　ﾉ::[三ﾉ　:.､
　　 i)､_;|*く;　　ﾉ
　　　　 |!: ::.".T~
　　　　ﾊ､___|
"""~""""""~"""~"""~"

**動け動けウゴウゴ２ちゃんねる** · 2008/10/25(土) 18:21:43

>>135
噴いた

**動け動けウゴウゴ２ちゃんねる** · 2008/10/25(土) 18:25:05

／￣￣￣￣￣＼
|　×.　Ｕ　　　　　|　　　　　まいごだぞう
| |ι　　　　　　　|つ
Ｕ｜｜￣￣｜｜　　
　　￣　　　　　￣

**(^-^)犬** ◆VET4349ZB. · 2008/10/25(土) 18:42:41

不意を衝かれたｗ

**未承諾広告※** ◆TWARamEjuA · 2008/10/25(土) 20:33:08

for ≡ foreachだす♪

**動け動けウゴウゴ２ちゃんねる** · 2008/10/25(土) 20:35:40

ごうどうっていうのか！

**未承諾広告※** ◆TWARamEjuA · 2008/10/25(土) 20:37:27

「≡」は無いか。。。
for ($i=0;$i++;$i>10){ ... }
って書き方があったっけ。
でもって、/md/ に ch2 で始まるエントリがないときの処理が要りそうな伊予柑。
(/md/が無いこともあり得るし♪)

**未承諾広告※** ◆TWARamEjuA · 2008/10/25(土) 20:46:19

#!/usr/bin/perl -w

use strict;
use warning;

my $MD_Dir = "/md"; # 対象ディレクトリ名
my $Dir_handle; # ハンドル格納用汎用変数
my @ServerList; # サーバリストが入ってきます♪

#アカウントリストを作る
#/mdのディレクトリリスト取得してついでに必要なものを抜き出してリストにする
opendir $Dir_handle,$MD_Dir or die "/md is not found.";
@ServerList = grep /^ch2/, readdir $Dir_handle or die "readdir error.";
closedir $Dir_handle;

#/md/tmp/に必要なディレクトリを掘る
:
:
:
ちょっとすっきり♪

**未承諾広告※** ◆TWARamEjuA · 2008/10/25(土) 20:47:57

→$ServerList[$num] = $TgtServer;
→$num ++;
↓
push @ServerList, $TgtServer;
で桶♪

**動け動けウゴウゴ２ちゃんねる** · 2008/10/25(土) 20:52:30

おおー、ディレクトリ存在確認も入ってすっきりー

**ぇり＠なんだか筆頭固定 ☆** ◆ERI.ES/lN6 · 2008/10/25(土) 21:00:00

花子さん記念にカキコお願いします！

自己板筆頭ぇりと愉快な仲間達85【住人募集中】
http://changi.2ch.net/test/read.cgi/intro/1224644042/

**未承諾広告※** ◆TWARamEjuA · 2008/10/25(土) 22:01:39

@ServerListが空っぽなこともあり得るか。

@ServerList or die "Nothing list."; とか、
die "Nothing list." unless @ServerList; とか、、
if (scalar @ServerList == 0) { die "Nothing list." } とか、、、

**動け動けウゴウゴ２ちゃんねる** · 2008/10/26(日) 08:16:15

>>141 のforは条件式の大小が反対で駄目なのでいやん。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/26(日) 18:17:48

リストがカラです、の英語訳はList emptyあたりではないかと。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/26(日) 18:19:38

／￣￣￣￣￣＼
|　×.　Ｕ　　　　　|　　　　　まいごだぞう
| |ι　　　　　　　|つ
Ｕ｜｜￣￣｜｜
　　￣　　　　　￣

**動け動けウゴウゴ２ちゃんねる** · 2008/10/26(日) 18:24:13

なんて不憫な｡･ﾟ･(ﾉД`)･ﾟ･｡

**未承諾広告※** ◆TWARamEjuA · 2008/10/26(日) 21:46:59

>>147-148
えへへ（照）

ごく個人的に単純ループは、、、
for my $count (1 .. 100){ ... }
って書いた方が精神的にすきーり♪

**動け動けウゴウゴ２ちゃんねる** · 2008/10/27(月) 03:27:26

>>151
すっきりはするだろうけれど、他の人が見る事を考えるのも良いかもね

**ピロリ** · 2008/10/27(月) 13:26:59

できた?

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 13:34:45

むはん(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 13:34:58

まだー(^_^;)

※ · 2008/10/27(月) 13:36:17

できたもなにも、あとは楽勝と言って祝杯あげに行ったっきり戻ってこない件…

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 13:44:58

さあ、楽勝の戦いへと(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/27(月) 13:47:54

　　　　　　＼170 名前：マァヴ ◆jxAYUMI09s ／
157 マァヴ ◆＼　　　　　　　　　　　　　　　　／
　　　　　　　　　　＼また失敗した(^_^;)＞p ／Update失敗したらa
　　／￣￣￣￣￣＼　　　　　　　　　　／://pc11.2ch.net/test/r
＜　おまいら次もいき＼∧∧∧∧∧／ァヴがpc11.2ch.netの鯖
　＼＿＿＿＿＿＿＿＜　　　　　　　＞tp://news23.2ch.net/t
　　　　　　　　　　　　　＜　予　　ま　＞また、マァヴ◆jxAYUMI09
　　　　　　　　　　　　　＜　　　　　た　＞p://news23.2ch.net/te
─────────＜　感　　失　＞──────────
　／￣￣￣￣￣￣￣＜　　　　　敗　＞616 名前：マァヴ ◆jxAY
＜ pc11のBIOSアップ＜　 !!!!　　の　＞>607
　＼＿＿＿＿＿＿＿＜　　　　　　　＞ファイルの準備がいまいち
　　　　　　　　　　　　　／∨∨∨∨∨＼
　　　　　　＼オーー／　　　　　　　　　　＼オフレコ-------------
　　　∧＿∧∧＿／74 名前：マァヴ ◆jxA＼たく言うと、更新用の
　　（　　　　）　／　　　　　　　　　　　　　　　　＼でオフレコ-------
　　　　　　　／ BIOSアップデート失敗した(^_^;) ＼
http://www.maido3.com/server/

※ · 2008/10/27(月) 13:48:01

あっいた…
勝利が見えてる戦いはつまらなくない？

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 13:48:30

伏兵がいないわけないから大丈夫(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 14:08:41

しかし、ちょいとお食事タイムなのであった(^_^;)

**動け動けウゴウゴ２ちゃんねる** · 2008/10/27(月) 14:20:42

マァヴとかおいちゃんて二日酔いしないのか？

● ◆SWAKITIxxM · 2008/10/27(月) 14:24:27

花子と花代が迷子である件をよろしくお願いします。

**花子 ★** · 2008/10/27(月) 14:34:53

banana3000.maido3.com

Uptime: 3 days, 19:38
／￣￣￣￣￣＼
|　・　Ｕ　　　　　　|　　　　　おしらせだぞう
| |ι　　　　　　　|つ
Ｕ｜｜￣￣｜｜　　
　　￣　　　　　￣

**動け動けウゴウゴ２ちゃんねる** · 2008/10/27(月) 14:35:39

帰ってｷﾀﾜｧ*･゜ﾟ･*:.｡..｡.:*･゜(ｎ‘∀‘)ηﾟ･*:.｡. .｡.:*･゜ﾟ･* !!!!!

**花代 ★** · 2008/10/27(月) 14:50:07

banana3001.maido3.com

　　　　 ∧__∧
　　　　(　･ω･) 　花代どす
　　　　ﾊ∨/^ヽ
　　　ﾉ::[三ﾉ　:.､
　　 i)､_;|*く;　　ﾉ
　　　　 |!: ::.".T~
　　　　ﾊ､___|
"""~""""""~"""~"""~"
Uptime: 5 days, 1:09

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 15:40:55

戻り(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 15:53:06

＞全てのアカウントの以上のファイルを消去
＞シンボリックリンクにする

これの動作検証中(^_^;)
test/の中身は個別にシンボリックリンクにする

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:03:42

#本当はここでforeachを回すんだけど、まずはch2foo7だけ処理を書く
#.htaccessとtest/の中身を削除してシンボリックリンクに変更する
system("rm /home/ch2food7/public_html/.htaccess");
system("ln -sf /md/tmp/public_html/.htaccess /home/ch2food7/public_html/.htaccess");
system("rm /home/ch2food7/public_html/test/anydat.so");
system("ln -sf /md/tmp/public_html/test/anydat.so /home/ch2food7/public_html/test/anydat.so");
system("rm /home/ch2food7/public_html/test/index.html");
system("ln -sf /md/tmp/public_html/test/index.html /home/ch2food7/public_html/test/index.html");
system("rm /home/ch2food7/public_html/test/offlaw.cgi");
system("ln -sf /md/tmp/public_html/test/offlaw.cgi /home/ch2food7/public_html/test/offlaw.cgi");
system("rm /home/ch2food7/public_html/test/offlaw2.so");
system("ln -sf /md/tmp/public_html/test/offlaw2.so /home/ch2food7/public_html/test/offlaw2.so");
system("rm /home/ch2food7/public_html/test/read.cgi");
system("ln -sf /md/tmp/public_html/test/read.cgi /home/ch2food7/public_html/test/read.cgi");
system("rm /home/ch2food7/public_html/test/read.so");
system("ln -sf /md/tmp/public_html/test/read.so /home/ch2food7/public_html/test/read.so");
system("rm /home/ch2food7/public_html/test/readinfo.so");
system("ln -sf /md/tmp/public_html/test/readinfo.so /home/ch2food7/public_html/test/readinfo.so");

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:09:23

＞過去ログ倉庫用の広告ファイル(中身は好きに作ってネ)も
＞/md/tmp/public_html 配下にネ
adad.txtという名前にしよう(^_^;)
これも最初に配布して、シンボリックリンクにする。

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:20:36

で、>169をforeahで回す(^_^;)これで1)が完成したはずー
http://hana301.ula.cc/dotabata.txt
cgiのファイル名は変更したー

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:21:24

つことで、ch2food7バージョンを/etc/rc.localに組み込んで
実際に長女を再起動してみよう(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:28:58

>172
期待される結果は(^_^;)
1 /md/tmp/public_html/が作られる(777 root:weel)
2 /md/tmp/public_html/test/が作られる(777 root:wheel)
3 /md/tmp/public_html/.htaccessが作られる(644 root:wheel)
4 /md/tmp/public_html/adad.txtが作られる(644 root:wheel)
5 /md/tmp/public_html/test/*.soが作られる(755 root:wheel)
6 /md/tmp/public_html/test/*.cgiが作られる(755 root:wheel)
7 /home/ch2food7/public_html/以下の
　.htaccess adad.txt
　/home/ch2food7/public_html/test以下の
　anydat.so　index.html　offlaw.cgi　offlaw2.so　read.cgi　read.so　readinfo.so
　以上が、/md/tmp/public_html/以下のファイルにシンボリックリンクされる。

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:30:12

まず、/etc/rc.localを変更せずに長女をリブートする。
一旦、/mdとかが初期化されて、1)が組み込まれる前の状態になるはず(^_^;)

つことで長女リブートしますー(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:33:21

長女起動(^_^;)状態確認してくるー

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:36:33

あ(^_^;)シンボリックリンクって、再起動しても保持されるものなのね・・・・
つことでシンボリックリンクを切ってから再起動する

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:38:09

長女再起動(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:42:02

>173
すべてがない状態を確認した(^_^;)
つことで、ch2food7バージョンを/etc/rc.localに登録してくる

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:45:22

/etc/rc.localの最後に
/home/ulahana301/public_html/*******.cgi
と入れた(^_^;)

cgiの中身を再確認して再起動へと(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:46:26

んじゃ長女再起動～(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:48:23

これで起動失敗とかだとかなり凹む(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:48:54

しかし起動成功(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:49:08

>173をチェック(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:56:41

/md/tmp/
drwxrwxrwx 3 root wheel 512 Oct 27 00:48 public_html

/md/tmp/public_html/
-rw-r--r-- 1 root wheel 3275 Oct 27 00:48 .htaccess
drwxrwxrwx 2 root wheel 512 Oct 27 00:48 test

/md/tmp/public_html/
-rwxr-xr-x 1 root wheel 12329 Oct 27 00:48 anydat.so
-rwxr-xr-x 1 root wheel 356 Oct 27 00:48 index.html
-rwxr-xr-x 1 root wheel 106350 Oct 27 00:48 offlaw.cgi
-rwxr-xr-x 1 root wheel 7248 Oct 27 00:48 offlaw2.so
-rwxr-xr-x 1 root wheel 36020 Oct 27 00:48 read.cgi
-rwxr-xr-x 1 root wheel 36020 Oct 27 00:48 read.so
-rwxr-xr-x 1 root wheel 8047 Oct 27 00:48 readinfo.so

/home/food7/public_html/
lrwxr-xr-x 1 root users 29 Oct 27 00:48 .htaccess@ -> /md/tmp/public_html/.htaccess
lrwxr-xr-x 1 root users 28 Oct 27 00:48 adad.txt@ -> /md/tmp/public_html/adad.txt

/home/food7/public_html/test/
lrwxr-xr-x 1 root users 35 Oct 27 00:48 index.html@ -> /md/tmp/public_html/test/index.html
lrwxr-xr-x 1 root users 35 Oct 27 00:48 offlaw.cgi@ -> /md/tmp/public_html/test/offlaw.cgi
lrwxr-xr-x 1 root users 35 Oct 27 00:48 offlaw2.so@ -> /md/tmp/public_html/test/offlaw2.so
lrwxr-xr-x 1 root users 33 Oct 27 00:48 read.cgi@ -> /md/tmp/public_html/test/read.cgi
lrwxr-xr-x 1 root users 32 Oct 27 00:48 read.so@ -> /md/tmp/public_html/test/read.so
lrwxr-xr-x 1 root users 36 Oct 27 00:48 readinfo.so@ -> /md/tmp/public_html/test/readinfo.so

4 /md/tmp/public_html/adad.txtが作られる(644 root:wheel)
↑これがない(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 16:57:29

おっと(^_^;)こぴぺ忘れ
/home/food7/public_html/test/
lrwxr-xr-x 1 root users 34 Oct 27 00:48 anydat.so@ -> /md/tmp/public_html/test/anydat.so

**ピロリ** · 2008/10/27(月) 16:59:57

すべてのファイル名は秘密のものです
だから *.so とかと皆は書いている

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 17:01:48

あー(^_^;)大元になる
/home/ulahana301/public_html/adad.txt
が存在してなかった・・・・・
touch adad.txt
で
-rw-r--r-- 1 ulahana301 users 0 Oct 27 01:00 adad.txt

もっかい長女再起動～(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 17:02:14

>186
あいや(^_^;)そりゃまずった・・・・

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 17:04:23

>186
どうしましょ(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 17:07:34

長女復帰(^_^;)
>173はすべて動作を確認。

※ · 2008/10/27(月) 17:11:35

見た感じすでに知られている名前っぽいけど。
ぴろりさんはもうdat直削除できないんだっけ？

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 17:13:18

つことでch2food7に対してシンボリックリンクを作ってるところを
foreach $TgtServer (@ServerList) {
system("rm /home/$TgtServer/public_html/.htaccess");
system("ln -sf /md/tmp/public_html/.htaccess /home/$TgtServer/public_html/.htaccess");
：
：
}

というふうにして、長女を再起動すると、すべての過去ログ倉庫が>173みたくなるはず(^_^;)

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 17:17:04

>192
にした(^_^;)っhttp://hana301.ula.cc/dotabata.txt
そんでは本番です・・・・
長女リブート行く前にちょっとコーヒーブレイク

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 17:19:57

期待される結果は(^_^;)
1 /md/tmp/public_html/が作られる(777 root:weel)
2 /md/tmp/public_html/test/が作られる(777 root:wheel)
3 /md/tmp/public_html/.htaccessが作られる(644 root:wheel)
4 /md/tmp/public_html/adad.txtが作られる(644 root:wheel)
5 /md/tmp/public_html/test/*.soが作られる(755 root:wheel)
6 /md/tmp/public_html/test/*.cgiが作られる(755 root:wheel)
7 /home/[ch2アカウント]/public_html/以下の
　.htaccess adad.txt
　/home/[ch2アカウント]/public_html/test以下の
　*.so *.cgi *.html
　以上が、/md/tmp/public_html/以下のファイルにシンボリックリンクされる。

**動け動けウゴウゴ２ちゃんねる** · 2008/10/27(月) 17:20:13

　　　　　　＼170 名前：マァヴ ◆jxAYUMI09s ／
157 マァヴ ◆＼　　　　　　　　　　　　　　　　／
　　　　　　　　　　＼また失敗した(^_^;)＞p ／Update失敗したらa
　　／￣￣￣￣￣＼　　　　　　　　　　／://pc11.2ch.net/test/r
＜　おまいら次もいき＼∧∧∧∧∧／ァヴがpc11.2ch.netの鯖
　＼＿＿＿＿＿＿＿＜　　　　　　　＞tp://news23.2ch.net/t
　　　　　　　　　　　　　＜　予　　ま　＞また、マァヴ◆jxAYUMI09
　　　　　　　　　　　　　＜　　　　　た　＞p://news23.2ch.net/te
─────────＜　感　　失　＞──────────
　／￣￣￣￣￣￣￣＜　　　　　敗　＞616 名前：マァヴ ◆jxAY
＜ pc11のBIOSアップ＜　 !!!!　　の　＞>607
　＼＿＿＿＿＿＿＿＜　　　　　　　＞ファイルの準備がいまいち
　　　　　　　　　　　　　／∨∨∨∨∨＼
　　　　　　＼オーー／　　　　　　　　　　＼オフレコ-------------
　　　∧＿∧∧＿／74 名前：マァヴ ◆jxA＼たく言うと、更新用の
　　（　　　　）　／　　　　　　　　　　　　　　　　＼でオフレコ-------
　　　　　　　／ BIOSアップデート失敗した(^_^;) ＼
http://www.maido3.com/server/

期待してますよ

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 17:21:23

そんでもって、すべてのアカウントの過去ログが見れるかどうかをチェックする・・・・と(^_^;)
まず、サンプルURLを用意しよう。

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 18:00:11

**花子 ★** · 2008/10/27(月) 18:00:14

banana3000.maido3.com

Uptime: 3 days, 23:03
／￣￣￣￣￣＼
|　・　Ｕ　　　　　　|　　　　　おしらせだぞう
| |ι　　　　　　　|つ
Ｕ｜｜￣￣｜｜　　
　　￣　　　　　￣

**花代 ★** · 2008/10/27(月) 18:03:41

banana3001.maido3.com

　　　　 ∧__∧
　　　　(　･ω･) 　花代どす
　　　　ﾊ∨/^ヽ
　　　ﾉ::[三ﾉ　:.､
　　 i)､_;|*く;　　ﾉ
　　　　 |!: ::.".T~
　　　　ﾊ､___|
"""~""""""~"""~"""~"
Uptime: 5 days, 4:23

**マァヴ** ◆jxAYUMI09s · 2008/10/27(月) 18:06:00

>197
壷で全部読めた(^_^;)
さて、再起動したらどうなるか・・・・

ってことでいよいよ長女の再起動行きます。
これで不具合が出た場合・・・・
・必死になってcgiを直す
・必死になって花子から再移転
の２つの道がある(^_^;)