245 |
$wiki->{var}->{client}->{user_agent_name} |
$wiki->{var}->{client}->{user_agent_name} |
246 |
= $wiki->{input}->meta_variable ('HTTP_USER_AGENT'); |
= $wiki->{input}->meta_variable ('HTTP_USER_AGENT'); |
247 |
$wiki->{var}->{client}->{used_for_negotiate} = ['User-Agent']; |
$wiki->{var}->{client}->{used_for_negotiate} = ['User-Agent']; |
248 |
my $dg = SuikaWiki::Plugin->module_package ('Downgrade'); |
try { |
249 |
$dg->set_downgrade_flags ($wiki) if $dg; |
my $dg = SuikaWiki::Plugin->module_package ('Downgrade'); |
250 |
|
$dg->set_downgrade_flags ($wiki) if $dg; |
251 |
|
} catch SuikaWiki::Plugin::error with { |
252 |
|
my $err = shift; |
253 |
|
$err->raise unless $err->{-type} eq 'PLUGIN_NOT_FOUND'; |
254 |
|
}; |
255 |
|
|
256 |
## TODO: PATH_INFO support |
## TODO: PATH_INFO support |
257 |
|
|