#!/usr/bin/perl

use DBI;

($pass = shift) || die Useage();
print "Enter Listname:";
my $listname = <STDIN>;

$db = "nMail";
$sock = "/tmp/mysql.sock";
$user = "nmail";
$dsn = "DBI:mysql:$db;mysql_socket=$sock";

$dbh = DBI->connect($dsn,$user,$pass);
        $sth = $dbh->prepare("INSERT INTO nMail.ML_Lists (Mname) VALUES ('$listname')");
        $sth->execute() || die "Error: Could not create mailing list $listname\n";
        $sth->finish();
$dbh->disconnect();

sub Useage
{
return "
Error Invalid Arguments,

Useage:
$0 <password>
";
}