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


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • Dev/pukiwikiplus/getsource.pl

    ra1439aa re3948e3  
    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.