Return to lonratsrv.pm CVS log | Up to [LON-CAPA] / rat |
New files to deal with server side of RAT
1: # The LearningOnline Network with CAPA 2: # Server for RAT Maps 3: # 4: # (Edit Handler for RAT Maps 5: # (TeX Content Handler 6: # 7: # 05/29/00,05/30 Gerd Kortemeyer) 8: # 7/1 Gerd Kortemeyer) 9: # 7/1 Gerd Kortemeyer 10: 11: package Apache::lonratsrv; 12: 13: use strict; 14: use Apache::Constants qw(:common); 15: 16: # ================================================================ Main Handler 17: 18: sub handler { 19: my $r=shift; 20: $r->content_type('text/html'); 21: $r->send_http_header; 22: 23: return OK if $r->header_only; 24: 25: my $url=$r->uri; 26: 27: $r->print(<<ENDDOCUMENT); 28: <html> 29: <body bgcolor="#FFFFFF"> 30: <form name=storage method=post> 31: <input type=hidden name=output> 32: </form> 33: </body> 34: </html> 35: 36: ENDDOCUMENT 37: return OK; 38: } 39: 40: 1; 41: __END__ 42: 43: 44: 45: 46: 47: 48: