--- wifky.pl Sat May 13 18:26:16 2006
+++ index.cgi Sat May 27 16:47:34 2006
@@ -5,7 +5,7 @@
$::PROTOCOL = '(?:s?https?|ftp)';
$::RXURL = '(?:s?https?|ftp)://[-\\w.!~*\'();/?:@&=+$,%#]+' ;
$::charset = 'EUC-JP';
-$::version = '1.0.2.4';
+$::version = '1.0.2.4 (+XHTML)';
%::form = ();
$::me = $::postme = ( split(/[\/\\]/,$0) )[-1];
$::print = ' 'x 10000; $::print = '';
@@ -79,8 +79,8 @@
'comment' => \&plugin_comment ,
'sitename' => sub{ &enc(exists $::config{sitename} ?
$::config{sitename} : '') } ,
- 'br' => sub{ '
+
+
' } ,
- 'clear' => sub{ '
' } ,
+ 'br' => sub{ '
' } ,
+ 'clear' => sub{ '
' } ,
'lt' => sub{ '<' } ,
'gt' => sub{ '>' } ,
'amp' => sub{ '&' } ,
@@ -120,18 +120,17 @@
@::html_header = (
qq(
-
-
-
- )
+ content="text/html; charset=$::charset" />
+
+
+
+ )
);
@::body_header = ;
@::menubar = (
- qq(FrontPage) ,
- qq(New) ,
+ qq(For Admins: New) ,
);
### menubar ###
@@ -140,15 +139,16 @@
&is_frozen() or
push(@::menubar,qq(Edit) );
push( @::menubar ,
- qq{Edit(Admin)} );
+ qq{Edit} );
}
push(@::menubar ,
qq(Tools) ,
qq(Index) );
@::copyright = (
- qq(Generated by wifky $::version with Perl $])
+ qq(Powered by wifky $::version with Perl)
);
@::formtext = ();
@@ -341,43 +341,43 @@
&putenc('
New Sign(1):
New Sign(2):Preferences
Wait or Click Here));
}
@@ -843,12 +844,12 @@
&putenc('
');
&end_day();
&print_copyright;
@@ -809,7 +810,7 @@
&puts('');
&puts(qq(Rename
',$s,'
'); }elsif( $fragment =~ /\A""/s ){ $fragment =~ s/^""//gm; - &puts(''.&preprocess($fragment,$session). - '' ); + &puts('
' ); }elsif( $fragment =~ /\A\s*\|\|/ ){ &puts(''.&preprocess($fragment,$session). + '