misc/plugins/TextRotate.wps

Name:
        TextRotate
FullName:
        Rotation (Juliuce encryption) of string
URI:
        IW:SuikaWiki:ROT13
Initialize:
        sub ten25 ($) {
            my $s = shift;
            my $tr_f = q{あいうえおかきくけこさしすせそたちつてとなにぬねの}
                      .q{はひふへほまみむめもやゝゆ～よらりるれろわゐんゑを}
                      .q{アイウエオカキクケコサシスセソタチツテトナニヌネノ}
                      .q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ};
            my $tr_t = q{はひふへほまみむめもやゝゆ～よらりるれろわゐんゑを}
                      .q{あいうえおかきくけこさしすせそたちつてとなにぬねの}
                      .q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ}
                      .q{アイウエオカキクケコサシスセソタチツテトナニヌネノ};
            Jcode->new (\$s, 'euc')->tr ($tr_f => $tr_t);
            $s;
        }
        sub rot13 ($) {
            my $s = shift;
            $s =~ tr/A-Za-z/N-ZA-Mn-za-m/;
            $s;
        }

{
Name:
        wikiform_template/rot
FullName:
        Rot 13 and ten 25
Format:
        $r = $p->{text} || $o->{argv}->{'wikiform__'.$p->{source}};
        $r = rot13 ($r) unless $p->{rot13} && !$p->{rot13};
        $r = ten25 ($r) unless $p->{ten25} && !$p->{ten25};
}

1	wakaba	1.1	Name:
2			TextRotate
3			FullName:
4			Rotation (Juliuce encryption) of string
5			URI:
6			IW:SuikaWiki:ROT13
7			Initialize:
8			sub ten25 ($) {
9			my $s = shift;
10			my $tr_f = q{あいうえおかきくけこさしすせそたちつてとなにぬねの}
11			.q{はひふへほまみむめもやゝゆ～よらりるれろわゐんゑを}
12			.q{アイウエオカキクケコサシスセソタチツテトナニヌネノ}
13			.q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ};
14			my $tr_t = q{はひふへほまみむめもやゝゆ～よらりるれろわゐんゑを}
15			.q{あいうえおかきくけこさしすせそたちつてとなにぬねの}
16			.q{ハヒフヘホマミムメモヤヽユーヨラリルレロワヰンヱヲ}
17			.q{アイウエオカキクケコサシスセソタチツテトナニヌネノ};
18			Jcode->new (\$s, 'euc')->tr ($tr_f => $tr_t);
19			$s;
20			}
21			sub rot13 ($) {
22			my $s = shift;
23			$s =~ tr/A-Za-z/N-ZA-Mn-za-m/;
24			$s;
25			}
26
27			{
28			Name:
29			wikiform_template/rot
30			FullName:
31			Rot 13 and ten 25
32			Format:
33			$r = $p->{text} \|\| $o->{argv}->{'wikiform__'.$p->{source}};
34			$r = rot13 ($r) unless $p->{rot13} && !$p->{rot13};
35			$r = ten25 ($r) unless $p->{ten25} && !$p->{ten25};
36			}
37