loncom/interface/lonchatfetch.pm - view

File: [LON-CAPA] / loncom / interface / lonchatfetch.pm
Revision 1.3: download - view: text, annotated - select for diffs
Wed Aug 14 16:24:00 2002 UTC (21 years, 10 months ago) by www
Branches: MAIN
CVS tags: STABLE, HEAD

This now scrolls to the bottom of the page. Exploder compatibility not tested.

1: # The LearningOnline Network 2: # Chat Fetching 3: # 4: # $Id: lonchatfetch.pm,v 1.3 2002/08/14 16:24:00 www Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: 29: package Apache::lonchatfetch; 30: 31: use strict; 32: use Apache::Constants qw(:common); 33: use Apache::lontexconvert; 34: 35: sub handler { 36: my $r = shift; 37: $r->content_type('text/html'); 38: $r->send_http_header; 39: return OK if $r->header_only; 40: 41: # ------------------------------------------------------------ retrieve entries 42: 43: my $cnum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'}; 44: my $cdom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; 45: my $chome=$ENV{'course.'.$ENV{'request.course.id'}.'.home'}; 46: my @entries=split(/\:/, 47: &Apache::lonnet::reply("chatretr:$cdom:$cnum",$chome)); 48: my ($lastid)=($entries[$#entries]=~/^(\w+)/); 49: my ($thentime,$idnum)=split(/\_/,$lastid); 50: # -------------------------------------------------------- see which ones apply 51: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['lastid']); 52: my $include=0; 53: my $newstuff=''; 54: my $bottomid=''; 55: unless ($ENV{'form.lastid'}) { 56: $include=1; 57: $newstuff='<html><body bgcolor="#FFFFFF">'; 58: } 59: foreach (@entries) { 60: if ($include) { 61: my ($id,$msg)=split(/\:/,&Apache::lonnet::unescape($_)); 62: chomp($msg); 63: my ($msgtime,$msgnum)=split(/\_/,$id); 64: my ($sdom,$snum,$anon,$contrib)=split(/\:/, 65: &Apache::lonnet::unescape($msg)); 66: $contrib=&Apache::lonnet::unescape($contrib); 67: $contrib=~s/\n/\<br \/\>/g; 68: $contrib=&Apache::lontexconvert::msgtexconverted($contrib); 69: $contrib=~s/\n/ /g; 70: $contrib=~s/\'/\&\#39\;/g; 71: my $sender=$snum.' at '.$sdom; 72: if ($anon) { 73: } 74: $newstuff.='<a name="'.$id.'"><b>'. 75: $sender.'</b> ('.localtime($msgtime).'): '. 76: $contrib."<br>"; 77: $bottomid=$id; 78: } else { 79: $_=~/^(\w+)/; 80: if ($1 eq $ENV{'form.lastid'}) { $include=1; } 81: } 82: } 83: $r->print(<<ENDDOCUMENT); 84: <html> 85: <head> 86: <title>The LearningOnline Network with CAPA</title> 87: <meta HTTP-EQUIV="Refresh" CONTENT="5; url=/adm/chatfetch?lastid=$lastid"> 88: </head> 89: <body bgcolor="#FFFFFF"> 90: <script> 91: parent.chatout.document.writeln('$newstuff'); 92: parent.chatout.scroll(0,10000000); 93: </script> 94: </body> 95: </html> 96: ENDDOCUMENT 97: return OK; 98: } 99: 100: 1; 101: __END__