WebSVN – HomeAutomation – Diff – /trunk/PcSoftware/scripts/mIRClogParser/mIRClogParser.pl/

-$outputpath = "outp/";
+#$outputpath = "outp/";
-$linenrpath = "linenr.txt";
+#$linenrpath = "linenr.txt";
-$contentspath = "contents.txt";
+#$contentspath = "contents.txt";
-$currentfilepath = "currentfile.txt";
+#$currentfilepath = "currentfile.txt";
-$logfilepath = "#hobby_small.log";
+#$logfilepath = "#hobby_small.log";
-$contentsfileoutput = "outp/";
+#$contentsfileoutput = "outp/";
-$contentsfilename = "hobby.txt";
+#$contentsfilename = "hobby.txt";
 $contentsheader = "====== Log of #hobby-channel ======\n";
-$namespace = "common:irc:hobby:";
+#$namespace = "common:irc:hobby:";
-require "settings.pl";
+#require "settings.pl";
+use File::Copy;
 $numArgs = $#ARGV + 1;
 if ($numArgs == 1) {
     if ($ARGV[0] eq "-r") {
         #reset log system
             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\n";
+        print "Not a number: $startAtLine\n";
         exit;
+    }
     close(LINENR);
 } else {
     print "Could not open ".$linenrpath;
     exit;
+}
 $fileopenerr = 0;
     close(CURRFILE);
 } else {
     print "Could not opeen ".$currentfilepath;
     if ($startAtLine != 0) {
         exit;
     }
+}
 $fileopenerr = 0;
 open (LOGFILE, "<".$logfilepath) or $fileopenerr = 1;
 if ($fileopenerr == 1) {
 while (<LOGFILE>) {
     #print $linecnt ." ";
     $line = $_;
     #$store = "";
     if ($linecnt >= $startAtLine) {
-        if ($line =~ m/^Session Time:/) {
+        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 $_;
                 if ($debugmode == 0) {
                     print OUTFILE "====== ".$datetimenice." ======\n";
+                }
+            }
             #print $datetime;
         }
         elsif ($currentfile) {
             $parsedLine = $line;
             $parsedLine =~ s/\n//g;
             $parsedLine =~ s/\r//g;
             #$parsedLine = $parsedLine;
                 #$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;
                 $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/\[wiki\]/**[wiki]**/g;
             $parsedLine =~ s/\[svn\]/**[svn]**/g;
             $parsedLine .= " ";
-            $parsedLine =~ s/http:\/\/projekt\.auml\.se\/(.+) /[[:$1]] /g;
+            $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;
         open (NICECONTENTSFILE, ">".$contentsfileoutput.$contentsfilename) or $fileopenerr = 1;
         if ($fileopenerr == 0) {
             @contentsfilecontents = <CONTENTSFILE>;
             print NICECONTENTSFILE $contentsheader;
             foreach (@contentsfilecontents) {
-                            print NICECONTENTSFILE $_;
+                print NICECONTENTSFILE $_;
+            }
             close(NICECONTENTSFILE);
         } else {
             print "Could not open ".$contentsfileoutput.$contentsfilename;
             exit;
         exit;
+    }
+}
 #print $linecnt-1 ." - ". $line;

Subversion Repositories HomeAutomation

(root)/trunk/PcSoftware/scripts/mIRClogParser/mIRClogParser.pl/ – Rev 728 → 892