#!/usr/bin/perl -w use strict; use CGI; use IMAP::Admin; use IMAP::Sieve; print qq!Content-type: text/html\n\n!; my $cgi = new CGI; my $action = $cgi->param('action'); my $SELF = 'sieve.pl'; my $G_ERROR = 0; my $G_USER = ''; my $G_PASS = ''; my $G_SERVER = 'neuron.neuron1.com'; my $G_PROXY = ''; my $G_PORT_IMAP = 143; my $G_PORT_SIEVE = 2000; &action_login() if $action eq ''; my $imap = &try_login(); &action_list() if $action eq 'list'; &action_view() if $action eq 'view'; &action_save() if $action eq 'save'; &action_mark() if $action eq 'mark'; &action_dele() if $action eq 'dele'; &close_imap($imap); ############################################################################## sub action_login { &start_page(); print qq!
$_ | \n!; print qq!!; &insert_button("Edit", "view", $_); print qq! | \n!; print qq!!; &insert_button("Delete", "dele", $_, "Are you sure you want tot delete this script?"); print qq! | \n!; if ($active){ print qq!Currently Active | \n!; }else{ print qq!!; &insert_button("Set As Active", "mark", $_); print qq! | \n!; } print qq!
$G_ERROR\n!; print qq!
$G_ERROR\n!; print qq!