| 1 |
# -*- perl -*- |
# -*- perl -*- |
| 2 |
use strict; |
use strict; |
| 3 |
|
|
| 4 |
|
package wiki; |
| 5 |
|
our $VERSION = do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 6 |
package main; |
package main; |
|
our $VERSION = '2.'.do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
|
| 7 |
binmode STDOUT; binmode STDIN; |
binmode STDOUT; binmode STDIN; |
| 8 |
use Fcntl; |
use Fcntl; |
| 9 |
require SuikaWiki::Plugin; |
require SuikaWiki::Plugin; |
| 482 |
<input type="hidden" name="myLastModified" value="$option{last_modified}" /> |
<input type="hidden" name="myLastModified" value="$option{last_modified}" /> |
| 483 |
<input type="hidden" name="mycmd" value="write" /> |
<input type="hidden" name="mycmd" value="write" /> |
| 484 |
<input type="hidden" name="mypage" value="@{[SuikaWiki::Plugin->escape($form{mypage})]}" /> |
<input type="hidden" name="mypage" value="@{[SuikaWiki::Plugin->escape($form{mypage})]}" /> |
| 485 |
<textarea cols="@{[SuikaWiki::Plugin->resource('Edit:Form:Cols')+0||35]}" rows="@{[SuikaWiki::Plugin->resource('Edit:Form:Rows')+0||15]}" name="mymsg" tabindex="1"@{[$main::UA =~ m{Mozilla/[0-4]\.} ? ' wrap="physical"':'']}>@{[SuikaWiki::Plugin->escape($option{content})]}</textarea><br /> |
<textarea cols="@{[SuikaWiki::Plugin->resource('Edit:Form:Cols')+0||35]}" rows="@{[SuikaWiki::Plugin->resource('Edit:Form:Rows')+0||15]}" name="mymsg" tabindex="1"@{[$main::UA =~ m{Mozilla/[0-4]\.} ? ' wrap="virtual"':'']}>@{[SuikaWiki::Plugin->escape($option{content})]}</textarea><br /> |
| 486 |
@{[ |
@{[ |
| 487 |
$option{admin} ? |
$option{admin} ? |
| 488 |
qq( |
qq( |
Parent Directory
| 
Revision Log
| 
Patch