625 |
sprintf ('%02d%02d%02d%02d%02d%02d', @date[5,4,3,2,1,0]), |
sprintf ('%02d%02d%02d%02d%02d%02d', @date[5,4,3,2,1,0]), |
626 |
join ('', @rand[rand@rand,rand@rand,rand@rand,rand@rand]); |
join ('', @rand[rand@rand,rand@rand,rand@rand,rand@rand]); |
627 |
} |
} |
628 |
|
|
629 |
|
=head1 NAME |
630 |
|
|
631 |
|
mkplugin2.pl - SuikaWiki: WikiPlugin Generator |
632 |
|
|
633 |
|
=head1 SYNOPSIS |
634 |
|
|
635 |
|
mkplugin2.pl pluginsrc.wp2 > plugin.pm |
636 |
|
|
637 |
|
=head1 DESCRIPTION |
638 |
|
|
639 |
|
C<mkplugin2.pl> generates WikiPlugin module as a Perl module file |
640 |
|
from WikiPlugin source description. WikiPlugin source description |
641 |
|
is described in SuikaWikiConfig/2.0 format and it contains |
642 |
|
definitions of wiki constructions (such as formatting rules and |
643 |
|
WikiView definitions) as both machine understandable code and |
644 |
|
human readable documentation. For more information, see |
645 |
|
<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?WikiPlugin>. |
646 |
|
|
647 |
|
This script is part of SuikaWiki. |
648 |
|
|
649 |
|
=head1 HISTORY AND COMPATIBILITY |
650 |
|
|
651 |
|
C<mkplugin2.pl> introduced as part of SuikaWiki 3. |
652 |
|
It converts SuikaWiki 3 WikiPlugin source descriptions |
653 |
|
(in SuikaWikiConfig/2.0) into Perl modules with SuikaWiki 3 interface. |
654 |
|
|
655 |
|
SuikaWiki 2 has C<mkplugin.pl>. It also converts WikiPlugin |
656 |
|
source descriptions into Perl modules. But it support |
657 |
|
SuikaWiki 2 format of WikiPlugin source description that differs from |
658 |
|
SuikaWiki 3 format. Wiki programming interface (not limited to |
659 |
|
WikiPlugin related one) of SuikaWiki 3 also incompatible with that |
660 |
|
of SuikaWiki 2 so that it is impossible to use SuikaWiki 2 WikiPlugin |
661 |
|
module with SuikaWiki 3 and vice versa. |
662 |
|
|
663 |
|
=head1 SEE ALSO |
664 |
|
|
665 |
|
C<SuikaWiki::Plugin>, SuikaWiki:WikiPlugin |
666 |
|
<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?WikiPlugin>. |
667 |
|
|
668 |
|
=head1 LICENSE |
669 |
|
|
670 |
|
Copyright 2003-2004 Wakaba <w@suika.fam.cx>. All rights reserved. |
671 |
|
|
672 |
|
This program is free software; you can redistribute it and/or |
673 |
|
modify it under the same terms as Perl itself. |
674 |
|
|
675 |
|
=cut |
676 |
|
|
677 |
|
1; # $Date$ |