#!/usr/bin/perl #****************************************************************************** #atlink.cgi - Automatic Link Ver.2.01 # #Version :2.01 #modified :2000/05/30 #Copyright :The Room #E-Mail :kmorita@allnet.ne.jp #URL :http://starlight.ci.nu/home/dream/room/index.shtml # #これはフリー素材です。 #転載・商用目的の利用の際には、メールをお願いします。 # #****************************************************************************** #1行目のperlのディレクトリ指定は、サーバによって異なります。 #詳しくは、管理者にお聞きください。 #****************************************************************************** # #画面設定 # #タイトル $title = "九度山町商工会リンク集"; # #ページ上部に表示する題名 $pagetop =''; # #ホームページURL(HOMEのリンクで戻るところ) $backhome = "../index.htm"; # #****************************************************************************** # #リンク設定 # #カテゴリー名 # ５つ以上のカテゴリーを作りたいときは、 # $catname[5]="ラーメン屋"; # このように、[]内の数値を増やしてください。 $catname[0]="九度山町関連"; $catname[1]="商工会関連"; $catname[2]="和歌山県関連"; $catname[3]="その他"; # #****************************************************************************** # #画面全体 # #BODYタグ $bodytag=''; # $tdcl1 = "#c0c0ff"; #リンク表示のバナー・題名の背景色 $tdcl2 = "#e0e0ff"; #リンク表示のコメント部の背景色 $bordercolor="#a0a0ff"; #リンク表示の枠の色 # $bannerfit = 1; #バナー表示の大きさを固定する場合は1を設定。 @bannersize=(88,31); #上で1を設定したときの大きさ（縦,横） # $hrcolor="#d0d0ff"; #HRタグの色（IEでしか効果はありません） # #****************************************************************************** # #内部設定 # $datafile="./data.dat"; #データファイル名 # $adminpass="kudoyama"; #管理用パスワード # #****************************************************************************** # #その他の設定 # $jcode="./jcode.pl"; #jcode.plの位置 # #****************************************************************************** # #スタイルシート設定 # $style = 1; #スタイルシートを使用するなら1を。 # #使用するスタイルシート # 「$sheet = <\n"; } #jcode.plの読みこみ require $jcode; #データ受け取り $cl = $ENV{"CONTENT_LENGTH"}; if( $cl > 0 ){ read(STDIN, $qs, $cl ); }else{ $qs = $ENV{"QUERY_STRING"}; } @contents = split(/&/,$qs); foreach $i (0 .. $#contents) { local($key,$text)= split(/=/,$contents[$i]); $text =~ s/\+/ /g; $text =~ s/%(..)/pack("c",hex($1))/ge; $text =~ s/\r\n/\n/g; $text =~ s/\n//g; &jcode'convert(*text,"sjis"); if ($key ne 'sitedata'){ $text =~ s/<\s*\b[^>]*>//g; } $action = $text if $key eq 'action'; $cat = $text if $key eq 'cat'; $sitecat = $text if $key eq 'sitecat'; $sitename = $text if $key eq 'sitename'; $siteurl = $text if $key eq 'siteurl'; $sitebanner = $text if $key eq 'sitebanner'; $sitecomment = $text if $key eq 'sitecomment'; $siteemail = $text if $key eq 'siteemail'; $sitepass = $text if $key eq 'sitepass'; $sitedata = $text if $key eq 'sitedata'; $sitedata2 = $text if $key eq 'sitedata2'; $condition = $text if $key eq 'condition'; } #データチェック if ($action eq ""){$action = "indicate";} if ($cat eq ""){$cat = 0;} if ($sitecat eq ""){$sitecat = 0;} #actionの値で命令分岐 &hphead; if ($action eq "indicate"){&indicate;} elsif ($action eq "regist1"){®ist1;} elsif ($action eq "regist2"){®ist2;} elsif ($action eq "change1"){&change1;} elsif ($action eq "change2"){&change2;} elsif ($action eq "change3"){&change3;} elsif ($action eq "delete1"){&delete1;} elsif ($action eq "delete2"){&delete2;} elsif ($action eq "delete3"){&delete3;} elsif ($action eq "search1"){&search1;} elsif ($action eq "search2"){&search1;&search2;} &hpfoot; exit; #*********************************検索ルーチン********************************* sub search1{ # #検索フォーム表示 # print <
登録されているサイトの検索を行います。

