#!/usr/local/bin/perl # 　　※ ↑あなたが加入しているプロバイダの「perl」言語が使用できるパスを指定します。 # 「#!/usr/local/bin/perl」、「#!/usr/local/bin/perl5」など # サーバ管理者（もしくはプロバイダ）に確認してください。 #※サンプル設置と異なる場合には、以下のパスを変更する必要があります。 require './jcode.pl'; # 日本語コード変換ライブラリ #あなたのホームページのアドレス $homepage = '../../'; #１ページに表示する行数 $pagevew = 20; #======================================================================================= # 初期設定が必要なのはここまでです。 #======================================================================================= $database = 'link.txt'; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $formdata, $ENV{'CONTENT_LENGTH'}); } else { $formdata = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$formdata); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s//>/g; $value =~ s/\n//g; $value =~ s/\,//g; $value =~ s/　/ /g; &jcode'convert(*value,'sjis'); $FORM{$name} = $value; } print < ブックマーク [リンク集擬き]

* Top

ブックマーク [リンク集擬き]

自動で登録できますので、お気軽に登録願います。

HTML if ($FORM{'action'} eq "rank") { print "\n"; print "\"*\"\n"; print "新着順\n"; } else { print "\n"; print "\"*\"\n"; print "アクセス数順\n"; } print < * 新規登録・変更・削除

HTML if (!open(DB,"$database")) { &error(bad_file); } @DATA = ; close(DB); $count = @DATA; print "
現在、$count件が登録されています。
\n"; if ($FORM{'action'} eq "rank") { @DATA = sort(@DATA); } @DATA = reverse(@DATA); if ($count > 0) { print "
\n"; #print "\n"; print "
\n"; if ($FORM{'pline'} eq '') { $pline = 0; } else { $pline = $FORM{'pline'}; } #保存されている総データ数を取得 $end_data = @DATA - 1; #１ページに表示するデータ数を今までに表示した数にプラスする $page_end = $pline + ($pagevew - 1); #ページの最後の行が総データ数以上になるそこで終わりにする if ($page_end >= $end_data) { $page_end = $end_data; } #投稿されている記事を１行ずつ表示する if ($FORM{'ranking'} < 1) { $ranking = 1; } else { $ranking = $FORM{'ranking'}; } foreach ($pline .. $page_end) { ($runc,$date,$code,$ran,$name,$email,$HPaddress,$iconaddress,$title,$subtitle,$comment,$ken,$tiku) = split(/\,/,$DATA[$_]); $comment =~ s/\r/
/g; print "
\n"; print "\"*\"\n"; if ($FORM{'action'} eq "rank") { print "$ranking位 "; } print "\n"; print "$title さん\n"; if ($subtitle ne "") { print " [$subtitle]"; } print "\n"; print " " . "-" . " $ken ($ran)\n"; if ($iconadress ne "" or $iconaddress ne "http://") { print "
\n"; print "\n"; } if ($comment ne "") { print "
$comment\n"; } print "

\n"; $ranking++; } #print "

\n"; print "\n"; #次のページの最初の行番号をこのページの最後の行に１プラスする $next_line = $page_end + 1; #まだデータが残っていれば次ページのボタンを付ける if ($page_end ne $end_data) { #次ページのためのフォームを生成 print "
\n"; print "\n"; print "\n"; if ($FORM{'action'} eq "rank") { print "\n"; } print "\n"; print "
\n"; } } print <
LinkLinkLink Ver1.2 by Terra
shacho\@critical.ne.jp
Last modified: Thu Feb 01 23:00:00 JST 2001 HTML exit; #======================================エラー処理ルーチン================================= sub error { $error = $_[0]; if ($error eq "bad_file") { $msg = 'ファイルのオープン、入出力に失敗しました。'; } elsif ($error eq "bad_string") { $msg = 'キーワードを入力してください。'; } else { $msg = '原因不明のエラーで処理を継続できません。'; } print "エラーが発生しました
\n"; print "$msg
\n"; print "
\n"; print <
shacho\@critical.ne.jp
Last modified: Thu Feb 01 23:00:00 JST 2001 HTML exit; }