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

' + />
' , $::postme,$stamp,$title ); &puts('
'); + '
'); my $fname=&title2fname( $::form{p} ); - &puts(''); + &puts(''); if( exists $::form{admin} || &is_frozen() ){ &puts('Administrator\'s Sign: freeze '); + &puts(' />freeze '); } - &puts(''); + &puts(''); if( &object_exists($::form{p}) ){ &puts('

Attachment

New:'); - &is_frozen() and &puts('Sign:'); - &puts('

'); + >

New:'); + &is_frozen() and &puts('Sign:'); + &puts('

'); my @attachments=&list_attachment( $::form{p} ); if( scalar(@attachments) > 0 ){ &puts('

'); foreach my $attach (sort @attachments){ - &putenc('' + style="font-family:monospace" />' ,$attach ,$attach ); my $fn = &title2fname($::form{p}, $attach); &putenc('(%d bytes, at %s)',(stat $fn)[7],&mtime($fn)); - &puts('
'); + &puts('
'); } - &puts('

- '); + &puts('

+ '); } } &puts(@::formtext); @@ -411,8 +411,9 @@ &puts( @::http_header , '' ); &putenc(' - - ',$::charset); + + ',$::charset); &puts( @::html_header ); &putenc('%s',$label); my $cssn=$::config{CSS}; @@ -530,9 +531,9 @@ &print_header( divclass=>'max' ); &puts(qq(

Create Page

-

- -

)); +

+ +

)); &print_footer; } @@ -556,20 +557,20 @@ &print_header( divclass=>'max' ); &puts(qq(
)); &putenc( q(

Remove attachment

- Remove attachment '%s' of '%s'.
) + Remove attachment '%s' of '%s'.
) , $::form{f} , $::form{p} ); &is_frozen() and &puts( q(Administrator's Sign: -
) ); - &putenc('Are you sure ?
- - - - - - - ' +
) ); + &putenc('Are you sure ?
+ + + + + + + ' , $::form{p} , $::form{f} , $::form{stamp} ); - &putenc( '

', + &putenc( '

', ¥($::form{honbun}) ); &print_footer; @@ -617,10 +618,10 @@ >

Old Sign:
New Sign(1):
New Sign(2):


New Sign(1):
New Sign(2):

Preferences

',$::postme,$::postme); @@ -630,19 +631,19 @@ ,$section); foreach my $i ( @{$::preferences{$section}} ){ if( $i->{type} eq 'checkbox' ){ - &putenc(' %s
' + &putenc(' %s
' , $i->{name} , ( &is($i->{name}) ? 'checked' : '' ) , $i->{desc} ); }elsif( $i->{type} eq 'password' ){ - &putenc('%s - (retype)
' + &putenc('%s + (retype)
' , $i->{desc} , $i->{name} , $i->{name} ); }else{ # text &putenc( - '%s
' + '%s
' , $i->{desc} , $i->{name} , exists $::config{$i->{name}} ? $::config{$i->{name}} : '' , $i->{size} || 10 @@ -653,8 +654,8 @@ } &puts('Administrator\'s Sign:
'); + />'); &print_footer; } @@ -773,8 +774,8 @@ &print_header( title=>'IndexPage' , userheader=>1 ); &begin_day('IndexPage'); - &puts(qq(