package default; use vars qw/$standardheader/; use strict; $standardheader = < == Released under the GNU GPL --> EOF sub new { return bless {}; } sub exists { return 1 if defined &{__PACKAGE__ . '::' . $_[1]}; } sub makeline { my($self, $type, $target, $html) = @_; return "$html
\n"; } sub lines { my($self, @lines); unless(print @lines) { $::needtodie++; } } sub header { print "\n"; } sub keepalive { unless(print "\r\n") { $::needtodie++; } } sub error { my($self, $error) = @_; $self->line({}, '', $error); } sub form { 'DUMMY' } sub add { 'DUMMY' } sub del { 'DUMMY' } sub clear { 'DUMMY' } sub end { 'DUMMY' } sub options { 'DUMMY' } sub setoption { 'DUMMY' } # not supported by default interface sub ctcpping { 0 } sub ping { 0 } sub login { my($self, $this, $interface, $copy, $config, $order, $items, $adv) = @_; my $notsupported = 0; if($ENV{HTTP_USER_AGENT} =~ /konqueror.2|Mozilla\/4.\d+ \[|OmniWeb/i) { $notsupported++; } print < CGI:IRC Login EOF if($notsupported) { print "Your browser does not correctly support CGI:IRC, it might not work or other problems may occur. Please consider upgrading.\n"; } print < EOF print "\n"; print < CGI:IRC Login EOF for(@$order) { my $item = $$items{$_}; next unless defined $item; print "$_"; if(ref $item eq 'ARRAY') { print ""; }elsif($item eq '-PASSWORD-') { print ""; }else{ my $tmp = ''; if($item =~ s/^-DISABLED- //) { $tmp = " disabled=\"1\""; } print ""; } print "\n"; } print < EOF if($adv) { print <Advanced.. EOF } print < $copy EOF } 1;