HTTP request kada stigne novi e-mail

Code:


"|/usr/bin/procmail -t"

Code:


# Empty DH compatible .procmailrc file
# Last updated 7/25/2007
VERBOSE=on
PATH=/bin:/usr/bin:/usr/local/bin;/usr/bin/perl
MAILDIR=$HOME/Maildir
LOGFILE=$HOME/log.txt # specify something else if you want log files generated
SHELL=/bin/sh

# Add your rules here

# send mail to wiki with test.pl script
:0c
| perl $HOME/test.pl

Code:


#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
use HTTP::Cookies;

my $title = 'title';
my $urlBase = 'http://www.mojsajt.com/wiki/index.php';  #stavi odgovarajucu putanju
my $cookieFile = '/home/linux_user/mojsajt.com/cookies.txt';  #stavi odgovarajucu putanju
my $page = 'page';

my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new('file' => $cookieFile));

while (<STDIN>) {
       my $currLine = $_;
       $page = $page.$currLine; 
}

$page = "$page \n [[Category:Mail Gateway]]";

$page=~m|Subject: \s*(.*?)\n|is;
  $title=$1;

my $req = HTTP::Request->new(GET
    => "$urlBase?title=$title&action=edit");

my $res = $ua->request($req);
my $content = $res->content;

my $token;
my $text;
my $time;

$content=~m|<input type='hidden' value="(.*?)" name="wpEditToken" />|i;
$token=$1;
$content=~m|<textarea.*?name="wpTextbox1".*?>(.*?)</textarea>|is;
$text=$1;
$content=~m|<input type='hidden' value="(.*?)" name="wpEdittime" />|i;
$time=$1;
            
unless ($res->is_success) {
    print STDERR "Unable to fetch wiki page '$page': $!\n";
    exit;
}
            
$req = POST "$urlBase?title=$title&action=submit",
    [ 'wpTextbox1' => $page, 'wpSummary' => '',
            'wpSection' => '', 'wpEdittime' => $time,
                    'wpMinoredit' => '1', 'wpSave' => 'Save page',
                            wpEditToken => $token ];
                                        $res = $ua->request($req);
                                        
unless ($res->is_success) {
    print STDERR "Error: Cant add new page!\n";
        exit;
        }