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