Also, der Typ der das Geschrieben hat sagte dass man es nur mit ner SSH Konsole ausführen kann, deswegen funzt das nicht bei mir. Da ich keine Konsole habe könnte man doch einfach die sachen ändern die das benötigen oder?
Naja, die änderungen der Dateien sind nicht gerade einfach. Aber es wird klar gezeigt was gemacht wird. Nur leider habe ich zu wenig ahnung davon ):
Hier das script:
#!/usr/bin/perl -w
# Drop Egg
#
# This script takes a heap of daily eggdrop logs and changes them around
# to look a little more mIRC-like. (So that they can be fed through PISG
# and whatnot)
#
# Copyright 2001, Emil Mikulic. <darkmoon7@optushome.com.au>
use Time::Local;
$logdir = "/home/www/web146/html/irc";
$logname = "www145.gcwf.log";
$outfile = "www145.gcwf.log";
$channel = "#gcwf";
open(OUTFILE, ">$outfile");
foreach (`ls $logdir/$logname.*`)
{
chomp( $current_log = $_ );
print "Sanitizing $current_log...";
($year,$mon,$day) = $current_log =~ /$logdir\/$logname\.(\d\d\d\d)(\d\d)(\d\d)/;
$time = timelocal(1,0,0,$day,$mon,$year);
print OUTFILE "\nSession Start: " . localtime($time) . "\n";
print OUTFILE "[00:00] *** Now talking in $channel\n";
foreach (`cat $current_log`)
{
chomp( $line = $_ );
$line =~ s/\cB//g;
$line =~ s/\c_//g;
$line =~ s/\cO//g;
$line =~ s/\cC\d+//g;
# [02:25] DTails (~Dtails@co3033554-a.mckinn1.vic.optushome.com.au) joined #gencorp.
# [14:48] *** shai (cmot_dblah@a1-46.melbpc.org.au) has joined #breakfastclub
if (($line =~ /joined/) && !($line =~ /\</))
{
($timestamp,$nick,$hostmask) = $line =~ /(\[\d\d\:\d\d\]) (\S+) \(([^)]+)\) joined/;
$line = "$timestamp *** $nick ($hostmask) has joined $channel";
}
# [02:26] DTails (~Dtails@co3033554-a.mckinn1.vic.optushome.com.au) left irc: We're the
# [14:46] *** alice (noidea@dialup-33.ap1-nas7.unite.mel.dav.net.au) Quit
if (($line =~ /left irc/) && !($line =~ /\[\d\d\:\d\d\] \</))
{
($timestamp,$nick,$hostmask) = $line =~ /(\[\d\d\:\d\d\]) (\S+) \(([^)]+)\) left irc/;
$line = "$timestamp *** $nick ($hostmask) Quit";
}
if (($line =~ /got netsplit/) && !($line =~ /\[\d\d\:\d\d\] \</))
{
($timestamp,$nick,$hostmask) = $line =~ /(\[\d\d\:\d\d\]) (\S+) \(([^)]+)\) got netsplit/;
$line = "$timestamp *** $nick ($hostmask) Quit";
}
# [19:42] Action: G..... wipes away tear
# [19:42] * G..... is a SED KENT
if ($line =~ /\[\d\d\:\d\d\] Action/)
{
$line =~ s/Action\:/\*/;
}
# [12:06] Nick change: DTails -> DT|Work
# [14:53] *** Death is now known as Memnoch
if ($line =~ /\[\d\d\:\d\d\] Nick change/)
{
$line =~ s/(\[\d\d\:\d\d\]) Nick change\: (\S+) \-\> (\S+)/$1 *** $2 is now known as $3/;
}
# [11:23] #gencorp: mode change '+o ark|tv' by curtis!~curtis@co...
# [11:23] *** curtis sets mode: +o ark
if ($line =~ /\[\d\d\:\d\d\] \#\S+ mode change/)
{
($timestamp,$mode,$setter) = $line =~
/(\[\d\d\:\d\d\]) \#\S+ mode change \'([^']+)\' by ([^!]+)\!/;
$line = "$timestamp *** $setter sets mode: $mode";
}
# [19:32] Gumpy kicked from #gencorp by curtis: flood
# [18:49] *** darkmoon was kicked by dark|away (BLAM!)
if ($line =~ /\[\d\d\:\d\d\] \S+ kicked from \#/)
{
($timestamp,$victim,$kicker,$reason) = $line =~
/(\[\d\d\:\d\d\]) (\S+) kicked from \#\S+ by ([^:]+)\: (.+)/;
$line = "$timestamp *** $victim was kicked by $kicker ($reason)";
}
# [00:48] Topic changed on #gen by arknstone!~...: <topic>
# [14:43] *** arknstone changes topic to 'this is a test'
if ($line =~ /\[\d\d\:\d\d\] Topic changed/)
{
($timestamp,$changer,$topic) = $line =~
/(\[\d\d\:\d\d\]) Topic changed on \#\S+ by ([^!]+)\![^:]+\: (.+)/;
$line = "$timestamp *** $changer changes topic to '$topic'";
}
if (!(($line =~ /got lost/) && !($line =~ /\[\d\d\:\d\d\] \</)))
{
print OUTFILE "$line\n";
}
}
$time = timelocal(59,59,23,$day,$mon,$year);
print OUTFILE "Session Close: " . localtime($time) . "\n";
print "done!\n";
}
close(OUTFILE);
