version 1.42, 2006/11/23 16:40:17
|
version 1.43, 2006/11/29 05:54:34
|
Line 1039 sub compout {
|
Line 1039 sub compout {
|
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
my $latexHelp = Apache::loncommon::helpLatexCheatsheet(); |
if ($broadcast ne 'upload') { |
if ($broadcast ne 'upload') { |
$r->print(<<"ENDCOMP"); |
$r->print(<<"ENDCOMP"); |
<tr><td>$lt{'ad'}<br /><tt>username\@domain,username\@domain, ... |
<tr><td>$lt{'ad'}<br /><tt>username:domain,username:domain, ... |
</tt></td><td> |
</tt></td><td> |
<input type="text" size="50" name="additionalrec" /></td></tr> |
<input type="text" size="50" name="additionalrec" /></td></tr> |
<tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub" /> |
<tr><td>$lt{'sb'}:</td><td><input type="text" size="50" name="subject" value="$dissub" /> |
Line 1077 Subject: <input type="text" size="50" na
|
Line 1077 Subject: <input type="text" size="50" na
|
<p> |
<p> |
The file format for the uploaded portion of the message is: |
The file format for the uploaded portion of the message is: |
<pre> |
<pre> |
username1\@domain1: text |
username1:domain1: text |
username2\@domain2: text |
username2:domain2: text |
username3\@domain1: text |
username3:domain1: text |
</pre> |
</pre> |
</p> |
</p> |
<p> |
<p> |
The messages will be assembled from all lines with the respective |
The messages will be assembled from all lines with the respective |
<tt>username\@domain</tt>, and appended to the general message text.</p> |
<tt>username:domain</tt>, and appended to the general message text.</p> |
<p> |
<p> |
<input type="file" name="upfile" size="40" /></p><p> |
<input type="file" name="upfile" size="40" /></p><p> |
$dispcrit |
$dispcrit |
Line 1906 sub sendoffmail {
|
Line 1906 sub sendoffmail {
|
} |
} |
} elsif ($env{'form.sendmode'} eq 'upload') { |
} elsif ($env{'form.sendmode'} eq 'upload') { |
foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) { |
foreach my $line (split(/[\n\r\f]+/,$env{'form.upfile'})) { |
my ($rec,$txt)=split(/\s*\:\s*/,$line); |
my ($rec,$txt) = ($line =~ /^([^:]+:[^:]+):(.*)$/); |
if ($txt) { |
if ($txt) { |
$rec=~s/\@/\:/; |
$rec =~ s/^\s+//; |
|
$rec =~ ~s/\s+$//; |
$toaddr{$rec}.=$txt."\n"; |
$toaddr{$rec}.=$txt."\n"; |
} |
} |
} |
} |
Line 1919 sub sendoffmail {
|
Line 1920 sub sendoffmail {
|
} |
} |
if ($env{'form.additionalrec'}) { |
if ($env{'form.additionalrec'}) { |
foreach my $rec (split(/\,/,$env{'form.additionalrec'})) { |
foreach my $rec (split(/\,/,$env{'form.additionalrec'})) { |
my ($auname,$audom)=split(/\@/,$rec); |
my ($auname,$audom)=split(/:/,$rec); |
if (($auname ne "") && ($audom ne "")) { |
if (($auname ne "") && ($audom ne "")) { |
$toaddr{$auname.':'.$audom}=''; |
$toaddr{$auname.':'.$audom}=''; |
} |
} |