Changeset 122 in lab


Ignore:
Timestamp:
May 21, 2011 12:59:47 AM (12 years ago)
Author:
mitty
Message:
  • add comments
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Dev/pukiwikiplus/getsource.pl

    r121 r122  
    99use Data::Validate::URI qw(is_uri); 
    1010use Encode; 
     11 
     12## get wiki formatted source text from PukiWiki Plus! page 
     13# '-f' option to save file automatically 
    1114 
    1215if (@ARGV < 1) { 
     
    2427 
    2528if ($url !~ /cmd=source/ ) { 
     29    # set url to page of source plugin page (source.inc.php) 
    2630    $url =~ s#\?(.+)#\?cmd=source&page=$1#; 
    2731    if ($file) { 
     
    3337 
    3438my $source = scraper { 
     39    # scrape page with '<pre id="source">' tag 
    3540    process "pre#source", "source" => "TEXT"; 
    3641    result "source"; 
     
    4752 
    4853sub wikifile { 
     54    # get wiki text filename from pagename 
    4955    my $pagename = shift @_; 
    5056     
Note: See TracChangeset for help on using the changeset viewer.