Select Code to Download

    MIME::Parser
    SOAP::Lite

    mod_perl

    <VirtualHost 192.168.1.187:80>
     ServerName sieve.net
...
          </Directory>
     DirectoryIndex index.phtml index.htm index.html index.pl
    </VirtualHost>

    #!/usr/bin/perl
    use strict;
...
            $Qresults->enqueue( undef ); ## Signal this thread is fini
+shed
    }
    1;

    #!/usr/bin/perl
    package Sieve;
...
        return 1;          
    }
    1;

    <?xml version="1.0"?>
...
    </port>
    </service>
    </definitions>

    use SOAP::Lite;
    my $client = SOAP::Lite->service("http://sieve.net/sieve.wsdl");
    my $result = $client->updateSieveFilter(17);
    print $result;