Generate messages from a file
+
Subject:
+
+General message text
+
+
+The file format for the uploaded portion of the message is:
username1\@domain1: text
username2\@domain2: text
-username1\@domain1: text
+username3\@domain1: text
+
+
The messages will be assembled from all lines with the respective
-username\@domain, and appended to the general message text.
+username\@domain, and appended to the general message text.
+
-General message text:
-
$dispcrit
ENDUPLOAD
@@ -512,21 +521,9 @@ sub handler {
return OK if $r->header_only;
# --------------------------- Get query string for limited number of parameters
-
- foreach (split(/&/,$ENV{'QUERY_STRING'})) {
- my ($name, $value) = split(/=/,$_);
- $value =~ tr/+/ /;
- $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
- if (($name eq 'display') || ($name eq 'replyto') ||
- ($name eq 'forward') || ($name eq 'markread') ||
- ($name eq 'markdel') || ($name eq 'markunread') ||
- ($name eq 'sendreply') || ($name eq 'compose') ||
- ($name eq 'sendmail') || ($name eq 'critical')) {
- unless ($ENV{'form.'.$name}) {
- $ENV{'form.'.$name}=$value;
- }
- }
- }
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['display','replyto','forward','markread','markdel','markunread',
+ 'sendreply','compose','sendmail','critical']);
# --------------------------------------------------------------- Render Output