Subversion Repositories HomeAutomation

Rev

Blame | Last modification | View Log | SVN | RSS feed

  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");
  25.