#!/usr/local/bin/perl
#御茶御茶そふと用ログカッター V1.00
#
# Copyright(c) 2000 Yuumi
# http://gochagocha.ribbon.to/
# gochagocha@ribbon.to
#
# 本プログラムはフリーソフトウェアーです。使用するには以下の使用許諾事項をお守りください
#
# 使用許諾事項
# １．商用目的に使用してはいけません
# ２．著作権を削除して使用してはいけません
# ３．著作権を削除して２次創作物を作成する、又は２次配布を行ってはいけません
$newsfile = './news.html';
$b_url = 'http://cosplay.hypermart.net/news.html';
$HTML_HEADER = <<"_HTML_";
御茶御茶の新着情報
_HTML_
$HTML_FOOTER = <<"_HTML_";
<-- return to index[0]
<-- i-mode rentBBS(iさくら)[9]
_HTML_
if( $ENV{'HTTP_REFERER'} ne '' ){ &tobashi; }
if( $ENV{'HTTP_USER_AGENT'} !~ m/DoCoMo/ig ){ &tobashi; }
print ("Content-type: text/html\n\n");
my $std_p , $etd_p , $np = 0 ;
if(open( FI , $newsfile )){
@lines = ;
close( FI );
foreach $line ( @lines ){
if( $line =~ m//i ){ $std_p = $np; }
if( $line =~ m/<\/tr>/i ){ $etd_p = $np; }
if( $line =~ m// ){ last; }
$np++;
}
print $HTML_HEADER;
my $i = $std_p + 1;
while( $i < $etd_p ){
$lines[$i] =~ s/
/\0/ig;
$lines[$i] =~ s/<.*?>//g;
$lines[$i] =~ s/\0/
/ig;
print $lines[$i];
$i++;
}
print $HTML_FOOTER;
}else{
print "File Operation Error!\n";
}
exit;
sub tobashi{
print "Content-type: text/html\n";
print "Location: $b_url\n\n";
}