';
$immail = '
';
$imhome = '
';
# new.gifなどの画像ファイルは各自で用意してください。
# 画像を使用しない場合は $imnew = 'NEW';などに書き換えてください。
# --------------
$rhost = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($rhost eq $addr || $rhost eq "") { $rhost = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr; }
&form_decode;
$mode = $FORM{'mode'};
@lines = &read_data($datafile);
if ($banner == 1){require($banner_data);}
if($mode eq 'regist'){®ist;}
print "Content-type: text/html\n\n";&head;$aaa=1;
if($mode eq 'edit'){&editor;}
if($mode eq 'useredit'){&uedit;}
if($mode eq 'ed'){&user;}
if($mode eq 'delete'){&del2;}
if($mode eq 'pick'){&pick;}
if($mode eq 'new'){&neo;}
&view;
&plist;
&html_end;
# ----------------
sub form_decode{
if($ENV{'REQUEST_METHOD'} eq "POST"){read(STDIN, $buffer, $ENV{CONTENT_LENGTH});}
else{$buffer = $ENV{'QUERY_STRING'}};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');
&jcode'h2z_sjis(*value);
$value =~ s//>/g;
$value =~ s/<>/<>/g;
$value =~ s/<\!--/<\!--/g;
$FORM{$name} = $value;
}
}
# --------------
sub read_data{
&lock_file;
if (!open(IN,$_[0])){
unlink($lockfile);
&error("現在は使えません。");
}
local(@lines) = 
$banner2 _HONOKA_ exit; } # --------------- sub neo{ print<<"_HONOKA_";
SiteTOP Return.... TOP Return.....
イベント登録画面
_HONOKA_ &html_end; } # --------------- sub view{ print<<"_HONOKA_";新規投稿 ◆ 管理 ◆ SiteTOP Return....
$imnew ・・・ 新着（１週間以内） $immail ・・・ 連絡先MAIL $imhome ・・・ ホームページあり
_HONOKA_ } # --------------- sub plist{ print<<"_HONOKA_";|
イベント名
|
日時 |
サーキット
|
MAIL
|
HP
|
投稿者
| |
|
$neo |
$event |
$date |
$area |
$ml
|
$home
|
$name |
/g; $naiyou =~ s/\r|\n/
/g; if(length($naiyou) < 10){&error('この書き込みは認められません。');} if(length($naiyou) > 1200){&error('1200文字以上の投稿は、受け付けられません。');} if(($day < 1)||($day > 31)){&error('日付が間違っています。');} if(($month < 1)||($month > 12)){&error('日付が間違っています。');} if($year < 1900){&error('年は、西暦で書いてください。');} foreach($month,$day){if(length($_) < 2){$_ = "0$_";}} $htime = "$year$month$day"; $youbi = &getweek($year,$month,$day); foreach($month,$day){if($_ < 10){$_ =~ s/0//;}} $wtime = time; $ev = "$htime<>$wtime<>$name<>$email<>$url<>$event<>$month月$day日($youbi[$youbi])<>$area<>$etime<>$money<>$naiyou<>$renraku<>$tel<>$place<>$dpass<>\n"; local(@new); for($i=0;$i<@lines;$i++){ if(($arp==1)||($htime > $lines[$i])){push(@new,$lines[$i]);} else{push(@new,$ev);push(@new,$lines[$i]);$arp=1;} } if($arp == 0){push(@new,$ev);} @lines = &write_data($datafile,@new); } sub getweek{ local($year, $month, $day) = (@_); if ($month == 1 || $month == 2) { $year--; $month += 12; } int($year + int($year/4) - int($year/100) + int($year/400) + int((13*$month+8)/5) + $day) % 7; } # --------------- sub pick{ $no = $FORM{'no'}; local($flg,$i)=(0,0); while($flg==0){ local($wt) = (split(/<>/,$lines[$i]))[1]; if($wt == $no){$flg = 1;}else{$i++;} if($i == @lines){$flg = 2;} } if($flg == 2){&error('その記事は存在しません。');} else{ local($ht,$wtime,$name,$email,$url,$event,$date,$area,$et,$money,$naiyou,$renraku,$tel,$place)=split(/<>/,$lines[$i]); local(@dd) = localtime($wtime); $dd[5] = $dd[5]+1900;$dd[4]++; &img; print<<_HONOKA_;
Site TOP Return....
TOP Return.....
$imnew ・・・ 新着（１週間以内）
$immail ・・・ 連絡先MAIL
$imhome ・・・ ホームページあり
|
$neo
|
イベント名 ： $event |
| |||||||||||||||||||||||||||||||||||||||||||
管理室
戻る
| 削除したい場合は削除したい投稿をチェックしてから投稿削除のボタンをクリックしてください。 |