1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/perl
use strict;
use warnings;
use Net::Sieve;
my $sieve = Net::Sieve->new (
server => 'imap.server.org',
user => 'user',
password => 'pass' ,
);
my $test_script='require "fileinto";
# Place all these in the "Test" folder
if header :contains "Subject" "[Test]" {
fileinto "Test";
}
';
my $name_script = 'test';
# write
$sieve->put($name_script,$test_script);
# read
my %Script;
foreach my $script ( $sieve->list() ) {
print 'name: ['.$script->{name}.'], status: '.$script->{status}."\n";
print $sieve->get($script->{name});
print "=====\n";
};
|
