package MailBot::UI::Manual;
@ISA = qw( MailBot::UI );
use strict;
sub vInit
{
my $self = shift;
}
sub vQuotaMultiplier
{
0;
}
sub vGetMessage
{
my $self = shift;
my $returnAddress = "terminal";
my $config = &MailBot::Config::current;
my $subject = $config -> getSubject();
if (!defined($subject))
{
print STDERR "Type in message subject:\n";
$subject = (<>);
}
my $input;
my $paBody;
my $body = $config -> getBody();
if (defined($body))
{
$paBody = [ $body ];
}
else
{
print STDERR "Type in message, with a single '.' when done.\n";
$paBody = [];
while ($input = (<>))
{
last unless defined $input;
last if $input eq ".\n";
push(@$paBody,$input);
}
}
my $message = new Mail::Internet;
$$self{INCOMING} = $message;
my $head = $message -> head;
$head -> add('From','Original_Sender');
$head -> add('Subject',$subject);
$head -> add('Reply-To',$returnAddress);
$message -> body($paBody);
$self -> done unless defined $input;
}
sub vSendMessage
{
my $self = shift;
my $internet = shift;
#$internet -> head -> delete('X-Mailer');
$internet -> print();
}