検索文字
条件 AND OR
EOD } #****************************************************************************** sub search2{ # #検索 # open (IN,"$datafile"); flock(IN,1); @y1=; close (IN); @terms=split(/ /,$sitedata); print "
\n
"; if ($sitedata eq ""){ print "
検索文字を入力してください。


\n"; }else{ $buffer = ""; $flag = 0; #検索開始 for ($i=$#y1;$i>=0;$i--){ @y2 = split(/<>/,$y1[$i]); $ct = -1; #検索文字の照合チェック for ($j=0;$j<=$#terms;$j++){ if ($y1[$i] =~ /$terms[$j]/i){$ct++;} } if ((($condition == 0) && ($ct == $#terms)) || (($condition == 1) && ($ct >= 0))){ $flag++; if ($y2[3] eq ""){ $a1 = "
$y2[1]

"; }else{ if ($bannerfit == 0){ $a1 = "
$y2[1]
"; }else{ $a1 = "
$y2[1]
"; } } #リンク表示 $buffer .=""; $buffer .="$a1
 $y2[4]

"; } } #表示 if ($flag == 0){ print "
「$sitedata」は見つかりませんでした。


"; }else{ print "
「$sitedata」$flag件のリンクが見つかりました。

"; print "
"; print ""; print $buffer; print "


"; } } print "
"; } #****************************************************************************** sub delete1{ # #削除・認証フォーム表示 # print <
サイトの削除を行います。よろしければ、決定ボタンを押してください。

サイト名
パスワード

EOD } #****************************************************************************** sub delete2{ # #削除フォームor認証エラー表示 # $flag = 0; open (IN,"$datafile"); flock(IN,1); @y1 = ; close (IN); for ($i=0;$i<=$#y1;$i++){ @y2 = split(/<>/,$y1[$i]); if ((($sitename eq $y2[1]) && ($sitepass eq $y2[6])) || (($sitename eq $y2[1]) && ($sitepass eq $adminpass))){ $flag = 1; last; } } if ($flag == 0){ #認証エラー print <

サイト名またはパスワードが違います。





EOD }else{ $sitecat=$y2[0]; $sitename=$y2[1]; $siteurl=$y2[2]; $sitebanner=$y2[3]; $sitecomment=$y2[4]; $siteemail=$y2[5]; $sitepass=$y2[6]; if ($sitebanner eq ""){ $b1 = "（無し）"; }else{ if ($bannerfit == 0){ $b1 = ""; }else{ $b1 = ""; } } #削除確認表示 print <
以下のサイトを削除します。よろしければ削除ボタンを押してください。

カテゴリー $catname[$sitecat]
サイト名 $sitename
URL $siteurl
バナー $b1
コメント $sitecomment
メールアドレス $siteemail
パスワード $sitepass

EOD } } #****************************************************************************** sub delete3{ # #削除完了表示 # open (IO,"+<$datafile"); flock(IO,2); @y1=; for ($i=0;$i<=$#y1;$i++){ @y2=split(/<>/,$y1[$i]); if ($y2[2] eq $siteurl){ splice(@y1,$i,1); last; } } truncate(IO,0); seek(IO,0,0); print IO @y1; close (IO); #完了表示 print <
削除が完了しました。

御利用ありがとうございました。


戻る

EOD } #****************************************************************************** sub change1{ # #変更・認証フォーム表示 # print <
サイトの変更を行います。必要事項を入力して、決定ボタンを押してください。

サイト名
パスワード

EOD } #****************************************************************************** sub change2{ # #変更フォームor認証エラー表示 # $flag = 0; open (IN,"$datafile"); flock(IN,1); @y1 = ; close (IN); for ($i=0;$i<=$#y1;$i++){ @y2 = split(/<>/,$y1[$i]); if ((($sitename eq $y2[1]) && ($sitepass eq $y2[6])) || (($sitename eq $y2[1]) && ($sitepass eq $adminpass))){ $flag = 1; last; } } if ($flag == 0){ #認証エラー print <

サイト名またはパスワードが違います。





