#!/usr/bin/perl -w
###########################################################################
#
# Cucaracha
# Version 0.02
#
# Copyright (c) 2005 Henrique Dias <hdias@aesbuc.pt>. All rights reserved.
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
# Last Change: Mon Apr 11 19:10:14 WEST 2005
#
###########################################################################

use strict;
use Mail::Salsa;
use Mail::Salsa::Config;
use vars qw($VERSION);
$VERSION = '0.02';

my $cf = "/etc/cucaracha.conf";

(scalar(@ARGV) == 2) or die("Error: $!\n");
my ($list, $action) = @ARGV;

my $config = Mail::Salsa::Config::get_config(
	file     => $cf,
	defaults => {
		'smtp_server' => [],
		'timeout'     => 120,
		'list_dir'    => "/usr/local/salsa/lists",
		'logs_dir'    => "/usr/local/salsa/logs",
		'archive_dir' => "/usr/local/salsa/archives",
		'queue_dir'   => "/usr/local/salsa/mqueue",
		'tmp_dir'     => "/tmp",
	},
);

my %actions = (
	'Admin'       => "",
	'Help'        => "",
	'Personalize' => "",
	'Post'        => "",
	'Return'      => "",
	'Subscribe'   => "",
	'Unsubscribe' => "",
);
$action = ucfirst(lc($action));

exists($actions{$action}) or die("Error: $!\n");

my $me = Mail::Salsa->new(
	action      => $action,
	list        => $list,
	list_dir    => $config->{'list_dir'},
	logs_dir    => $config->{'logs_dir'},
	queue_dir   => $config->{'queue_dir'},
	tmp_dir     => $config->{'tmp_dir'},
	smtp_server => $config->{'smtp_server'},
	archive_dir => $config->{'archive_dir'},
	filehandle => \*STDIN
);

exit();
