#!/usr/bin/perl

use Time::Local;

%months = ('Jan' => 0,'Feb' => 1,'Mar' => 2,'Apr' => 3,'May' => 4,'Jun' => 5,
           'Jul' => 6,'Aug' => 7,'Sep' => 8,'Oct' => 9,'Nov' => 10,'Dec' => 11);

%numList = ('me' => '01234567890 Simon',
           'bee' => '02345678901 Buzzy');

print "To Number Name : ";
chop($numnam = <STDIN>);
if($numList{$numnam}) { $numnam = $numList{$numnam}; }
($num) = ($numnam =~ /^(\S+)/);
($name) = ($numnam =~ /^\S+ (.+)$/);
$taddr = "${num}\@sms ($name)";
print "From Number Name : ";
chop($numnam = <STDIN>);
if($numList{$numnam}) { $numnam = $numList{$numnam}; }
($num) = ($numnam =~ /^(\S+)/);
($name) = ($numnam =~ /^\S+ (.+)$/);
$faddr = "${num}\@sms ($name)";
print "Message : ";
chop($msg = <STDIN>);
print "(Jul 20 22:44:18) Date : ";
$date = <STDIN>;
($mon,$day,$h,$m,$s) = ($date =~ /^(\w+) (\d+) (\d+):(\d+):(\d+)$/);
$mm = $months{$mon};
if(! defined($mm)) { print "Invalid month\n"; exit; }
$time = scalar(localtime(timelocal($s,$m,$h,$day,$mm,2003)));

open(OUT,">>/home/simon/Mail/sms");
print OUT "From ${num}\@sms $time\n";
print OUT "To: $taddr\n";
print OUT "From: $faddr\n";
print OUT "Subject: $msg\n\n";
print OUT "$msg\n\n";
close(OUT);