EOD }else{ $sitecat=$y2[0]; $sitename=$y2[1]; $siteurl=$y2[2]; $sitebanner=$y2[3]; $sitecomment=$y2[4]; $siteemail=$y2[5]; $sitepass=$y2[6]; if ($sitebanner eq ""){$sitebanner="http://";} #変更フォーム表示 print <
以下のフォームに必要事項を入力し、変更ボタンを押してください。

カテゴリー $catname[$sitecat] （変更不可）
サイト名
URL
バナー
（無い場合は無記入）
コメント
（簡単な紹介・タグ不可）
メールアドレス
パスワード
（半角英数字8字以内）
EOD } } #****************************************************************************** sub change3{ # #変更完了or入力エラー表示 # open (IO,"+<$datafile"); flock(IO,2); @y1=; $emsg = ""; for ($i=0;$i<=$#y1;$i++){ @y2=split(/<>/,$y1[$i]); if (($y2[1] eq $sitedata) && ($y2[2] eq $sitedata2)){ $bpt = $i; } elsif ($y2[2] eq $siteurl){ $emsg = "そのURLは既に登録されています。"; } } if ($emsg eq ""){ if ($sitename eq ""){$emsg = "サイト名を入力してください。";} elsif (($siteurl eq "") || ($siteurl eq "http://")){$emsg = "URL名を入力してください。";} elsif ($sitecomment eq ""){$emsg = "コメントを入力してください。";} elsif ($siteemail eq ""){$emsg = "メールアドレスを入力してください。";} elsif ($sitepass eq ""){$emsg = "パスワードを設定してください。";} elsif ($siteurl !~ /http:\/\//i){$emsg = "URLが不正です。";} elsif ($sitepass =~ /[^0-9a-zA-Z]/){$emsg = "パスワードが不正です。";} elsif ($siteemail !~ /@/){$emsg = "メールアドレスが不正です";} elsif (($sitebanner eq "http://") || ($sitebanner eq "")){$sitebanner ="";} elsif ($sitebanner !~ /http:\/\//i){$emsg = "バナーのアドレスが不正です。";} } if ($emsg ne ""){ close (IO); #入力エラー表示 print <

入力内容にエラーがありました。


$emsg



EOD }else{ $a1 = "$sitecat<>$sitename<>$siteurl<>$sitebanner<>$sitecomment<>$siteemail<>$sitepass<>\n"; splice(@y1,$bpt,1,$a1); truncate(IO,0); seek(IO,0,0); print IO @y1; close (IO); if ($sitebanner eq ""){ $b1="（無し）"; }else{ if ($bannerfit == 0){ $b1 = ""; }else{ $b1 = ""; } } if ($mailsend == 1){&mailsending(1);} #変更完了表示 print <
以下の内容で変更を行いました。

カテゴリー $catname[$sitecat]
サイト名 $sitename
URL $siteurl
バナー $b1
コメント $sitecomment
メールアドレス $siteemail
パスワード $sitepass

戻る

EOD } } #****************************************************************************** sub regist1{ # #登録フォーム表示 # if ($siteurl eq ""){$siteurl = "http://";} if ($sitebanner eq ""){$sitebanner = "http://";} print <
以下のフォームに必要事項を入力し、決定ボタンを押してください。

カテゴリー
サイト名
URL
バナー
（無い場合は無記入）
コメント
（簡単な紹介・タグ不可）
メールアドレス
パスワード
（半角英数字8字以内）
EOD } #****************************************************************************** sub regist2{ # #登録完了表示orエラー表示 # open (IO,"+<$datafile"); flock(IO,2); @y1=; $emsg = ""; $bflag = 0; for ($i=0;$i<=$#y1;$i++){ @y2=split(/<>/,$y1[$i]); if ($y2[2] eq $siteurl){ $emsg = "そのURLは既に登録されています。"; last; } } if ($emsg eq ""){ if ($sitename eq ""){$emsg = "サイト名を入力してください。";} elsif (($siteurl eq "") || ($siteurl eq "http://")){$emsg = "URL名を入力してください。";} elsif ($sitecomment eq ""){$emsg = "コメントを入力してください。";} elsif ($siteemail eq ""){$emsg = "メールアドレスを入力してください。";} elsif ($sitepass eq ""){$emsg = "パスワードを設定してください。";} elsif ($siteurl !~ /^https?:\/\/[\w|\:\@\-]+\.[\w|\:\!\#\%\=\&\-\|\@\~\+\.\?\/]+$/i){$emsg = "URLが不正です。";} elsif ($sitepass =~ /[^0-9a-zA-Z]/){$emsg = "パスワードが不正です。";} elsif ($siteemail !~ /[\w\.\-\&]+\@[\w\.\-\&]+\.[\w\.\-\&]/){$emsg = "メールアドレスが不正です";} elsif (($sitebanner eq "http://") || ($sitebanner eq "")){$sitebanner="";} elsif ($sitebanner !~ /^https?:\/\/[\w|\:\@\-]+\.[\w|\:\!\#\%\=\&\-\|\@\~\+\.\?\/]+$/i){$emsg = "バナーのアドレスが不正です。";} } if ($emsg ne ""){ #入力エラー表示 close (IO); print <

