Subversion Repositories HomeAutomation

#!/usr/bin/perl -w

$debugmode = 0;

#$outputpath = "outp/";

#$linenrpath = "linenr.txt";

#$contentspath = "contents.txt";

#$currentfilepath = "currentfile.txt";

#$logfilepath = "#hobby_small.log";

#$contentsfileoutput = "outp/";

#$contentsfilename = "hobby.txt";

$contentsheader = "====== Log of #hobby-channel ======\n";

#$namespace = "common:irc:hobby:";

#require "settings.pl";

use File::Copy;

$numArgs = $#ARGV + 1;

if ($numArgs == 1) {

    if ($ARGV[0] eq "-r") {

        #reset log system

        $fileopenerr = 0;

        open (LINENR, ">".$linenrpath) or $fileopenerr = 1;

        if ($fileopenerr == 0) {

            print LINENR "0";

            close(LINENR);

        }

        $fileopenerr = 0;

        open (CONTENTSFILE, ">".$contentspath) or $fileopenerr = 1;

        if ($fileopenerr == 0) {

            print CONTENTSFILE "";

            close(CONTENTSFILE);

        }

        close(CONTENTSFILE);

        $fileopenerr = 0;

        open (CURRFILE, ">".$currentfilepath) or $fileopenerr = 1;

        if ($fileopenerr == 0) {

            print CURRFILE "";

            close(CURRFILE);

        }      

        #print "exit\n";

        exit;

    }

}

if ($numArgs == 2) {

    if ($ARGV[0] eq "-s") {

        require "$ARGV[1]";

    }

}

$startAtLine = 0;

$currentfile = "";

$fileopenerr = 0;

open (LINENR, "<".$linenrpath) or $fileopenerr = 1;

if ($fileopenerr == 0) {

    $startAtLine = <LINENR>;

    if ($startAtLine =~ /\D/) {

        print "Not a number: $startAtLine\n";

        exit;

    }

    close(LINENR);

} else {

    print "Could not open ".$linenrpath;

    exit;

}

$fileopenerr = 0;

open (CURRFILE, "<".$currentfilepath) or $fileopenerr = 1;

if ($fileopenerr == 0) {

    $currentfile = <CURRFILE>;

    if (!$currentfile && $startAtLine != 0) {

        print "Current file not ok\n";

        exit;

    }

    close(CURRFILE);

} else {

    print "Could not opeen ".$currentfilepath;

    if ($startAtLine != 0) {

        exit;

    }

}

$fileopenerr = 0;

open (LOGFILE, "<".$logfilepath) or $fileopenerr = 1;

if ($fileopenerr == 1) {

    print "Could not open ".$logfilepath;

    exit;

}

if ($currentfile) {

    if ($debugmode == 0) {

        $fileopenerr = 0;

        open (OUTFILE, ">>".$outputpath.$currentfile) or $fileopenerr = 1;

        if ($fileopenerr == 1) {

            print "Could not open ".$outputpath."/".$currentfile;

            exit;

        }

    }

}

@colors = ("#2F4F4F","#696969","#A0522D","#D2691E","#DAA520","#191970","#0000CD","#4682B4","#7FEFD4","#556B2F","#008B8B","#808000","#2E8B57","#32CD32","#483D8B","#6A5ACD","#8A2BE2","#BDB76B","#EF4500","#C71585","#8B0000","#DC143C","#E9967A","#CD5C5C","#B0E0E6","#E0E0C0");

$nrofcolors = @colors;

$linecnt = 0;

