Der Corsa-tigra.de Chat !

[FTBerlin]

...verrückte sache... es sind tatsächlich 9 leute im chat
endlich wieder
also leute... mirc laden und rein ins getümmel... da is noch platz!!!

[sgtsaad]

9 Leute von denen 3 schreiben

[FTBerlin]

....ein anfang is gemacht

[Splitter]

bei mir geht der chat gar net?!

#!/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');

if(!parse_cookie()) {
print "Set-cookie: cgiircauth=". random(25) .";path=/\r\n";
}
print join("\r\n",
# Hack to make sure we print the correct type for stylesheets too..
'Content-type: text/' . (ref $cgi && defined $cgi->{item} &&
$cgi->{item} eq 'style' ? 'css' : 'html')
# We need this for some JavaScript magic that detects the character set.
# Basically don't send a character set for the login page..
. (ref $cgi && ($cgi->{item} || $cgi->{Nickname}) ? '; charset=utf-8' : ''),
'Pragma: no-cache',
'Cache-control: must-revalidate, no-cache',
'Expires: -1') . "\r\n";

# Please leave this.
my $copy = <<EOF;
<a href="http://cgiirc.sourceforge.net/">CGI:IRC</a> $VERSION

EOF

my $scriptname = $config->{script_login} || 'irc.cgi';

my $interface = ref $cgi && defined $cgi->{interface} ? $cgi->{interface} : 'default';
$interface =~ /^([a-z0-9]+)/;
$interface = $1;
require($interface . '.pm');

if(ref $cgi && defined $cgi->{item}) {
print "\r\n"; # send final header
my $name = $cgi->{item};
exit unless $interface->exists($name);
$interface->$name($cgi, $config, 0);
}elsif(ref $cgi && defined $cgi->{Nickname}) {
print "\r\n"; # send final header
my $r = random();
my($format, $style);

my %p = (
Nickname => 'nick',
Channel => 'chan',
Port => 'port',
Server => 'serv',
Realname => 'name',
interface => 'interface',
Password => 'pass',
Format => 'format',
'Character_set' => 'charset',
);
my $out;
for(keys %p) {
if(exists $cgi->{"${_}_text"}) {
if(!defined $cgi->{$_} or $cgi->{$_} eq '') {
$cgi->{$_} = $cgi->{"${_}_text"};
}
}
next unless exists $cgi->{$_};
$out .= cgi_encode($p{$_}) . '=' . cgi_encode($cgi->{$_}) . '&';
}

$format = exists $cgi->{Format}
? $cgi->{Format}
: $config->{format} || 'default';
$format =~ s/[^a-z]//gi;
$format = parse_config($config_path . "formats/$format");
$style = exists $format->{style} ? $format->{style} : 'default';

$out .= "R=$r";

if(defined $config->{'login secret'}) {
require Digest::MD5;
my $t = time;
my $token = Digest::MD5::md5_hex($t . $config->{'login secret'} . $r);
$out .= "&token=$token&time=$t";
}

$interface->frameset($scriptname, $config, $r, $out, $interface, $style);

}elsif(defined $config->{form_redirect}) {
print join("\r\n",
"Status: 302",
"Location: $config->{form_redirect}",
"",
$config->{form_redirect});
}else{
print "\r\n"; # send final header

my $have_entities = 0;
eval { require HTML::Entities; $have_entities = 1; };

my(%items,@order);

my $server = dolist($config->{default_server});
my $channel = dolist($config->{default_channel});
my $port = dolist($config->{default_port});

my $charset = [ $config->{'irc charset'} || 'Unicode (UTF-8)' ];

# Add some useful suggestions for character sets:
for my $set('Western (ISO-8859-1)', 'Cyrillic (ISO-8859-5)',
'Cyrillic (KOI8-R)', 'Japanese (ShiftJIS)', 'Chinese (Big5)',
'Chinese (GB2312)', 'Korean

[FTBerlin]

musst über nen irc rein.....

[sgtsaad]

Probiers ma mit nem iRC Client.

[spezi]

Was ist irc??

[sgtsaad]

Seite 2 hier im Thread

[amos]

http://www.mirc.com

[spezi]

Danke!
Ich war zu schnell.Wer lesen kann ist klar im vorteil!!

gruss Spezi