\n");
foreach $val (@parms)
{
#printf("%s
\n", $val);
#printf("p = %s, v = %s
\n", $p, $v);
($p, $v) = split('=',$val);
$v =~ s/(%40)/@/g;
$v =~ s/\+/ /g;
$v =~ s/%0D/\r/g;
$v =~ s/%0A/\n /g;
$vals{$p} = $v;
}
printf("Busy time request sent:
\n");
printf("Organizer: %s\n
\n", $vals{'organizer'} );
printf("message sent to: %s\n
\n", $vals{'who'} );
printf("start time: %s\n
\n", $vals{'DTSTART'} );
printf("end time: %s\n
\n", $vals{'DTEND'} );
@mailto = split(' ',$vals{'who'});
printf("sending the mail message now.\n");
print "\n";
if ($flag_debug )
{
print STDERR "----------------------------------------------\n";
print STDERR "LOGINFO:\n";
print STDERR " mailto: \@mailto\n";
print STDERR "----------------------------------------------\n";
}
&mail_the_message;
0;
sub process_args
{
while (@ARGV) {
$arg = shift @ARGV;
if ($arg eq '-d')
{
$flag_debug = 1;
print STDERR "Debug turned on...\n";
}
elsif ($arg eq '-h')
{
$mailhost = shift @ARGV;
}
else
{
push(@mailto, $arg);
}
}
}
sub get_response_code {
my ($expecting) = @_;
# if ($flag_debug) {
# print STDERR "SMTP: Waiting for code $expecting\n";
# }
while (1) {
my $line = ;
# if ($flag_debug) {
# print STDERR "SMTP: $line";
# }
if ($line =~ /^[0-9]*-/) {
next;
}
if ($line =~ /(^[0-9]*) /) {
my $code = $1;
if ($code == $expecting) {
# if ($flag_debug) {
# print STDERR "SMTP: got it.\n";
# }
return;
}
die "Bad response from SMTP -- $line";
}
}
}
sub mail_the_message {
chop(my $hostname = `hostname`);
my ($remote,$port, $iaddr, $paddr, $proto, $line);
$remote = $mailhost;
$port = 25;
if ($port =~ /\D/) { $port = getservbyname($port, 'tcp') }
die "No port" unless $port;
$iaddr = inet_aton($remote) || die "no host: $remote";
$paddr = sockaddr_in($port, $iaddr);
$proto = getprotobyname('tcp');
socket(S, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
connect(S, $paddr) || die "connect: $!";
select(S); $| = 1; select(STDOUT);
get_response_code(220);
print S "HELO $hostname\n";
get_response_code(250);
printf( S "MAIL FROM: %s\n", $vals{'organizer'} );
get_response_code(250);
foreach $i (@mailto) {
print S "RCPT TO: $i\n";
get_response_code(250);
}
print S "DATA\n";
get_response_code(354);
printf(S "Date: %s", `date`);
printf(S "From: %s\n", $vals{'organizer'});
printf(S "Return-Path: <%s>\n", $vals{'organizer'} );
printf(S "To: %s\n",$vals{'who'} );
printf(S "Subject:Calendar Busy Time Request\n");
printf(S "Mime-Version: 1.0\n");
printf(S "Content-Type:text/calendar; method=REQUEST; charset=US-ASCII\n");
printf(S "Content-Transfer-Encoding: 7bit\n");
printf(S "\n");
printf(S "BEGIN:VCALENDAR\n");
printf(S "PRODID:-//seasnake/DesktopCalendar//EN\n");
printf(S "METHOD:REQUEST\n");
printf(S "VERSION:2.0\n");
printf(S "BEGIN:VFREEBUSY\n");
printf(S "ORGANIZER:Mailto:%s\n",$vals{'organizer'});
printf(S "ATTENDEE:Mailto:%s\n",$vals{'who'});
$ENV{'TZ'} = "GMT0";
printf(S "DTSTAMP:%s",`date +19%y%m%dT%H%M%SZ`);
$ENV{'TZ'} = "PST8PDT";
printf(S "DTSTART:%s\n",$vals{'DTSTART'});
printf(S "DTEND:%s\n",$vals{'DTEND'});
chop($h = `hostname`);
chop($dm = `domainname`);
chop($d = `date +%y%m%d%H%M%S`);
printf(S "UID:%s.%s-%s.%s\n",$h, $dm, $d, "$$" );
printf(S "END:VFREEBUSY\n");
printf(S "END:VCALENDAR\n");
print S ".\n";
get_response_code(250);
print S "QUIT\n";
close(S);
}