loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1, 2002/08/08 13:44:17	version 1.3, 2002/08/14 16:24:00
Line 51 sub handler {	Line 51 sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']);
my $include=0;	my $include=0;
my $newstuff='';	my $newstuff='';
unless ($ENV{'form.lastid'}) { $include=1; }	my $bottomid='';
	unless ($ENV{'form.lastid'}) {
	$include=1;
	$newstuff='<html><body bgcolor="#FFFFFF">';
	}
foreach (@entries) {	foreach (@entries) {
if ($include) {	if ($include) {
my ($id,$msg)=split(/\:/,&Apache::lonnet::unescape($_));	my ($id,$msg)=split(/\:/,&Apache::lonnet::unescape($_));
Line 67 sub handler {	Line 71 sub handler {
my $sender=$snum.' at '.$sdom;	my $sender=$snum.' at '.$sdom;
if ($anon) {	if ($anon) {
}	}
$newstuff.='<b>'.$sender.'</b> ('.localtime($msgtime).'): '.	$newstuff.='<a name="'.$id.'"><b>'.
	$sender.'</b> ('.localtime($msgtime).'): '.
$contrib."<br>";	$contrib."<br>";
	$bottomid=$id;
} else {	} else {
$_=~/^(\w+)/;	$_=~/^(\w+)/;
if ($1 eq $ENV{'form.lastid'}) { $include=1; }	if ($1 eq $ENV{'form.lastid'}) { $include=1; }
Line 83 sub handler {	Line 89 sub handler {
<body bgcolor="#FFFFFF">	<body bgcolor="#FFFFFF">
<script>	<script>
parent.chatout.document.writeln('$newstuff');	parent.chatout.document.writeln('$newstuff');
	parent.chatout.scroll(0,10000000);
</script>	</script>
</body>	</body>
</html>	</html>