Changeset 122 in lab for trunk/Dev/pukiwikiplus/getsource.pl
- Timestamp:
- May 21, 2011 12:59:47 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Dev/pukiwikiplus/getsource.pl
r121 r122 9 9 use Data::Validate::URI qw(is_uri); 10 10 use Encode; 11 12 ## get wiki formatted source text from PukiWiki Plus! page 13 # '-f' option to save file automatically 11 14 12 15 if (@ARGV < 1) { … … 24 27 25 28 if ($url !~ /cmd=source/ ) { 29 # set url to page of source plugin page (source.inc.php) 26 30 $url =~ s#\?(.+)#\?cmd=source&page=$1#; 27 31 if ($file) { … … 33 37 34 38 my $source = scraper { 39 # scrape page with '<pre id="source">' tag 35 40 process "pre#source", "source" => "TEXT"; 36 41 result "source"; … … 47 52 48 53 sub wikifile { 54 # get wiki text filename from pagename 49 55 my $pagename = shift @_; 50 56
Note: See TracChangeset
for help on using the changeset viewer.