入力内容にエラーがありました。


$emsg



EOD }else{ $a1 = "$sitecat<>$sitename<>$siteurl<>$sitebanner<>$sitecomment<>$siteemail<>$sitepass<>\n"; truncate(IO,0); seek(IO,0,0); print IO @y1; print IO $a1; close (IO); if ($sitebanner eq ""){ $b1="（無し）"; }else{ if ($bannerfit == 0){ $b1 = ""; }else{ $b1 = ""; } } if ($mailsend == 1){&mailsending(0);} #登録完了表示 print <
登録が完了しました。
以下の情報は、忘れないようにメモしておいてください。

カテゴリー $catname[$sitecat]
サイト名 $sitename
URL $siteurl
バナー $b1
コメント $sitecomment
メールアドレス $siteemail
パスワード $sitepass



EOD } } #****************************************************************************** sub indicate{ # #リンク表示 # open (IN,"$datafile"); flock(IN,1); @y1=; close (IN); print "
"; &navi2; $flag = 0; for ($i=$#y1;$i>=0;$i--){ @y2 = split(/<>/,$y1[$i]); if ($y2[0] == $cat){ if ($flag == 0 ){ $flag =1; print "
\n"; #テーブルタグ表示 print "
"; print ""; print "\n"; } if ($y2[3] eq ""){ $a1 = "
$y2[1]

"; }else{ if ($bannerfit == 0){ $a1 = "
$y2[1]
"; }else{ $a1 = "
$y2[1]
"; } } #リンク表示 print ""; } } if ($flag == 1){ print "
$catname[$cat]
"; print "$a1
 $y2[4]

\n"; }else{ #リンクが無い場合 print "


「$catname[$cat]」に登録されているリンクはありません。


"; } print "
"; &navi2; } #****************************************************************************** sub navi1{ # #設定用ナビゲーションバー表示 # print "
"; print " HOME　"; if ($action =~ /indicate/){ print " 表\示　"; }else{ print " 表\示　"; } if ($action =~ /regist/){ print " 登録　"; }else{ print " 登録　"; } if ($action =~ /change/){ print " 変更　"; }else{ print " 変更　"; } if ($action =~ /delete/){ print " 削除　"; }else{ print " 削除　"; } if ($action =~ /search/){ print " 検索　"; }else{ print " 検索　"; } print "
"; } #****************************************************************************** sub navi2{ # #カテゴリー選択用ナビゲーションバー # print "
\n"; for ($i=0;$i<=$#catname;$i++){ if ($i == $cat){ print "▼$catname[$i]　"; }else{ print "▼$catname[$i]　"; } } print "

\n"; } #****************************************************************************** sub mailsending{ # #メール送信 # $buffer = "To: $siteemail\n"; $buffer .= "From: $from\n"; $buffer .= "Subject: $subject[$_[0]]\n"; $buffer .= "Content-Transfer-Encoding: 7bit\n"; $buffer .= "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n\n"; if ($_[0] == 0){&mailbody1;}else{&mailbody2;} &jcode'convert(*buffer,"jis"); open(OUT,"| $sendmail -t"); print OUT $buffer; close (OUT); } #****************************************************************************** sub hphead{ # #ヘッダ表示 # print "Content-type: text/html\n\n"; print < $title $bodytag $sheet $pagetop
EOD &navi1; } #****************************************************************************** sub hpfoot{ # #フッタ表示 # print <
EOD } #******************************************************************************