loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.135, 2003/08/12 09:39:23
+version 1.136, 2003/08/12 19:46:04
  Line 1733  sub make_new_child {
                         }
                         if ($ulsout eq '') { $ulsout='empty'; }
                         print $client "$ulsout\n";
+ # ----------------------------------------------------------------- setannounce
+                    } elsif ($userinput =~ /^setannounce/) {
+ 		       my ($cmd,$announcement)=split(/:/,$userinput);
+ 		       chomp($announcement);
+ 		       $announcement=&unescape($announcement);
+                        if (my $store=IO::File->new('>'.$perlvar{'lonDocRoot'}.
+ 						'/announcement.txt')) {
+ 			   print $store $announcement;
+                            close $store;
+ 			   print $client "ok\n";
+ 		       } else {
+ 			   print $client "error: ".($!+0)."\n";
+ 		       }
  # ------------------------------------------------------------------ Hanging up
                     } elsif (($userinput =~ /^exit/) ||
                              ($userinput =~ /^init/)) {