1package opera; 2use strict; 3use vars qw/@ISA $standardheader/; 4 5$standardheader = <<EOF; 6<!-- This is part of CGI:IRC 0.5 7 == http://cgiirc.org/ 8 == Copyright (C) 2000-2002 David Leadbeater <http://dgl.cx> 9 == Released under the GNU GPL 10 --> 11EOF 12 13use nonjs; 14@ISA = qw/nonjs/; 15 16sub _out { 17 print "$_[1]\r\n"; 18} 19 20sub header { 21 my($self, $config, $cgi) = @_; 22 print <<EOF; 23$standardheader 24<html><head> 25<script language="JavaScript"><!-- 26// opera scrolling fix - thanks to Helge Laurisch 27scrolling=true; 28function moves() { 29 if (scrolling != false) { 30 s(); 31 } 32 window.setTimeout('moves()', 100); 33} 34moves(); 35 36function s() { 37 window.scrollBy(1, 50000); 38} 39function u() { 40 parent.fuserlist.window.location = "$config->{script_form}?interface=$cgi->{interface}&R=$cgi->{R}&item=userlist"; 41} 42function f() { 43 parent.fform.window.location = "$config->{script_form}?interface=$cgi->{interface}&R=$cgi->{R}&item=form"; 44} 45//--> 46</script> 47</head> 48<body bgcolor="#ffffff" text="#000000" 49onfocus="scrolling=true" onblur="scrolling=false" onmouseover="scrolling=true" 50onmouseout="scrolling=false"> 51EOF 52} 53 541; 55