SuikaWiki/Plugin/WikiResource.wps

Name:
        WikiResource
FullName:
        WikiResource interface
URI:
        IW:SuikaWiki:"Wiki//Resource"

{
Name:
        wikiform_input/res
FullName:
        Get text from resource
Format:
        $r = $o->resource ($p->{name},escape=>1);
}
{
Name:
        wikiview/res
        wikiview-resource/res
        wikiview-resource-safe/res
        wikipage_list_item/res
FullName:
        Get text from resource
Note:
        "safe" option is very dangerous (it can lead the XSS problems).
        Be careful, in case using with world-readable resource database.
Format:
        if ($p->{safe}) {
          $r = $o->formatter('view-resource-safe')->replace ($o->resource ($p->{name}), $o);
        } else {
          $r = $o->formatter('view-resource')->replace ($o->resource ($p->{name}), $o);
        }
}

{
Name:
        wikiview-resource/-bare_text
FullName:
        HTML escape for bare text
Format:
        $r = $o->escape ($p->{-bare_text});
}
{
Name:
        wikiview-resource/span
FullName:
        Give class name
Format:
        $r = qq(<span class="@{[$o->escape($p->{class})]}">) . $o->escape($p->{content}) . '</span>';
}

POD:LICENSE:
        Copyright 2002 Wakaba <w@suika.fam.cx>
        
        %%GNUGPL2%%
1	wakaba	1.1	Name:
2			WikiResource
3			FullName:
4			WikiResource interface
5			URI:
6			IW:SuikaWiki:"Wiki//Resource"
7
8			{
9			Name:
10			wikiform_input/res
11			FullName:
12			Get text from resource
13			Format:
14			$r = $o->resource ($p->{name},escape=>1);
15			}
16			{
17			Name:
18			wikiview/res
19			wikiview-resource/res
20			wikiview-resource-safe/res
21			wikipage_list_item/res
22			FullName:
23			Get text from resource
24			Note:
25			"safe" option is very dangerous (it can lead the XSS problems).
26			Be careful, in case using with world-readable resource database.
27			Format:
28			if ($p->{safe}) {
29			$r = $o->formatter('view-resource-safe')->replace ($o->resource ($p->{name}), $o);
30			} else {
31			$r = $o->formatter('view-resource')->replace ($o->resource ($p->{name}), $o);
32			}
33			}
34
35			{
36			Name:
37			wikiview-resource/-bare_text
38			FullName:
39			HTML escape for bare text
40			Format:
41			$r = $o->escape ($p->{-bare_text});
42			}
43			{
44			Name:
45			wikiview-resource/span
46			FullName:
47			Give class name
48			Format:
49			$r = qq(<span class="@{[$o->escape($p->{class})]}">) . $o->escape($p->{content}) . '</span>';
50			}
51
52			POD:LICENSE:
53			Copyright 2002 Wakaba <w@suika.fam.cx>
54
55			%%GNUGPL2%%