#! /usr/bin/perl -w
use strict;
use vars qw(%Conf);
use constant LOCK_SH => 1;
use constant LOCK_EX => 2;
use constant LOCK_NB => 4;
use constant LOCK_UN => 8;
%Conf = (
data_file => "../topics.txt",
charcode => "sjis", # データファイルの文字コード jcode.pl の形式
br => "\x0D\x0A", # データファイルの改行
stylesheet => "../default.css",
title => "トピックスの編集",
backto => "../",
passwd => "fukafuka",
form_mesg => << "EOD",
- トップページに表示されるトピックスを変更します。
- 各トピックは<p>〜</p>で括って下さい。
- バックアップはとってません。既存のトピックを削除するときは気を付けてください。
- [Clear]ボタンを押すとフォーム内のデータが元に戻ります。
- パスワードを入力し、[Edit]ボタンを押すと変更が反映されます。
- 変更が成功するとトップページに戻ります。
EOD
);
&main();
sub main {
my %form =();
require("jcode.pl");
&read_query(\%form);
&write_data(\%form) if ($form{'action'} eq "edit");
&print_form();
exit(0);
}
sub write_data {
my $form = shift;
if($form->{'passwd'} eq $Conf{'passwd'}) {
$form->{'topics'} =~ s/\x0D\x0A|\x0D|\x0A/$Conf{'br'}/g;
&jcode::convert(\$form->{'topics'}, $Conf{'charcode'});
open(OUT, "> $Conf{'data_file'}") or
print_error("Writing Error", "The data file could not open.", $!);;
eval{ flock(OUT, LOCK_EX) };
print(OUT $form->{'topics'});
close(OUT);
eval{ flock(OUT, LOCK_UN) };
print("Location: $Conf{'backto'}\n\n");
exit(0);
}
}
sub read_query {
my $query = shift;
my($key, $value, $buf) = ();
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
foreach (split(/&/, $buf)) {
$key = $value = "";
($key, $value) = split(/=/, $_, 2);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode::convert(\$value, "euc");
$query->{$key} = $value;
}
}
}
sub escape_metachar {
my $ref_string = shift;
$$ref_string =~ s/&/&/g;
$$ref_string =~ s//>/g;
$$ref_string =~ s/\"/"/g;
}
sub print_form {
open(IN, $Conf{'data_file'}) or
print_error("Loading Error", "The data file could not open.", $!);
eval{ flock(IN, LOCK_SH) };
print("Content-Type: text/html; charset=EUC-JP\n");
print("Content-Language: ja\n");
print("\n\n");
print("\n");
print("\n\n");
print("\n");
print("\t", $Conf{'title'},"\n");
print("\t\n");
print("\n\n");
print("\n");
print("", $Conf{'title'}, "
\n\n");
print($Conf{'form_mesg'});
print <<"EOD";
EOD
print("\n\n");
print("\n\n\n");
print("\n\n\n");
eval{ flock(IN, LOCK_UN) };
close(IN);
}
sub print_error {
my($error_name, @error_mesg) = @_;
print("Content-Type: text/html; charset=ISO-8859-1\n");
print("Content-Language: en\n");
print("\n");
print("\n");
print("\n\n\tSystem Error\n");
print("\n\n\n\n$error_name
\n\n\n");
foreach (@error_mesg) {
print("\t- $_
\n");
}
print("
\n\n\n\n");
exit(1);
}