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'; |