loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.398, 2003/08/06 17:00:30
+version 1.399, 2003/08/12 19:46:04
  Line 1284  sub get_course_adv_roles {
      return %returnhash;
  }
+ # ----------------------------------------------------- Frontpage Announcements
+ #
+ #
+ sub postannounce {
+     my ($server,$text)=@_;
+     unless (&allowed('psa',$hostdom{$server})) { return 'refused'; }
+     unless ($text=~/\w/) { $text=''; }
+     return &reply('setannounce:'.&escape($text),$server);
+ }
+ sub getannounce {
+     if (my $fh=Apache::File->new($perlvar{'lonDocRoot'}.'/announcement.txt')) {
+ 	my $announcement='';
+ 	while (<$fh>) { $announcement .=$_; }
+ 	$fh->close();
+ 	if ($announcement=~/\w/) {
+ 	    return
+    '<table bgcolor="#FF5555" cellpadding="5" cellspacing="3">'.
+    '<tr><td bgcolor="#FFFFFF"><pre>'.$announcement.'</pre></td></tr></table>';
+ 	} else {
+ 	    return '';
+ 	}
+     } else {
+ 	return '';
+     }
+ }
  # ---------------------------------------------------------- Course ID routines
  # Deal with domain's nohist_courseid.db files
  #