\n"; print ' 大容量にも使える！ファイル転送・ファイル共有サービス　～電脳デタキャビ～

大容量のファイル転送・ファイル共有サービスを、ブラウザベースで分かりやすくご提供いたします。

'; if ($_[0] == 1 ) { print " [一覧表\示]\n"; } elsif ($_[0] == 3) { print " [管理人メッセージ編集]"; } if ($_[0] >= 2) { print " [戻る]\n"; } print "\n"; print "

"; if ($title_img eq '') { } else { print " $\"$title_txt\"$ "; } print "

\n"; } #------------------------------------------------------------------------ # フッター #------------------------------------------------------------------------ sub footer { print "

\n"; print '


Copyright (C) 2005 System Graphi co.,Ltd All Rights Reserved.	利用規約　　会社概要　　プライバシーポリシー　　サイトマップ

'; print "

\n"; print "\n"; print "\n"; } #------------------------------------------------------------------------ # エラー #------------------------------------------------------------------------ sub error { &header(""); print "

\n"; print "$_[0]

\n"; print "戻る\n"; print "

"; &footer; exit; } #------------------------------------------------------------------------ # ロック #------------------------------------------------------------------------ sub lock { foreach (1 .. 5) { if (-e $lockfile) { # ファイル使用中しばらく待機 sleep(1); } else { # 書きこみＯＫ♪ open(LOCK,">$lockfile"); close(LOCK); return; } } &error("他の方が書き込み中です。"); } #------------------------------------------------------------------------ # ロック解除 #------------------------------------------------------------------------ sub unlock { if (-e $lockfile) { unlink $lockfile; } } #------------------------------------------------------------------------ # リフレッシュ♪（二重投稿禁止用） #------------------------------------------------------------------------ sub refresh { print "Content-type: text/html\n\n"; print ""; exit; } #------------------------------------------------------------------------ # 管理人メッセージの表示 #------------------------------------------------------------------------ sub kanri_view { if ( !(open(RD,"$msgfile")) ) { &error("データファイル[$msgfile]がオープン出来ません"); } @msg=; close(RD); ($title,$message,$indate) = split(/<>/,$msg[0]); &date("$indate"); $message =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1$2<\/A>/g; print "

\n"; } #------------------------------------------------------------------------ # 管理人メッセージの入力 #------------------------------------------------------------------------ sub kanri_msg { # 管理人からのお知らせ if ( !(open(RD,"$msgfile")) ) { &unlock; &error("データファイル[$msgfile]がオープン出来ません"); } @msg=; close(RD); ($title,$message,$indate) = split(/<>/,$msg[0]); &date("$indate"); $message =~ s/\/\n/g; $menu = " [戻る]\n"; &header($menu); print "

"; &footer; exit; } #------------------------------------------------------------------------ # 管理人メッセージに書きこみ #------------------------------------------------------------------------ sub msg_write { # 必須項目のチェック if ($data{'message'} eq "") { &error("メッセージを入力して下さい。"); } &lock; # ファイルのオープン if ( !(open(RD,"$msgfile")) ) { &unlock; &error("データファイル[$msgfile]がオープン出来ません"); } @msg=; close(RD); #日付の取得 $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $syear = sprintf("%02d",$year + 1900); $smonth = sprintf("%02d",$mon + 1); $sday = sprintf("%02d",$mday); $shour = sprintf("%02d",$hour); $smin = sprintf("%02d",$min); $indate = $syear.$smonth.$sday.$shour.$smin; $dat = "$data{'title'}<>$data{'message'}<>$indate\n"; if ( !(open(OUT,">$msgfile")) ) { &unlock; &error("データファイル[$msgfile]がオープン出来ません"); } print OUT $dat; close(OUT); &unlock; &refresh; } #------------------------------------------------------------------------ # 日付フォーマット #------------------------------------------------------------------------ sub date { $yy = substr($_[0],0,4); $mm = sprintf("%d",substr($_[0],4,2)); $dd = sprintf("%d",substr($_[0],6,2)); $hh = sprintf("%d",substr($_[0],8,2)); $mi = sprintf("%02d",substr($_[0],10,2)); $date = "$yy/$mm/$dd"; # 曜日の取得 if ($mm<=2) {$yy--;$mm+=12;} $w = (($yy+int($yy/4)-int($yy/100)+int($yy/400)+int((13*$mm+8)/5)+$dd)%7); $ww = $week[$w]; $date = "$date($ww) $hh:$mi"; }

カテゴリ
質問
回答 \n"; print "$answer
削除
\n"; print "