SuikaWiki/Plugin/Resource.wps

Name:
        Resource
FullName:
        Resource interface
URI:
        IW:SuikaWiki:WikiResource

{
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			Resource
3			FullName:
4			Resource interface
5			URI:
6			IW:SuikaWiki:WikiResource
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	w	1.2	{
17			Name:
18			wikiview/res
19	w	1.4	wikiview-resource/res
20	wakaba	1.5	wikiview-resource-safe/res
21			wikipage_list_item/res
22	w	1.4	FullName:
23			Get text from resource
24	wakaba	1.5	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	w	1.4	Format:
28	wakaba	1.5	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	w	1.4	}
34	wakaba	1.5
35	w	1.4	{
36			Name:
37	w	1.3	wikiview-resource/-bare_text
38	w	1.2	FullName:
39	w	1.3	HTML escape for bare text
40	w	1.2	Format:
41	w	1.3	$r = $o->escape ($p->{-bare_text});
42	w	1.2	}
43			{
44			Name:
45	w	1.3	wikiview-resource/span
46	w	1.2	FullName:
47			Give class name
48			Format:
49			$r = qq(<span class="@{[$o->escape($p->{class})]}">) . $o->escape($p->{content}) . '</span>';
50			}
51	wakaba	1.1
52			POD:LICENSE:
53			Copyright 2002 Wakaba <w@suika.fam.cx>
54
55			%%GNUGPL2%%