while (<LOGFILE>) {

    #print $linecnt ." ";

    $line = $_;

    #$store = "";

    if ($linecnt >= $startAtLine) {

        if ($line =~ m/^Session Time:/ || $line =~ m/^Session Start:/) {

            #print $line;

            $datetimenice = $line;

            $datetimenice =~ s/Session Time: //g;

            $datetimenice =~ s/Session Start: //g;

            $datetimenice =~ s/\n//g;

            $datetimenice =~ s/\r//g;

            $datetime = $line;

            $datetime =~ s/Session Time: //g;

            $datetime =~ s/Session Start: //g;

            $datetime =~ s/://g;

            $datetime =~ s/\n//g;

            $datetime =~ s/\r//g;

            $datetime =~ s/ /_/g;

            $datetime = lc($datetime);

            if ($currentfile) {

                if ($debugmode == 0) {

                    print OUTFILE "\n\\\\\nNext page: [[".$datetime."]] \\\\ \n";

                    print OUTFILE "Back to index: [[".$namespace."]] \\\\ \n";

                    close(OUTFILE);

                    $fileopenerr = 0;

                    copy($outputpath.$currentfile, $outputpath."yesterday.txt") or $fileopenerr = 1;

                    if ($fileopenerr == 1) {

                            print "Could not copy yesterday.txt-log";

                    }

                }              

            }

            $currentfile = $datetime .".txt";

            # skriv $datetimenice och $datetime till $contentspath

            $fileopenerr = 0;

            open (CONTENTSFILE, "<".$contentspath) or $fileopenerr = 1;

            if ($fileopenerr == 0) {

                @contentsfilecontents = <CONTENTSFILE>;

                close(CONTENTSFILE);

                if ($debugmode == 0) {

                    open (CONTENTSFILE, ">".$contentspath) or $fileopenerr = 1;

                    if ($fileopenerr == 0) {

                        print CONTENTSFILE "[[$namespace$datetime|$datetimenice]] \\\\ \n";

                        foreach (@contentsfilecontents) {

                            print CONTENTSFILE $_;

                        }

                        close(CONTENTSFILE);

                    }

                }

            } else {

                exit;

            }

            if ($debugmode == 0) {

                $fileopenerr = 0;

                open (OUTFILE, ">>".$outputpath.$currentfile) or $fileopenerr = 1;

                if ($fileopenerr == 1) {

                    print "Could not open ".$outputpath."/".$currentfile;

                    exit;

                }

            }

            if ($currentfile) {

                if ($debugmode == 0) {

                    print OUTFILE "====== ".$datetimenice." ======\n";

                }              

            }

            #print $datetime;

        }

        elsif ($currentfile) {

            $parsedLine = $line;

            $parsedLine =~ s/\n//g;

            $parsedLine =~ s/\r//g;

            #$parsedLine = $parsedLine;

            #<color #aaaaaa>

            #</color>   

            $nickLine = $parsedLine;

            if ($nickLine =~ m/.*<(\w{1,9})>.*/) {

                $nick = $1;

                $nickVal = 0;

                my @chars = split //, $nick;

                foreach my $char (@chars) {

                #for ($i = 0; $i < length($nick); $i++) {

                    #$charval = ord(substr($nick, $i, 1));

                    $nickVal += ord($char);

                    #$nickVal += $charval;

                }

                #$temp = $nickVal;

                $nickVal = ($nickVal) % $nrofcolors;

                #$nickB = sprintf("%x", ((($nickVal & 7)**2)*2.3+5));

                #$nickG = sprintf("%x", (((($nickVal >> 3) & 7)**2.3)*2+5));

                #$nickR = sprintf("%x", (((($nickVal >> 6) & 7)**2.3)*2+5));

                #if (length($nickB) == 1) {

                #   $nickB = "0".$nickB;

                #}

                #if (length($nickG) == 1) {

                #   $nickG = "0".$nickG;

                #}

                #if (length($nickR) == 1) {

                #   $nickR = "0".$nickR;

                #}

                #print "$nick $temp $nickVal $colors[$nickVal] \n";

                #$color = "#$nickR$nickG$nickB";

                $parsedLine =~ s/<$nick>/<color $colors[$nickVal]><$nick><\/color>/;

                #print $nick." ".$nickVal."\n";

                #print $parsedLine ."\n";

            }

            #$parsedLine =~ s/\/\//\//g;

            $parsedLine =~ s/''/'/g;

            $parsedLine =~ s/\[\[/\[/g;

            $parsedLine =~ s/\]\]/\]/g;

            $parsedLine =~ s/\(\(/\(/g;

            $parsedLine =~ s/\)\)/\)/g;

            $parsedLine =~ s/____/_/g;

            $parsedLine =~ s/___/_/g;

            $parsedLine =~ s/__/_/g;

            $parsedLine =~ s/\*\*/\*/g;

            $parsedLine =~ s/\x{e5}/å/g;

            $parsedLine =~ s/\x{e4}/ä/g;

            $parsedLine =~ s/\x{f6}/ö/g;

            $parsedLine =~ s/\x{c5}/Å/g;

            $parsedLine =~ s/\x{c4}/Ä/g;

            $parsedLine =~ s/\x{d6}/Ö/g;

            $parsedLine =~ s/\[wiki\]/**[wiki]**/g;

            $parsedLine =~ s/\[svn\]/**[svn]**/g;

            $parsedLine .= " ";

            $parsedLine =~ s/http:\/\/projekt\.auml\.se\/(\S+)/[[:$1]] /g;

            $parsedLine .= "\\\\"."\n";

            if ($debugmode == 0) {

                print OUTFILE $parsedLine;

            }

        }

        #print $store;

    }

    $linecnt++;

}

close(OUTFILE);

$fileopenerr = 0;

copy($outputpath.$currentfile, $outputpath."today.txt") or $fileopenerr = 1;

if ($fileopenerr == 1) {

    print "Could not copy today.txt-log";

}

if ($debugmode == 0) {

    $fileopenerr = 0;

    open (LINENR, ">".$linenrpath) or $fileopenerr = 1;

    if ($fileopenerr == 0) {

        print LINENR $linecnt;

        close(LINENR);

    }

}

if ($debugmode == 0) {

    $fileopenerr = 0;

    open (CURRFILE, ">".$currentfilepath) or $fileopenerr = 1;

    if ($fileopenerr == 0) {

        print CURRFILE $currentfile;

        close(CURRFILE);

    } else {

        print "Could not open ".$currentfilepath;

        exit;

    }

}

if ($debugmode == 0) {

    $fileopenerr = 0;

    open (CONTENTSFILE, "<".$contentspath) or $fileopenerr = 1;

    if ($fileopenerr == 0) {

        open (NICECONTENTSFILE, ">".$contentsfileoutput.$contentsfilename) or $fileopenerr = 1;

        if ($fileopenerr == 0) {

            @contentsfilecontents = <CONTENTSFILE>;

            print NICECONTENTSFILE $contentsheader;

            foreach (@contentsfilecontents) {

                print NICECONTENTSFILE $_;

            }

            close(NICECONTENTSFILE);

        } else {

            print "Could not open ".$contentsfileoutput.$contentsfilename;

            exit;

        }

        close(CONTENTSFILE);

    } else {

        print "Could not open ".$contentspath;

        exit;

    }

}

#print $linecnt-1 ." - ". $line;