| 1 |
wakaba |
1.1 |
Name: |
| 2 |
|
|
Plugin |
| 3 |
|
|
FullName: |
| 4 |
|
|
Plugin information |
| 5 |
|
|
URI: |
| 6 |
|
|
IW:SuikaWiki:WikiPlugin |
| 7 |
|
|
|
| 8 |
|
|
{ |
| 9 |
|
|
Name: |
| 10 |
|
|
wikiform_input/wiki-plugin-info |
| 11 |
|
|
FullName: |
| 12 |
|
|
Output information of all installed WikiPlugins |
| 13 |
|
|
Format: |
| 14 |
|
|
unless ($SuikaWiki::Plugin::List{_all}) { |
| 15 |
|
|
$r .= qq('''@{[$o->resource('Plugin:NoPluginInstalled')]}'''\n); |
| 16 |
|
|
} else { |
| 17 |
|
|
my $index = 0; |
| 18 |
|
|
for my $pack (sort @{$SuikaWiki::Plugin::List{_all}}) { |
| 19 |
|
|
$index++; |
| 20 |
w |
1.2 |
my $prop = {}; |
| 21 |
|
|
eval q{$prop = $pack->property ()} or $prop->{add_info} = $@; |
| 22 |
wakaba |
1.1 |
$r .= <<EOH; |
| 23 |
|
|
<h2>$pack</h2> |
| 24 |
|
|
|
| 25 |
|
|
<p>'''@{[$o->escape($prop->{name})]}''' (@{[$o->resource('Plugin:Version=',-escape=>1)]} @{[$o->escape($prop->{version})]}) |
| 26 |
|
|
<@{[$o->escape($prop->{uri})]}></p> |
| 27 |
w |
1.2 |
@{[$prop->{add_info}?qq(<p>@{[$o->escape($prop->{add_info})]}</p>):'']} |
| 28 |
wakaba |
1.1 |
|
| 29 |
|
|
<p>@{[$o->resource('Plugin:Provide=',-escape=>1)]}</p> |
| 30 |
|
|
<ul> |
| 31 |
|
|
@{[do{my $t = ''; for my $f (@{$prop->{provide}||[]}) { |
| 32 |
|
|
$t .= qq(<li>''@{[$o->escape($f)]}''<ul>\n); |
| 33 |
|
|
my $dash = $o->resource('Plugin:--',-escape=>1); |
| 34 |
|
|
for (sort grep m#^\Q$f\E/#, keys %{$prop->{partinfo}}) { |
| 35 |
|
|
$t .= qq( <li>''@{[$o->escape($_)]}'' $dash @{[$o->escape($prop->{partinfo}->{$_})]}</li>\n); |
| 36 |
|
|
} |
| 37 |
|
|
$t .= qq(</ul></li>\n); |
| 38 |
|
|
}$t}]}</ul> |
| 39 |
|
|
|
| 40 |
|
|
EOH |
| 41 |
|
|
} |
| 42 |
|
|
} |
| 43 |
|
|
} |
| 44 |
|
|
|
| 45 |
|
|
{ |
| 46 |
|
|
Name: |
| 47 |
|
|
wikiform_input/wiki-plugin-provide-list |
| 48 |
|
|
FullName: |
| 49 |
|
|
Output "provide" information of the WikiPlugin |
| 50 |
|
|
Format: |
| 51 |
|
|
my $pack = qq(SuikaWiki::Plugin::$p->{name}); |
| 52 |
|
|
eval q{ |
| 53 |
|
|
my $prop = $pack->property (); |
| 54 |
|
|
$r = <<EOH; |
| 55 |
|
|
<ul> |
| 56 |
|
|
@{[do{my $t = ''; for my $f (@{$prop->{provide}||[]}) { |
| 57 |
|
|
$t .= qq(<li>''@{[$o->escape($f)]}''<ul>\n); |
| 58 |
|
|
my $dash = $o->resource('Plugin:--',-escape=>1); |
| 59 |
|
|
for (sort grep m#^\Q$f\E/#, keys %{$prop->{partinfo}}) { |
| 60 |
|
|
$t .= qq( <li>''@{[$o->escape($_)]}'' $dash @{[$o->escape($prop->{partinfo}->{$_})]}</li>\n); |
| 61 |
|
|
} |
| 62 |
|
|
$t .= qq(</ul></li>\n); |
| 63 |
|
|
}$t}]}</ul> |
| 64 |
|
|
EOH |
| 65 |
|
|
}; |
| 66 |
|
|
} |
| 67 |
|
|
|
| 68 |
|
|
{ |
| 69 |
|
|
Name: |
| 70 |
|
|
wikiform_input/wiki-plugin-property |
| 71 |
|
|
FullName: |
| 72 |
|
|
Returns property of the WikiPlugin |
| 73 |
|
|
Format: |
| 74 |
|
|
my $pack = qq(SuikaWiki::Plugin::$p->{name}); |
| 75 |
|
|
eval q{ $r = $o->escape ($pack->property ($p->{prop})) }; |
| 76 |
|
|
} |
| 77 |
|
|
|
| 78 |
|
|
POD:LICENSE: |
| 79 |
|
|
Copyright 2002 Wakaba <w@suika.fam.cx> |
| 80 |
|
|
|
| 81 |
|
|
%%GNUGPL2%% |
Parent Directory
| 
Revision Log