View ¡m../sdba/impages/BROADCASTadminsend.im¡n

---

# Admin page # <% if ($INCOMINGMSG eq "X"||$INCOMINGMSG eq "x"){ imecho "Press any key to continue"; $NEXTPAGE="0"; } else { $MSGTOGO = "$VISITOR has an important message for you:\n".$INCOMINGMSG; open (STATS, "<impages/Broadcastlist.txt"); @list = <STATS>; close STATS; $count = 0; foreach $member (@list){ #get rid of the newline chomp $member; ($pr, $name) = split (",",$member); if ($pr eq $IMNET){ SEND_IM($name,$MSGTOGO); $count++; } } imecho "Sent the message to $count members.\n"; include (BROADCASTadminmenu.im); } X; %>