Corsa-Tigra.de

#!/usr/bin/perl# CGI:IRC - http://cgiirc.sourceforge.net/# Copyright (C) 2000-2006 David Leadbeater <http://contact.dgl.cx/># vim:set ts=3 expandtab shiftwidth=3 cindent:# This program is free software; you can redistribute it and/or modify# it under the terms of the GNU General Public License as published by# the Free Software Foundation; either version 2 of the License, or# (at your option) any later version.# This program is distributed in the hope that it will be useful,# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the# GNU General Public License for more details.# You should have received a copy of the GNU General Public License# along with this program; if not, write to the Free Software# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA# Uncomment this if the server doesn't chdir (Boa).# BEGIN { (my $dir = $0) =~ s|[^/]+$||; chdir($dir) }use strict;use vars qw($VERSION $config $config_path);use lib qw,/usr/share/cgiirc/modules /usr/share/cgiirc/interfaces,;no warnings 'uninitialized';($VERSION = '$Name: rel_0_5_9 $ 0_5_CVS $Id: irc.cgi,v 1.41 2006/06/06 18:53:50 dgl Exp $') =~ s/^.*?(\d\S+) .*?(\d{4}\/\S+) .*$/$1/;$VERSION .= " ($2)";$VERSION =~ s/_/./g;require 'parse.pl';my $cgi = cgi_read();for('', '/etc/cgiirc/', '/etc/') { last if -r ($config_path = $_) . 'cgiirc.config';}$config = parse_config($config_path . 'cgiirc.config');

FTBerlin hat geschrieben:gestern abend war nach langer zeit sogar mal wieder was los