| 903 |
&load_formatter (qw/form_input form_option/); |
&load_formatter (qw/form_input form_option/); |
| 904 |
$definition = &unescape ($definition); |
$definition = &unescape ($definition); |
| 905 |
$definition =~ s/\\(.)/$1/g; |
$definition =~ s/\\(.)/$1/g; |
|
$definition .= ' %submit;' if $definition !~ /%submit/; |
|
| 906 |
$option = &unescape ($option); |
$option = &unescape ($option); |
| 907 |
$option =~ s/\\(.)/$1/g; |
$option =~ s/\\(.)/$1/g; |
| 908 |
$fmt{form_option}->replace ($option, $param); |
$fmt{form_option}->replace ($option, $param); |
| 909 |
|
$definition .= ' %submit;' if $definition !~ /%submit/ && !$param->{output}->{nosubmit}; |
| 910 |
my $target_page = $param->{output}->{page} || $form{mypage}; |
my $target_page = $param->{output}->{page} || $form{mypage}; |
| 911 |
$param->{form_disabled} = 1 if $fixedpage{$target_page}; |
$param->{form_disabled} = 1 if $fixedpage{$target_page}; |
| 912 |
my $target_form = $param->{output}->{id}; |
my $target_form = $param->{output}->{id}; |
| 1854 |
sub add ($) { |
sub add ($) { |
| 1855 |
my $s = shift; |
my $s = shift; |
| 1856 |
return unless length $s; |
return unless length $s; |
| 1857 |
$s =~ s/([\x00-\x08\x0A-\x1F\x25\x7F-\xFF])/sprintf '%%%02X', unpack 'C', $1/g; |
$s =~ s/([\x00-\x08\x0A-\x1F\x25\x7F-\xFF])/sprintf '%%%02X', unpack 'C', $1/ge; |
| 1858 |
my %ua; |
my %ua; |
| 1859 |
for (split /\n/, &main::__get_database('WikiUserAgentList')) { |
for (split /\n/, &main::__get_database('WikiUserAgentList')) { |
| 1860 |
if (/^-\[(\d+)\] (.+)$/) { |
if (/^-\[(\d+)\] (.+)$/) { |
Parent Directory
| 
Revision Log
| 
Patch