Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!sinfony-news!news01.so-net.or.jp!infosphere!digitalstudio!synapse!senri-nc!wincgw1!tokyonet.ad.jp!news2-tokyonet!news.sainet.or.jp!usenet
From: m-shiroh@sainet.or.jp (m-shiroh)
Subject: perl=?ISO-2022-JP?B?GyRCJE5HW05zPWhNfRsoQg==?=
Content-Type: Text/Plain; charset=ISO-2022-JP
Message-ID: <E189Mu.337@sainet.or.jp>
Sender: usenet@sainet.or.jp
Organization: SaiNet User.
X-Newsreader: WinVN 0.99.7J PL01 (x86 32bit)
Mime-Version: 1.0
Date: Thu, 21 Nov 1996 15:56:54 GMT
Lines: 97
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:1476
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=1476&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


$B$3$s$K$A$O!#:#!"7G<(HD%9%/%j%W%H$r2~B$$7$h$&$H;W$C$F$k$N$G$9$,!"(B

$B$D$^$C$F$^$9!#(B

========================================


   #  $B5-O?%U%!%$%k$rFI$_=P$7%*!<%W%s$7$F!"G[Ns(B<@lines>$B$K3JG<$9$k(B

   if (!open(DB,"$file")) { &error(0); }
   @lines = <DB>;
   close(DB);

   #  $B#C#G#I$G=PNO$5$l$?%G!<%?$r#H#T#M#L$H$7$FG'<1$5$;$k>l9g$N%X%C%@=PNO(B

   print "Content-type: text/html\n\n";

   #  $B#H#T#M#L$N=PNO(B ' '$B$N4V$KDL>o$N#H#T#M#LJ8$r=q$1$P$h$$(B

   print "<html><head><title>$title</title></head>\n";
   print '<body bgcolor="#abcdef" text="#000000">' . "\n";
   print "<font size=+2><b>$title</b></font><p>\n";

   print '<form method="post" action="minibbs.cgi">' . "\n";

   print "$BEj9F<T(B:<input type=text name=\"name\" size=\"30\" 
value=\"$COOKIE{'c_name'}\"><br>\n";
   print "$B%a!<%k%"%I%l%9(B:<input type=text name=\"email\" size=\"50\" 
value=\"$COOKIE{'c_url'}\"><br>\n";
   print "URL:<input type=text name=\"url\" size=\"50\" 
value=\"$COOKIE{'c_email'}\"><br>\n";
   print '<input type=checkbox name="cookie" value="on" checked>$BEj9F<T(B/$B%a!<%k%"(B
$B%I%l%9$r%V%i%&%6$K5-21$5$;$k(B<br>' ."\n";
   print '$B!J$3$N5!G=$O%M%C%H%9%1!<%W(B1.1$B0J9_$d#M#S%(%/%9%W%m!<%i(B3.0$B0J9_$J$I$N$$(B
$B$/$D$+$N%V%i%&%6$KM-8z$G$9!#!K(B<p>' . "\n";

   print '$BFbMF(B:<i>$B!J5-F~$5$l$?DL$j$K5-O?$5$l$^$9$N$G!"E,592~9T$r$$$l$F$/$@$5$$(B
$B!#!K(B</i><br>' ."\n";
   print '<textarea name="value" rows="5" cols="70"></textarea>' ."\n";

   print '$B!!(B<input type=submit value="OK">' . "\n";
   print '<input type=reset value="RESET">' . "\n";
   print '</form><p>' . "\n";
   print '<font size=-1><i>$B?7$7$$5-;v$+$iI=<($7$^$9!#(B' . "$B:G9b(B$max$B7o$N5-;v$,5-(B
$BO?$5$l!"$=$l$rD6$($k$H8E$$5-;v$+$i:o=|$5$l$^$9!#(B</i></font><br>\n\n";

   #  $B5-;v0lMw=hM}(B
   #  $BG[Ns(B<@lines>$B$+$i(B1$B7o$:$D%G!<%?$r<h$j=P$7$F=hM}$9$k(B

   foreach $line (@lines) {

     #  $B:8$+$i(B(.*)$B$KBP1~$9$k%G!<%?$,(B$1$B!A(B4$B$G<hF@$G$-$k(B

     if ($line =~ /\[(.*)\] (.*) \^ (.*) \^ (.*) \^ (.*)/) {

       $date = $1;
       $name = $2;
       $email = $3;
       $value = $4;
       $url  =  $5;

      #  $B%a!<%k%"%I%l%9$N$"$k5-;v$H$J$$5-;v$N=hM}(B

      if ($email ne "") {
          print "<hr><font size=+1 color=\"#0000ff\"><b><a 
href=\"mailto:$email\">$name</a></b></font>$B!!(B\n";
      }
      else {
          print "<hr><font size=+1 color=\"#0000ff\"><b>$name</b></font>$B!!(B\n";
      }
      print "<hr><font size=+1 color=\"#0000ff\"><b><a 
href=\"mailto:$url\">$url</a></b></font>$B!!(B\n";
      print "<font size=-1>$BEj9FF|!'(B$date</font><p>\n";
      print "<pre>$value</pre>\n\n";

   }
}
=================================================

$B$3$3$G$o$+$i$J$$!J$H$$$&$+!"%V%i%&%6$G%(%i!<I=<($,$G$^$9!#!K$N$,(B

$B$3$N%9%/%j%W%H$G!"#U#R#L$N9`L\$rA}$d$=$&$H;W$$!"%V%i%&%6>e$G$O(B

$B#U#R#L$NA*Br9`L\$O$G$^$9!#$=$7$F!"(Bline$B$G(B$url$B$rG'<1$5$;!"2<$N%a!<%k(B

$B=hM}$N8e$K(Bprint$B$GI=<($5$;$h$&$H9M$($^$7$?$,!"$I$&$b$&$^$/$$$-$^$;$s!#(B

 if ($line =~ /\[(.*)\] (.*) \^ (.*) \^ (.*) \^ (.*)/) {

$B$3$3$O!"$"$H$+$i(B \^ (.*)  $B$r#1$D2C$($F$$$^$9!#(B
===========================
mailto:m-shiroh@sainet.or.jp
url:http://www.sainet.or.jp
$B?9B<;GO/(B
========================-

