Here are the results from the list creation command:\n"; print "
"; while ("; print ") { print $_; } print "
Here are the results from the list renaming command:\n"; print "
"; while ("; print ") { print $_; } print "
Here are the results from the list deletion command:\n"; print "
"; while ("; print ") { print $_; } print "
\@dom.ain or else they will be
considered relative to the $whereami host.
date_info is enabled for this list. "
."A datestamp will be prepended to the text in this "
."file, although it will not be displayed in the edit "
."window itself.";
}
else {
$offer_date =
"date_info is not enabled for this list. "
."A datestamp will not be prepended to the text in this "
."file.";
}
local($submit) = ""
."";
$submit = ""
if $prefs{GenSubmitImages};
local($submit_as) = (defined($config'known_keys{owner}) ?
$config_opts{$list,owner} : "owner-$list\@$whereami");
&log("MODIFY info $list");
&send_header(1, "Info File For List <$list>");
print <<"EOT";
$tbl_start
date_intro is enabled for this list. "
."A datestamp will be prepended to the text in this "
."file, although it will not be displayed in the edit "
."window itself.";
}
else {
$offer_date =
"date_intro is not enabled for this list. "
."A datestamp will not be prepended to the text in this "
."file.";
}
local($submit) = ""
."";
$submit = ""
if $prefs{GenSubmitImages};
local($submit_as) = (defined($config'known_keys{owner}) ?
$config_opts{$list,owner} : "owner-$list\@$whereami");
&log("MODIFY intro $list");
&send_header(1, "Intro File For List <$list>");
print <<"EOT";
$tbl_start
"); } print <<"EOT";
$list\@$whereami".
"");
$javascript =
" onMouseOver=\"".
" msg('Send Mail to the List Owner');".
" return true\"".
" onMouseOut=\"".
" msg('');".
" return true\"";
print &html_tbl_row("List Owner Address",
($listowner
? "".
"$listowner".
""
: "Not Configured")
);
print &html_tbl_row("Subscribe Policy",
"$cached_spolicy{$list}");
print &html_tbl_row("Unsubscribe Policy",
"$cached_upolicy{$list}") if $cached_upolicy{$list};
print &html_tbl_row("Subscribed-As",
"".($email ? $email : "Not Subscribed")."");
# add sub/unsub button for quick action
if ($cached_owner{$list} || ! defined($config'known_keys{owner})) {
print &html_tbl_row(
($sub
? "Unsubscribe Now?"
: "Subscribe Now?"
),
"", ""
);
}
print <<"EOT";
$who";
print ($prefs{BrowseListNumber} ? "" : "MajorCool is a Web-based interface to the Majordomo list manager. It was developed by Bill Houle and has been made available to the Majordomo community (© NCR Corporation).
![](\"WEB_IMGURL/mc_wait.gif\")
$to" if $to;
$to = "you" unless $to;
print <<"EOT";
$tbl_start
$msg
Here are the results of your Majordomo $mode request:
($remote)
EOT
&send_error("Cannot Open Program <$engine> -- $!")
unless open(MAJORDOMO, "|$engine");
select((select(MAJORDOMO), $|=1)[$[]); # unbuffered
print MAJORDOMO "From: $identity\n";
print MAJORDOMO "To: $whoami\n\n";
print MAJORDOMO @lines;
close MAJORDOMO;
print "\n";
print "$msg
MajorCool version $version,".
" ©1996-1998 NCR Corporation".
"
[$cfbase/$whereami]".
"
/g; # blank line is paragraph s/\n\n/
/g; # blank line is paragraph
s/\n/
/g; # end of line is break
$_;
}
#-----------------------------------------------
# Build multicolumn table row based on arglist.
#-----------------------------------------------
sub html_tbl_row {
local($str) = "
"; } if ($type eq "bool") { $value = (&cf_ck_bool($list,$key) ? 1 : 0); $str .= ""; } elsif ($type eq "word") { $str .= ""; } elsif ($type eq "string") { $str .= ""; } elsif ($type eq "absolute_dir") { $str .= ""; } elsif ($type eq "absolute_file") { $str .= ""; } elsif ($type eq "restrict_post") { $str .= ""; } # this snip taken verbatim form Majordomo elsif ($type =~ "array") { # handle the - escapes. We have to be careful about ordering # the rules so that we don't accidently trigger a substitution # if there is a - at the beginning of an entry, double it # so that the doubled - can be stripped when read in later $value =~ s/^-/--/go; # start with -'ed line $value =~ s/\001-/\001--/go; # embedded line starting with - # In standard form, empty lines are lines that have only # a '-' on the line. $value =~ s/^\001/-\001/go; # start with blank line $value =~ s/\001\001/\001-\001/go; # embedded blank line # if there is space, protect it with a - $value =~ s/^(\s)/-$1/g; # the first line $value =~ s/\001(\s)/\001-$1/g; # embedded lines # now that all of the escapes are processed, get it ready # to be printed. $value =~ s/\001/\n/go; $str .= ""; } else { $str = "$type: unknown or unsupported field type"; } return "$str\n"; } #----------------------------------------------- # Set MIME content. Build HTML TITLE header. # Buttonbar if menu-mode, JavaScript if prefs. #----------------------------------------------- sub send_header { local($inline) = shift; $wtitle = join(" ", @_); $title = ($inline ? &html_encode($wtitle) : ""); local($http_cache) = ($prefs{GenCache} ? "" : "\n"); local($http_robot) = ($opt_robots ? "" : "\n"); local($img) = &imgsrc("WEB_IMGURL/mc_cool_banner.gif", "NAME=banner ". "ALT=\"[MajorCool: A Web Interface to Majordomo]\" BORDER=0"); print "--MajorCool\n" if $InMultiPart; print "Content-type: text/html\n\n"; print "\n
\n"; print <<"EOT" if $prefs{GenFontCSS}; EOT print <<"EOT" if $prefs{GenJavaScript}; EOT print <<"EOT";\n"; print "\n"; } #----------------------------------------------- # Automatically calculate GIF/JPEG image size. # (Builds
\n"; print "\@ARGV
\n"; while ($ARGV[0]) { print "$ARGV[0]\n"; shift(@ARGV); } print "
\n"; print "&ENV
\n"; foreach (sort(keys(%ENV))) { print "ENV{$_} = $ENV{$_}\n"; } print "
\n"; print "%Prefs
\n"; foreach (sort(keys(%prefs))) { print "prefs{$_} = $prefs{$_}\n"; } print "
\n"; print "%Arg
\n"; print"DEBUG: $debug_str\n" if $debug_str; foreach (sort(keys(%arg))) { print"$_ = $arg{$_}\n"; } print "
\n"; if ( $list ) { &load_cache(); print "Descr :\t$cached_descr{$list}\n"; print "Owner :\t$cached_owner{$list}\n"; print "SPolicy:\t$cached_spolicy{$list}\n"; print "UPolicy:\t$cached_upolicy{$list}\n"; print "E-Mail :\t$user_status{$list}\n"; print "
\n"; } print "
) { last if /^$/; $from = $1 if (/^from: (.*)/i); $subj = $1 if (/^subject: (.*)/i); $date = $1 if (/^date: (.*)/i); } &lclose(Q); return ($from,$subj,$date,$size); } #----------------------------------------------- # Send mail using configured Majordomo mailer. # This is identical to the sendmail function, # but was needed in cases where we did not # want the '--' prepended in the message. #----------------------------------------------- sub resendmail { #'' local($MAIL) = shift; local($to) = shift; local($subject) = shift; local($from) = $Majordomo'mail_from; local($sender) = $Majordomo'mail_sender; # The following eval expands embedded variables like $sender local($mail_cmd) = eval qq/"$Majordomo'mail_prog"/; local($isParent); if ($#_ >= $[) { $from = shift; } if ($#_ >= $[) { $sender = shift; } # force unqualified filehandles into caller's package local($package) = caller; $MAIL =~ s/^[^':]+$/$package'$&/; # clean up the addresses, for use on the mailer command line local(@to) = &main'ParseAddrs($to); for (@to) { $_ = join(", ", &main'ParseAddrs($_)); } $to = join(", ", @to); #'; print STDERR "$0: resendmail: To $to, Subject $subject, From $from\n" if $DEBUG; print STDERR "$0: resendmail: Sender $sender, mail_cmd = $mail_cmd\n" if $DEBUG; # open the process if (defined($isParent = open($MAIL, "|-"))) { &main'do_exec_sendmail(split(' ', $mail_cmd)) unless ($isParent); } else { &main'abort("Failed to fork prior to mailer exec"); } # Generate the header. Note the line beginning with "-"; this keeps # this message from being reprocessed by Majordomo if some misbegotten # mailer out there bounces it back. print $MAIL <<"EOT"; To: $to From: $from Subject: $subject Reply-To: $from EOT return; }