Name:
	Plugin
FullName:
	Plugin information
URI:
	IW:SuikaWiki:WikiPlugin

{
Name:
	wikiform_input/wiki-plugin-info
FullName:
	Output information of all installed WikiPlugins
Format:
	unless ($SuikaWiki::Plugin::List{_all}) {
	  $r .= qq('''@{[$o->resource('Plugin:NoPluginInstalled')]}'''\n);
	} else {
	  my $index = 0;
	  for my $pack (sort @{$SuikaWiki::Plugin::List{_all}}) {
	    $index++;
	    my $prop = {};
	    eval q{$prop = $pack->property ()} or $prop->{add_info} = $@;
	    $r .= <<EOH;
	<h2>$pack</h2>
	
	<p>'''@{[$o->escape($prop->{name})]}''' (@{[$o->resource('Plugin:Version=',-escape=>1)]} @{[$o->escape($prop->{version})]})
	&lt;@{[$o->escape($prop->{uri})]}&gt;</p>
	@{[$prop->{add_info}?qq(<p>@{[$o->escape($prop->{add_info})]}</p>):'']}
	
	<p>@{[$o->resource('Plugin:Provide=',-escape=>1)]}</p>
	<ul>
	@{[do{my $t = ''; for my $f (@{$prop->{provide}||[]}) {
	    $t .= qq(<li>''@{[$o->escape($f)]}''<ul>\n);
	    my $dash = $o->resource('Plugin:--',-escape=>1);
	    for (sort grep m#^\Q$f\E/#, keys %{$prop->{partinfo}}) {
		 $t .= qq(  <li>''@{[$o->escape($_)]}'' $dash @{[$o->escape($prop->{partinfo}->{$_})]}</li>\n);
	    }
	    $t .= qq(</ul></li>\n);
	}$t}]}</ul>
	
	EOH
	  }
	}
}

{
Name:
	wikiform_input/wiki-plugin-provide-list
FullName:
	Output "provide" information of the WikiPlugin
Format:
	my $pack = qq(SuikaWiki::Plugin::$p->{name});
	eval q{
	  my $prop = $pack->property ();
	  $r = <<EOH;
	<ul>
	@{[do{my $t = ''; for my $f (@{$prop->{provide}||[]}) {
	    $t .= qq(<li>''@{[$o->escape($f)]}''<ul>\n);
	    my $dash = $o->resource('Plugin:--',-escape=>1);
	    for (sort grep m#^\Q$f\E/#, keys %{$prop->{partinfo}}) {
		 $t .= qq(  <li>''@{[$o->escape($_)]}'' $dash @{[$o->escape($prop->{partinfo}->{$_})]}</li>\n);
	    }
	    $t .= qq(</ul></li>\n);
	}$t}]}</ul>
	EOH
	};
}

{
Name:
	wikiform_input/wiki-plugin-property
FullName:
	Returns property of the WikiPlugin
Format:
	my $pack = qq(SuikaWiki::Plugin::$p->{name});
	eval q{ $r = $o->escape ($pack->property ($p->{prop})) };
}

POD:LICENSE:
	Copyright 2002 Wakaba <w@suika.fam.cx>
	
	%%GNUGPL2%%