misao全文検索

2009/10/27 (火) 10:19:22　 ◆　 ▼　 ◇　 [qwerty]
#!/usr/local/bin/perl
require './jcode.pl';

use strict;
use warnings;

our ($unko_deny)  = 'deny.txt';

#
# 弾き
#
print "<html lang=\"ja\">\n";
print "  <head>\n";
print "    <meta http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">\n";
print "    <title>おはじき</title>\n";
print "  </head>\n";
print "  <body bgcolor=\"#000000\" text=\"#ffffff\" link=\"#ffff33\" vlink=\"#ffff33\" alink=\"#ffff33\">\n";
print "    <a name=\"top\"></a>\n";
print "    <br>\n";
print "\n";
print "    <strong>規制情報</strong><br>\n";
print "    <br>\n";
print "    <a href=\"./\">index</a><br>\n";
print "    <br>\n";
  if (! (-f $unko_deny))
  {
    #ファイルがないよ
    print "現在いかなる規制もされていません。<br />\n";
  }
  else
  {
    open (FH, '<'.$unko_deny) or die "$!";
    foreach (<FH>)
    {
      print $_."<br />\n";
    }
    close (FH);
  }

print "    この他にも不審なプロキシサーバからのアクセスを自動で規制しています。<br>\n";
print "    みなさまのご理解とご協力をお願いいたします。<br>\n";
print "\n";
print "    <br>\n";
print "    <div align=\"right\"><small>おはじき v0.01</small></div>\n";
print "    <a name=\"bottom\"></a>\n";
print "  </body>\n";
print "</html>\n";