gate/2008/sw.cgi

#!/usr/bin/perl
use strict;

use lib qw[/home/httpd/html/www/markup/html/whatpm
           /home/wakaba/work/manakai2/lib
           /home/httpd/html/www/charclass/lib
           /home/httpd/html/swe/lib/];

use CGI::Carp qw[fatalsToBrowser];
require Message::CGI::Carp;

our $homepage_name = 'HomePage';
our $license_name = 'WikiPageLicense';
our $help_page_name = 'HelpPage';

our $style_url = q<http://suika.fam.cx/swe/styles/sw>;
our $script_url = q<http://suika.fam.cx/swe/scripts/sw>;
our $cvs_archives_url = q</gate/cvs/suikawiki/sw4data/>;

our $sw3_db_dir_name = q[/home/wakaba/public_html/-temp/wiki/wikidata/page/];
our $db_dir_name = 'data/';

my $log_file_name = 'data/all.tmp';
my $time1 = time;
#open my $log_file, '>>', $log_file_name;
#print $log_file "S: ", scalar gmtime, "\t", $ENV{REQUEST_URI}, "\n";
#close $log_file;
END {
my $time2 = time - $time1;
open my $log_file, '>>', $log_file_name;
print $log_file "$time2\tE: $$ ", scalar gmtime, "\t$ENV{REQUEST_METHOD} $ENV{CONTENT_LENGTH}\t", $ENV{REQUEST_URI}, "\n";
}

require 'suikawiki/main.pl';
1	#!/usr/bin/perl
2	use strict;
3
4	use lib qw[/home/httpd/html/www/markup/html/whatpm
5	/home/wakaba/work/manakai2/lib
6	/home/httpd/html/www/charclass/lib
7	/home/httpd/html/swe/lib/];
8
9	use CGI::Carp qw[fatalsToBrowser];
10	require Message::CGI::Carp;
11
12	our $homepage_name = 'HomePage';
13	our $license_name = 'WikiPageLicense';
14	our $help_page_name = 'HelpPage';
15
16	our $style_url = q<http://suika.fam.cx/swe/styles/sw>;
17	our $script_url = q<http://suika.fam.cx/swe/scripts/sw>;
18	our $cvs_archives_url = q</gate/cvs/suikawiki/sw4data/>;
19
20	our $sw3_db_dir_name = q[/home/wakaba/public_html/-temp/wiki/wikidata/page/];
21	our $db_dir_name = 'data/';
22
23	my $log_file_name = 'data/all.tmp';
24	my $time1 = time;
25	#open my $log_file, '>>', $log_file_name;
26	#print $log_file "S: ", scalar gmtime, "\t", $ENV{REQUEST_URI}, "\n";
27	#close $log_file;
28	END {
29	my $time2 = time - $time1;
30	open my $log_file, '>>', $log_file_name;
31	print $log_file "$time2\tE: $$ ", scalar gmtime, "\t$ENV{REQUEST_METHOD} $ENV{CONTENT_LENGTH}\t", $ENV{REQUEST_URI}, "\n";
32	}
33
34	require 'suikawiki/main.pl';