|
|
#!/usr/local/bin/perl
#use "../KCatch" qw( execdata );__DATA__
my($homedir,$ban,@ban,$text,$sanko,$folder);
$folder="tokushu/furiekisokyu";
require '../../server.ini';
$homedir=$server::homedir;
open(BAN,"$homedir/$folder/top_number.txt") or die $!;
@ban=;
close(BAN);
$ban=$ban[0];
open(IN,"$homedir/$folder/messages/$ban.shtml") or die $!;
while(){
$text.=$_;
}
close(IN);
$text=~/(.+)<\/title>/;
my $title=$1;
my $body_title=$title;
$body_title=~s/\// /g;
$text=~/([\s\S]+)/;
my $body=$1;
if($text=~/\n([\s\S]+)\n/){
$sanko=$1;
}
$body =~s/src="(.+?)"/src="\/$folder\/messages\/$1"/g;
print "content-type: text/html\n\n";
print "$body_title\n";
print "$body\n";
if($sanko){
print "\n";
print "$sanko\n";
print " \n";
}
|
|
|
|