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	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