geniuschat_broadcast.cgi

来自「由玉面白狐修改的即時聊天」· CGI 代码 · 共 20 行

sub broadcasthtm {
print "Content-type: text/html\n\n";
print <<INDEX;
<table border="1" width="100%">
  <tr><form method="POST" action="$cgiurl?job=broadcast&amp;supername=$FORM{'supername'}&amp;superpassword=$FORM{'superpassword'}">
    <td align="center">
      <select name="broadcastip" size="1">
        <option value="all">┮Τ呼ね</option>
INDEX
open (ONLINE,"$filedir$onlinefile");
@ONLINE = <ONLINE>;
close(ONLINE);
foreach $ONLINE (@ONLINE) {
$ONLINE=~ s/\n//g;
($addrn,$hourn,$minn,$secn,$messn) = split(/↑/,$ONLINE);
print "<option value=$addrn>$addrn\n";
}
print <<INDEX;
      </select>
      約冀ず甧:<input type="text" name="broadcast" size="10"><input type="submit" value="癳