formatting updates

This commit is contained in:
sman%netscape.com 1998-11-11 18:51:06 +00:00
parent 5a73690128
commit 0e85a4d3d2
2 changed files with 87 additions and 72 deletions

View File

@ -201,36 +201,36 @@ sub mail_the_message {
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/mized; 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: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");
@ -258,7 +258,7 @@ sub mail_the_message {
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\n",$vals{'DESCRIPTION'});
printf(S "DESCRIPTION:%s",$vals{'DESCRIPTION'});
chop($h = `hostname`);
chop($dm = `domainname`);
chop($d = `date +%y%m%d%H%M%S`);
@ -270,8 +270,8 @@ sub mail_the_message {
printf(S "STATUS:CONFIRMED\n");
printf(S "END:VEVENT\n");
printf(S "END:VCALENDAR\n");
printf(S "\n");
printf(S "--%s\n",$boundary);
# printf(S "\n");
# printf(S "--%s\n",$boundary);
print S ".\n";
get_response_code(250);

View File

@ -3,51 +3,66 @@
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="GENERATOR" CONTENT="Mozilla/4.09 [en] (X11; I; IRIX 6.3 IP32) [Netscape]">
</HEAD>
<BODY>
<BODY bgcolor="#336699">
<CENTER>
<H1>Make An IMIP Meeting Request</H1>
<font color="white" face="Tahoma,Arial,helvetica">
<H1>IMIP Meeting Request</H1>
</CENTER>
<FORM ACTION="http://seasnake/cgi-bin/sm/meeting.cgi" METHOD=GET>
<TABLE>
<TR>
<TH ALIGN=RIGHT>Organizer:&nbsp;</TH>
<TD><INPUT TYPE="TEXT" NAME="organizer" VALUE="" SIZE="20">
<FONT SIZE=-1>example:
<tt>jsun@netscape.com</tt>
<I>(typically your e-mail address)</I></FONT>&nbsp;</TD>
</TR>
<tr>
<th valign="TOP" align="right">
Send request to:
</th>
<td>
<INPUT TYPE="TEXT" NAME="who" VALUE="" SIZE="60">
<br><font size=-1>space delimited addresses, example:
<tt>sman@netscape.com eyork@netscape.com spider@netscape.com</tt></font>
</td>
</tr>
<tr>
<th valign="TOP" align="right">
Meeting Attendees:
</th>
<td>
<INPUT TYPE="TEXT" NAME="ATTENDEE" VALUE="" SIZE="60">
<br><font size=-1>space delimited addresses, usually the same as who
you're sending the request to, but not always. Example:
<tt>sman@netscape.com&nbsp;eyork@netscape.com&nbsp;spider@netscape.com</tt></font>
</td>
</tr>
<tr>
<th align="right">
Summary:
</th>
<td>
<INPUT TYPE="TEXT" NAME="SUMMARY" VALUE="" SIZE="60">
</td>
</tr>
<TABLE bgcolor="#dddddd" cellspacing=0 cellpadding=4 border=0>
<TR>
<TH ALIGN=RIGHT>
<font face="Tahoma,Arial,helvetica">
Organizer:&nbsp;
</TH>
<TD>
<font face="Tahoma,Arial,helvetica">
<INPUT TYPE="TEXT" NAME="organizer" VALUE="" SIZE="20">
<FONT SIZE=-1>example:</font>
<tt>jsun@netscape.com</tt>
<FONT SIZE=-1>
<I>(typically your e-mail address)</I></FONT>&nbsp;
</TD>
</TR>
<tr>
<th valign="TOP" align="right">
<font face="Tahoma,Arial,helvetica">
Send request to:
</th>
<td>
<font face="Tahoma,Arial,helvetica">
<INPUT TYPE="TEXT" NAME="who" VALUE="" SIZE="60">
<br><font size=-1>space delimited addresses, example:
<tt>sman@netscape.com eyork@netscape.com spider@netscape.com</tt></font>
</td>
</tr>
<tr>
<th valign="TOP" align="right">
<font face="Tahoma,Arial,helvetica">
Meeting Attendees:
</th>
<td>
<font face="Tahoma,Arial,helvetica">
<INPUT TYPE="TEXT" NAME="ATTENDEE" VALUE="" SIZE="60">
<br><font size=-1>space delimited addresses, usually the same as who
you're sending the request to, but not always. Example:
<tt>sman@netscape.com&nbsp;eyork@netscape.com&nbsp;spider@netscape.com</tt></font>
</td>
</tr>
<tr>
<th align="right">
Summary:
</th>
<td>
<INPUT TYPE="TEXT" NAME="SUMMARY" VALUE="" SIZE="60">
</td>
</tr>
<tr>
<th align="right">
Start time: