On Mon, 31 Oct 1994, Don Gray wrote:
> >On Fri, 28 Oct 1994, Nelson Minar wrote:
> >> Has anyone put any effort into making a WWW front end to Majordomo?
> >
> >When I was at InterNIC I put together something similar; it has
> >subscribe, unsubscribe, and "send information" boxes for each of the
> >lists available at that time. Putting others in would be trivial; it's at
> >
> > http://www.internic.net/internic/lists/majordomo.html
> >
> >Email guide@is.internic.net if you're interested in seeing the code (it's
> >Perl.)
>
> Can someone post this when the get the code? I imagine a lot of people
> here would like to get a copy (or just send it to me, cause I could use
> it!).
>
> Thanks,
> Don
Here's what I received when I requested this:
---------------------------------------------------------------
>Date: Mon, 31 Oct 1994 12:07:36 -0800
>From: InterNIC Reference Desk <refdesk@is.internic.net>
>To: sbrenner@efn.org
>Subject: Information.
>X-UIDL: 783640334.007
>
>#!/usr/local/bin/perl
>
>require '/infoguide/httpd/cgi-lib/cgi-lib.pl';
>
># This should match the mail program on your system.
>$mailprog = '/usr/lib/sendmail';
>
>&ReadParse;
>print &PrintHeader;
>
>&print_error_message unless $in{'from_name'};
>&print_error_message unless $in{'from_email'};
>
>if ( ($in{'net-happenings'} EQ "none") &&
> ($in{'scout-report'} EQ "none") &&
> ($in{'net-happenings-digest'} EQ "none") ) {
> &print_error_message;
>}
>
># Now send mail to $recipient
>
>open (MAIL, "|$mailprog majordomo@is.internic.net") || die "Can't open
$mailprog!\n";
>select(MAIL);
>print "Reply-to: $in{'from_email'} ($in{'from_name'})\n";
>print "Subject:\n\n";
>
>if($in{'net-happenings'} NE "none") {
> if ($in{'net-happenings'} EQ "subscribe") {
> print "subscribe net-happenings $from_email\n";
> } elsif ($in{'net-happenings'} EQ "unsubscribe") {
> print "unsubscribe net-happenings $from_email\n";
> } elsif ($in{'net-happenings'} EQ "info") {
> print "info net-happenings\n";
> }
>}
>
>if($in{'net-happenings-digest'} NE "none") {
> if ($in{'net-happenings-digest'} EQ "subscribe") {
> print "subscribe net-happenings-digest $from_email\n";
> } elsif ($in{'net-happenings-digest'} EQ "unsubscribe") {
> print "unsubscribe net-happenings-digest $from_email\n";
> } elsif ($in{'net-happenings-digest'} EQ "info") {
> print "info net-happenings-digest\n";
> }
>}
>
>if ($in{'scout-report'} NE "none") {
> if ($in{'scout-report'} EQ "subscribe") {
> print "subscribe scout-report $from_email\n";
> } elsif ($in{'scout-report'} EQ "unsubscribe") {
> print "unsubscribe scout-report $from_email\n";
> } elsif ($in{'scout-report'} EQ "info") {
> print "info scout-report\n";
> }
>}
>
>select(STDOUT);
>close (MAIL);
>
>&print_sent_message;
>exit 0;
>
># ------------------------------------------------------------
>
># Print out a content-type for HTTP/1.0 compatibility
>
>sub print_sent_message
>{
> print "<HEAD><TITLE>Request sent.</TITLE></HEAD>\n\n";
> print "<BODY>\n\n";
> print "<H2>Your message has been been sent to majordomo.</H2>\n";
> print "You should be receiving an acknowledgement shortly.\n\n";
> print "</BODY>\n";
> exit 0;
>}
>
>sub print_error_message
>{
> print "<HEAD><TITLE>Error processing your request!</TITLE></HEAD>\n\n";
> print "<BODY>\n\n<H1>Error processing your request!</H1><P>\n\n";
> print "Your message did not contain all the necessary information.<P>\n";
> print "Did you include both your name and email address?\n\n";
> print "</BODY>\n";
> exit 0;
>}
>
>
>
References:
|
|
