$title

#!/usr/bin/perl -- #!/usr/local/bin/perl -w # # BlogPet飼育箱・・・こうさぎの投稿を表示するCGI # require 'marimo-ini.pl'; my $cgi = "cbox.cgi"; my $qry = $ENV{'QUERY_STRING'}; my $ref = $ENV{'HTTP_REFERER'}; #my $qry = ''; #my $qry = 'page=2'; #my $ref = 'underdone.visithp.jp'; my $page = 1; my @param = split(/\&/,$qry); foreach $prm (@param){ my ($prm_name,$prm_dat) = split(/\=/,$prm); if ($prm_name eq "page") { $page = $prm_dat; } } mkdir $data_dir, 0755 unless -e $data_dir; # ファイルリストから該当するページを探す my $date = ""; my @dates; if ( open(IN, $data_dir . $listfile) ) { while () { chop; unshift(@dates, $_); } close(IN); $date = $dates[$page-1]; } # ファイル内容を読み込み my $date_str = ""; my $title = ""; my @description; my $open = $filename . $date . ".txt"; my $i; my $desc; if ( open(IN, "$open" ) ) { $date_str = ; chop($date_str); $title = ; chop($title); @description = ; for ($i=0; $i<@description; $i++) { $desc = $description[$i]; $desc =~ s//\n/; $desc =~ s/\n/
/; $description[$i] = $desc; } close(IN); } sub header{ print "Content-type: text/html\n\n"; print << "EOS"; EOS if ($rss_count > 0) { print "\n"; } print << "EOS"; $title EOS } sub footer{ print << "EOS"; EOS } &header; if ($header ne "") { print $header; } print <<"HTML";

HTML # ページきりかえを表示 my $before = $page-1; my $next = $page+1; if ($before > 0) { print "$beforeanc"; } else { print "$beforeanc"; } print " | "; if ($next <= $#dates+1) { print "$nextanc"; } else { print "$nextanc"; } print "\n"; print <<"HTML";

$diarytitle ($date_str)

$title

HTML foreach (@description) { print $_; } print <<"HTML";

HTML if ($before > 0) { print "$beforeanc"; } else { print "$beforeanc"; } print " | "; if ($next <= $#dates+1) { print "$nextanc"; } else { print "$nextanc"; } print "
\n\n"; print <<"HTML";

HTML &footer;