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