Subversion Repositories HomeAutomation

Rev

Rev 753 | Details | Compare with Previous | Last modification | View Log | SVN | RSS feed

Rev Author Line No. Line
753 arune 1 
#!/usr/bin/perl
2 
 
3 
#
4 
# Post data to a page in DokuWiki, the page must be writeable without loggin
5 
# Author: Anders Runeson, arune@users.sf.net
6 
#
7 
 
8 
require LWP::UserAgent;
9 
use HTTP::Request::Common;
10 
 
11 
sub dokuwikipost
12 
{
13 
    $url = $_[0]; $page = $_[1]; $wikitext = $_[2]; $summary = $_[3];
14 
    $ua = LWP::UserAgent->new;
15 
    $ua->request(POST $url, [
16 
    "id"        => $page,       "rev"       => '',
17 
    "date"      => '',          "prefix"    => '',
18 
    "suffix"    => '',          "wikitext"  => $wikitext,
19 
    "summary"   => $summary,        "do[save]"  => 'Save'  
20 
    ]);
21 
}
22 
 
23 
#dokuwikipost("http://projekt.auml.se/doku.php", "homeautomation:livestats:arune", "texten att posta", "med summary");
24 
#dokuwikipost("http://www.arune.se/temp/post.php", "homeautomation:livestats:arune", "texten att posta", "med summary");