version 1.90, 2004/03/01 18:30:50
|
version 1.91, 2004/03/01 20:57:47
|
Line 857 ENDREC
|
Line 857 ENDREC
|
$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" /> |
</td></tr></table> |
</td></tr></table> |
$latexHelp |
$latexHelp |
<textarea name="message" cols="80" rows="10" wrap="hard">$dismsg |
<textarea name="message" cols="80" rows="10" wrap="hard">$dismsg |
Line 869 $dispcrit
|
Line 869 $dispcrit
|
ENDCOMP |
ENDCOMP |
} else { # $broadcast is 'upload' |
} else { # $broadcast is 'upload' |
$r->print(<<ENDUPLOAD); |
$r->print(<<ENDUPLOAD); |
<input type=hidden name=sendmode value=upload> |
<input type="hidden" name="sendmode" value="upload" /> |
<input type="hidden" name="send" value="on" /> |
<input type="hidden" name="send" value="on" /> |
<h3>Generate messages from a file</h3> |
<h3>Generate messages from a file</h3> |
<p> |
<p> |
Subject: <input type=text size=50 name=subject> |
Subject: <input type="text" size="50" name="subject" /> |
</p> |
</p> |
<p>General message text<br /> |
<p>General message text<br /> |
<textarea name=message cols=60 rows=10 wrap=hard>$dismsg |
<textarea name="message" cols="60" rows="10" wrap="hard">$dismsg |
</textarea></p> |
</textarea></p> |
<p> |
<p> |
The file format for the uploaded portion of the message is: |
The file format for the uploaded portion of the message is: |
Line 890 username3\@domain1: text
|
Line 890 username3\@domain1: text
|
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=20><p> |
<input type="file" name="upfile" size="40" /></p><p> |
$dispcrit |
$dispcrit |
<input type=submit value="Upload and send"> |
<input type="submit" value="Upload and send" /></p> |
ENDUPLOAD |
ENDUPLOAD |
} |
} |
if ($broadcast eq 'group') { |
if ($broadcast eq 'group') { |
Line 1016 ENDRHEAD
|
Line 1016 ENDRHEAD
|
ENDBFORM |
ENDBFORM |
} |
} |
} |
} |
|
|
|
# ----------------------------------------------- Generate the text input field |
|
|
|
sub textinputarea { |
|
my ($r,$name,$quote)=@_; |
|
$r->print('<textarea name="'.$name. |
|
'" cols="80" rows="12" wrap="hard">'.$quote.'</textarea>'); |
|
} |
|
|
# ----------------------------------------------------------- Display a message |
# ----------------------------------------------------------- Display a message |
|
|
sub displaymessage { |
sub displaymessage { |