#!/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!<h1>Sieve Script Admin Tool</h1>\n!;

	print qq!<form action="$SELF" method="post">\n!;
	print qq!<input type="hidden" name="action" value="list">\n!;
	print qq!Username: <input type="text" name="user" value=""><br>\n!;
	print qq!Password: <input type="password" name="pass" value=""><br>\n!;
	print qq!<input type="submit" value="Log In">\n!;
	print qq!</form>\n!;

	&end_page();
}

##############################################################################

sub action_list {

	my $sieve = sieve_open();
	my @list = $sieve->listscripts();
	sieve_close($sieve);

	&start_page();

	print "<h1>Your Sieve Scripts</h1>";

	&insert_button("Create a new script", "view", "new");
	print qq!<br>\n!;

	print qq!<table border="1">!;

	for(@list){
		my $active = 0;
		if (m/ ACTIVE$/){
			$active = 1;
			s/ ACTIVE$//;
		}

		print qq!<tr>\n!;

		print qq!<td>$_</td>\n!;

		print qq!<td>!;
		&insert_button("Edit", "view", $_);
		print qq!</td>\n!;

		print qq!<td>!;
		&insert_button("Delete", "dele", $_, "Are you sure you want tot delete this script?");
		print qq!</td>\n!;

		if ($active){
			print qq!<td><b>Currently Active</b></td>\n!;
		}else{
			print qq!<td>!;
			&insert_button("Set As Active", "mark", $_);
			print qq!</td>\n!;
		}
		print qq!</tr>\n!;
	}
	print qq!</table>\n!;

	&end_page();
}

##############################################################################

sub action_view {

	my $sieve = sieve_open();
	my $script = $cgi->param('script');
	my $source = $sieve->getscript($script);
	sieve_close($sieve);

	&start_page();

	print "<h1>Edit Sieve Script: $script</h1>";

	print qq!<form action="$SELF" method="post">\n!;
	print qq!<input type="hidden" name="action" value="save">\n!;
	print qq!<input type="hidden" name="user" value="$G_USER">\n!;
	print qq!<input type="hidden" name="pass" value="$G_PASS">\n!;

	print qq!<textarea name="source" style="width: 100%; height: 400px;">$source</textarea>\n!;
	print qq!Script name: <input type="text" name="script" value="$script"> !;
	print qq!<input type="submit" value="Save Changes">\n!;
	print qq!</form>\n!;

	&end_page();
}

##############################################################################

sub action_save {

	my $sieve = &sieve_open();
	my $script = $cgi->param('script');
	my $source = $cgi->param('source');
	$sieve->putscript($script, $source);
	&sieve_geterror($sieve);
	&sieve_close($sieve);

	&start_page();

	print qq!<h1>Save Script</h1>\n!;

	if ($G_ERROR){
		print qq!There was an error saving your script:<br>\n!;
		print qq!<br>\n!;
		print qq!<hr>\n!;
		print qq!<pre>$G_ERROR</pre>\n!;
		print qq!<hr>\n!;
		print qq!<br>\n!;
		print qq!<a href="Javascript:history.go(-1);">Click here</a> to go back and try again.<br>\n!;
		print qq!<br>\n!;
		print qq!<b>Note:</b> Script syntax MUST be correct - this is probably why the save has failed.<br>\n!;
	}else{
		print qq!Your script has been saved.<br><br>\n!;
		&insert_button("Return To Menu", "list", "");
	}

	&end_page();
}

##############################################################################

sub action_mark {

	my $sieve = &sieve_open();
	my $script = $cgi->param('script');
	$sieve->setactive($script);
	&sieve_close($sieve);

	&start_page();

	print qq!<h1>Activate Script: $script</h1>!;
	print qq!The script <i>$script</i> has been marked as active.<br><br>\n!;
	&insert_button("Return To Menu", "list", "");

	&end_page();
}

##############################################################################

sub action_dele {

	my $sieve = sieve_open();
	my $script = $cgi->param('script');
	my $source = $sieve->deletescript($script);
	sieve_close($sieve);

	&start_page();

	print "<h1>Delete Sieve Script: $script</h1>";
	print qq!The script <i>$script</i> has been deleted.<br><br>\n!;
	&insert_button("Return To Menu", "list", "");

	&end_page();
}

##############################################################################

sub sieve_open {
	my $sieve = IMAP::Sieve->new(
		'Proxy'		=> $G_PROXY,
		'Port'		=> $G_PORT_SIEVE,
		'Server'	=> $G_SERVER,
		'Login'		=> $G_USER,
		'Password'	=> $G_PASS
	);

	return 0 if &sieve_geterror($sieve);
	return $sieve;
}

sub sieve_close {
	my ($sieve) = @_;
	$sieve->close();
}

sub sieve_geterror {
	my ($sieve) = @_;
	my $err = $sieve->{'Error'};
	if ($err) {
		return 0 if $err =~/No Errors/i;
		$G_ERROR = $err;
		return 1;
	}
	return 0;
}

##############################################################################

sub start_page {
	print qq!<html>\n!;
	print qq!<head>\n!;
	print qq!<title>Sieve Admin Tool</title>\n!;
	print qq!<style>\n!;
	print qq!form { margin: 0px; padding: 0px; border: 0px; }\n!;
	print qq!</style>\n!;
	print qq!</head>\n!;
	print qq!<body>\n!;

	if ($G_USER){
		print qq!Logged in as $G_USER. <a href="$SELF">Logout</a><br>\n<hr>\n!;
	}
}

sub end_page {
	print qq!</body>\n!;
	print qq!</html>\n!;
}

##############################################################################

sub insert_button {
	my ($caption, $action, $script, $confirm) = @_;

	if ($confirm){
		print qq!<form action="$SELF" method="post" onsubmit="return window.confirm('$confirm');">\n!;
	}else{
		print qq!<form action="$SELF" method="post">\n!;
	}
	print qq!<input type="hidden" name="action" value="$action">\n!;
	print qq!<input type="hidden" name="script" value="$script">\n!;
	print qq!<input type="hidden" name="user" value="$G_USER">\n!;
	print qq!<input type="hidden" name="pass" value="$G_PASS">\n!;
	print qq!<input type="submit" value="$caption">\n!;
	print qq!</form>\n!;

}

##############################################################################

sub try_login {
	$G_USER = $cgi->param('user');
	$G_PASS = $cgi->param('pass');

	my $imap = IMAP::Admin->new(
		'Server'	=> $G_SERVER,
		'Login'		=> $G_USER,
		'Password'	=> $G_PASS,
		'Port'		=> $G_PORT_IMAP,
		'Separator'	=> '.'
	);

	&failed_login() if (&sieve_geterror($imap));

	return $imap;
}

##############################################################################

sub close_imap {
	my ($imap) = @_;
	$imap->close();
}

##############################################################################

sub failed_login {

	$G_USER = '';
	$G_PASS = '';

	&start_page;

	print qq!<h1>Login Failed</h1>\n!;
	print qq!Your login failed with the following message:<br>\n!;
	print qq!<br>\n!;
	print qq!<hr>\n!;
	print qq!<pre>$G_ERROR</pre>\n!;
	print qq!<hr>\n!;
	print qq!<br>\n!;
	print qq!<a href="Javascript:history.go(-1);">Click here</a> to go back and try again.<br>\n!;

	&end_page;

	exit;
}

##############################################################################

1;