#! /tools/ns/bin/perl5.004
# The contents of this file are subject to the Netscape Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/NPL/
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
#
# The Original Code is mozilla.org code.
#
# The Initial Developer of the Original Code is Netscape
# Communications Corporation. Portions created by Netscape are
# Copyright (C) 1998 Netscape Communications Corporation. All
# Rights Reserved.
#
# Contributor(s):
use Socket;
$mailhost = 'localhost';
@MonthNames = (" ", "January", "February", "March", "April", "May", "June",
"July", "August", "September", "October", "November", "December");
srand();
&process_args;
print "Content-Type: text/html\n\n";
print "\n";
#
# Build an indexed array. The index is the property name,
# the value is the property value.
#
@parms = split('&',$ENV{'QUERY_STRING'});
printf("\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;
$v =~ s/%2F/\//g;
$v =~ s/%28/(/g;
$v =~ s/%27/'/g;
$v =~ s/%29/)/g;
$v =~ s/%2C/,/g;
$v =~ s/%3D/=/g;
$v =~ s/%3B/;/g;
$vals{$p} = $v;
}
printf("
Sent: Event REQUEST
\n");
printf("message sent to: %s\n
\n", $vals{'who'} );
printf("Organizer: %s\n
\n", $vals{'organizer'} );
printf("Attendees: %s\n
\n", $vals{'ATTENDEE'} );
printf("Subject: %s\n
\n", $vals{'SUBJECT'} );
printf("Description: %s\n
\n", $vals{'DESCRIPTION'} );
printf("Location: %s\n
\n", $vals{'LOCATION'} );
printf("start time: %s\n
\n", $vals{'DTSTART'} );
printf("end time: %s\n
\n", $vals{'DTEND'} );
@mailto = split(' ',$vals{'who'});
@attendees = split(' ',$vals{'ATTENDEE'});
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 unique_id
{
local($d,$r);
if ($date_cmd =~ /date/)
{
chop($d = `$date_cmd +%y%m%d%H%M%S` );
}
else
{
$d = rand(711771);
}
$r = int(rand(100000));
$hostname.".".$domain.$d."$$"."$r";
}
sub fmtDate
{
local($d,$year,$month,$day,$hour,$min,$sec) = @_;
$year = substr($d,0,4);
$month = substr($d,4,2);
$day = substr($d,6,2);
$hour = substr($d,9,2);
$min = substr($d,11,2);
$sec = substr($d,13,2);
$MonthNames[ int($month) ]." ".int($day).", ".$year." ".$hour.":".$min." Z";
}
sub mail_the_message {
chop(my $hostname = `hostname`);
my ($remote,$port, $iaddr, $paddr, $proto, $line, $boundary, $rnum);
$rnum = &unique_id();
$boundary="MULTIPART-BOUNDARY--$rnum";
$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";
if ($flag_debug )
{
print STDERR "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:Event Request - %s\n",$vals{'SUMMARY'});
printf(S "Mime-Version: 1.0\n");
# printf(S "Content-Type:multipart/mixed; boundary=\"$boundary\"\n");
# printf(S "\n");
#
# printf(S "--%s\n",$boundary);
# printf(S "Content-Type:text/plain; charset=US-ASCII\n");
# printf(S "Content-Transfer-Encoding: 7bit\n");
# printf(S "\n");
#
# printf(S "%s has invited you to a meeting\n", $vals{'organizer'});
# printf(S "\n");
# printf(S " When: %s\n", &fmtDate($vals{'DTSTART'}));
# printf(S " With: ");
# foreach $i (@attendees)
# {
# if ( $i eq $vals{'organizer'})
# {
# printf(S "$i (Organizer)\n");
# }
# else
# {
# printf(S "$i\n");
# }
# printf(S " ");
# }
# printf(S "\n\n");
# printf(S "Description: %s",$vals{'DESCRIPTION'});
# printf(S "\n\n");
#
#
# printf(S "--%s\n",$boundary);
printf(S "Content-Type:text/calendar; method=REQUEST; component=VEVENT; charset=US-ASCII\n");
printf(S "Content-Transfer-Encoding: 7bit\n");
# printf(S "Content-Disposition: inline; filename=\"event.ics\"\n");
printf(S "\n");
printf(S "BEGIN:VCALENDAR\n");
printf(S "METHOD:REQUEST\n");
printf(S "PRODID:-//seasnake/Zulu//EN\n");
printf(S "VERSION:2.0\n");
printf(S "BEGIN:VEVENT\n");
printf(S "ORGANIZER:mailto:%s\n",$vals{'organizer'});
foreach $i (@attendees)
{
if ( $i eq $vals{'organizer'})
{
printf(S "ATTENDEE;ROLE=CHAIR;PARTSTAT=ACCEPTED:mailto:$i\n");
}
else
{
printf(S "ATTENDEE;RSVP=TRUE;CUTYPE=INDIVIDUAL;PARTSTAT=NEEDS-ACTION:mailto:$i\n");
}
}
printf(S "DTSTART:%s\n",$vals{'DTSTART'});
printf(S "DTEND:%s\n",$vals{'DTEND'});
$ENV{'TZ'} = "GMT0";
printf(S "DTSTAMP:%s",`date +19%y%m%dT%H%M%SZ`);
$ENV{'TZ'} = "PST8PDT";
printf(S "SUMMARY:%s\n",$vals{'SUMMARY'});
printf(S "DESCRIPTION:%s",$vals{'DESCRIPTION'});
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 "SEQUENCE:0\n");
printf(S "LOCATION:%s\n",$vals{'LOCATION'});
printf(S "RRULE:%s\n",$vals{'RRULE'}) if ('' ne $vals{'RRULE'}) ;
printf(S "EXDATE:%s\n",$vals{'EXDATE'}) if ('' ne $vals{'RRULE'}) ;
printf(S "STATUS:CONFIRMED\n");
printf(S "END:VEVENT\n");
printf(S "END:VCALENDAR\n");
# printf(S "\n");
# printf(S "--%s\n",$boundary);
print S ".\n";
get_response_code(250);
print S "QUIT\n";
close(S);
}