šŽO@y ƒXƒNƒŠƒvƒg‰ ..
[2ch|₯Menu]
180:178
06/12/09 20:45:46
@@$log_data = pop(@LOGDATA);
@@@($l_date,$l_comment,$l_face,$l_weather,$l_color_1,$l_color_2,$l_title,$l_time,$l_min) = split(/<>/,$log_data);
@@#V‹K“Šeƒf[ƒ^«
@@@($n_date,$n_comment,$n_face,$n_weather,$n_color_1,$n_color_2,$n_title,$n_time,$n_min) = split(/<>/,$line);

@@#Œ»έ‚ΜƒƒO‚ΜŒŽ‚πŽζ“Ύ
@@$olddate = substr($l_date,4,2);

@@#V‹K“Šeƒf[ƒ^‚©‚ηŒŽ‚πŽζ“Ύ
@@$newdate = substr($n_date,4,2);

@@#Œ»έ‚ΜŒŽ‚ζ‚θAƒƒO‚Μ•ϋ‚ͺ‘ε‚«‚©‚Α‚½‚ηEEEB
@@if($olddate < $newdate){
@@@$log_name = $logdir .'/'. substr($l_date,0,4) . substr($l_date,4,2) . '.log';

@@@open(OLD,"$log_name");
@@@@oldLOG = <OLD>;
@@@close(OLD);

@@@unshift(@oldLOG,"$log_data\n");

@@@sort sorter1 @oldLOG;

@@@open(OLD,">> $log_name")|| &error('‰ί‹ŽƒƒOƒtƒ@ƒCƒ‹/ƒfƒBƒŒƒNƒgƒŠˆΩν');
@@@print OLD @oldLOG;
@@@close(OLD);
@@@}elsif($olddate eq '12' && $newdate eq '1'){



ŽŸƒy[ƒW
‘±‚«‚π•\ަ
1‚π•\ަ
ΕVƒŒƒX•\ަ
ƒXƒŒƒbƒh‚ΜŒŸυ
—ήŽ—ƒXƒŒˆκ——
˜b‘θ‚Μƒjƒ…[ƒX
‚¨‚ά‚©‚ΉƒŠƒXƒg
₯ƒIƒvƒVƒ‡ƒ“‚π•\ަ
‰Ι‚Β‚Τ‚΅2ch

4813“ϊ‘O‚ɍXV/190 KB
’S“–:undef