Changeset e3948e3 in lab.git for Dev/pukiwikiplus/getsource.pl

Timestamp:

May 21, 2011 12:59:47 AM (13 years ago)

Author:

mitty <mitty@…>

Branches:

master, trunk

Children:

f38dca0

Parents:

a1439aa

Message:

• add comments

git-svn-id: ​https://lab.mitty.jp/svn/lab/trunk@122 7d2118f6-f56c-43e7-95a2-4bb3031d96e7

File:

• Dev/pukiwikiplus/getsource.pl (modified) (4 diffs)

Dev/pukiwikiplus/getsource.pl

@@ -9 +9 @@
 use Data::Validate::URI qw(is_uri);
 use Encode;
+
+## get wiki formatted source text from PukiWiki Plus! page
+# '-f' option to save file automatically
 
 if (@ARGV < 1) {
@@ -24 +27 @@
 
 if ($url !~ /cmd=source/ ) {
+    # set url to page of source plugin page (source.inc.php)
     $url =~ s#\?(.+)#\?cmd=source&page=$1#;
     if ($file) {
@@ -33 +37 @@
 
 my $source = scraper {
+    # scrape page with '<pre id="source">' tag
     process "pre#source", "source" => "TEXT";
     result "source";
@@ -47 +52 @@
 
 sub wikifile {
+    # get wiki text filename from pagename
     my $pagename = shift @_;