03/12/01 22:25 xMstLl8J
#!/usr/local/bin/perl
$url = $ENV{'REQUEST_URI'};
$url = $2 if($url =~ /^http:\/\/(.*)/i);
$url = "URLﾘﾝｸ($url)<) by Marsa</a>031121</i></p>\n";
03/12/01 22:25 xMstLl8J
#!/usr/local/bin/perl
$url = $ENV{'REQUEST_URI'};
$url = $2 if($url =~ /^http:\/\/(.*)/i);
$url = "URLﾘﾝｸ($url)<) by Marsa</a>031121</i></p>\n";