Changeset 122 in lab

Timestamp:

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

Author:

mitty

Message:

• add comments

File:

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

trunk/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 @_;