Subversion Repositories HomeAutomation

Rev

Rev 594 | Rev 728 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 594 Rev 596
Line 9... Line 9...
9 
$logfilepath = "#hobby_small.log";
 9 
$logfilepath = "#hobby_small.log";
10 
$contentsfileoutput = "outp/";
 10 
$contentsfileoutput = "outp/";
11 
$contentsfilename = "hobby.txt";
 11 
$contentsfilename = "hobby.txt";
12 
$contentsheader = "====== Log of #hobby-channel ======\n";
 12 
$contentsheader = "====== Log of #hobby-channel ======\n";
13 
$namespace = "common:irc:hobby:";
 13 
$namespace = "common:irc:hobby:";
- 
 
 14 
 
- 
 
 15 
require "settings.pl";
14 
 
 16 
 
15 
$numArgs = $#ARGV + 1;
 17 
$numArgs = $#ARGV + 1;
16 
if ($numArgs == 1) {
 18 
if ($numArgs == 1) {
17 
    if ($ARGV[0] eq "-r") {
 19 
    if ($ARGV[0] eq "-r") {
18 
        #reset log system
 20 
        #reset log system
Line 92... Line 94...
92 
            exit;
 94 
            exit;
93 
        }
 95 
        }
94 
    }
 96 
    }
95 
}
 97 
}
96 
 
 98 
 
97 
@colors = ("#2F4F4F","#696969","#A0522D","#D2691E","#DAA520","#191970","#0000CD","#4682B4","#7FFFD4","#556B2F","#008B8B","#808000","#2E8B57","#32CD32","#483D8B","#6A5ACD","#8A2BE2","#BDB76B","#FF4500","#C71585","#8B0000","#DC143C","#E9967A","#CD5C5C","#B0E0E6","#FFEFD5");
 99 
@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");
98 
$nrofcolors = @colors;
 100 
$nrofcolors = @colors;
99 
 
 101 
 
100 
$linecnt = 0;
 102 
$linecnt = 0;
101 
while (<LOGFILE>) {
 103 
while (<LOGFILE>) {
102 
    #print $linecnt ." ";
 104 
    #print $linecnt ." ";
Line 170... Line 172...
170 
                    #$charval = ord(substr($nick, $i, 1));
 172 
                    #$charval = ord(substr($nick, $i, 1));
171 
                    $nickVal += ord($char);
 173 
                    $nickVal += ord($char);
172 
                    #$nickVal += $charval;
 174 
                    #$nickVal += $charval;
173 
                   
 175 
                   
174 
                }
 176 
                }
175 
                $temp = $nickVal;
 177 
                #$temp = $nickVal;
176 
                $nickVal = ($nickVal) % $nrofcolors;
 178 
                $nickVal = ($nickVal) % $nrofcolors;
177 
                #$nickB = sprintf("%x", ((($nickVal & 7)**2)*2.3+5));
 179 
                #$nickB = sprintf("%x", ((($nickVal & 7)**2)*2.3+5));
178 
                #$nickG = sprintf("%x", (((($nickVal >> 3) & 7)**2.3)*2+5));
 180 
                #$nickG = sprintf("%x", (((($nickVal >> 3) & 7)**2.3)*2+5));
179 
                #$nickR = sprintf("%x", (((($nickVal >> 6) & 7)**2.3)*2+5));
 181 
                #$nickR = sprintf("%x", (((($nickVal >> 6) & 7)**2.3)*2+5));
180 
                #if (length($nickB) == 1) {
 182 
                #if (length($nickB) == 1) {
Line 185... Line 187...
185 
                #}
 187 
                #}
186 
                #if (length($nickR) == 1) {
 188 
                #if (length($nickR) == 1) {
187 
                #   $nickR = "0".$nickR;
 189 
                #   $nickR = "0".$nickR;
188 
                #}
 190 
                #}
189 
               
 191 
               
190 
                print "$nick $temp $nickVal $colors[$nickVal] \n";
 192 
                #print "$nick $temp $nickVal $colors[$nickVal] \n";
191 
                #$color = "#$nickR$nickG$nickB";
 193 
                #$color = "#$nickR$nickG$nickB";
192 
                $parsedLine =~ s/<$nick>/<color $colors[$nickVal]><$nick><\/color>/;
 194 
                $parsedLine =~ s/<$nick>/<color $colors[$nickVal]><$nick><\/color>/;
193 
                #print $nick." ".$nickVal."\n";
 195 
                #print $nick." ".$nickVal."\n";
194 
                #print $parsedLine ."\n";
 196 
                #print $parsedLine ."\n";
195 
            }
 197 
            }
Line 203... Line 205...
203 
 
 205 
 
204 
            $parsedLine =~ s/\[wiki\]/**[wiki]**/g;
 206 
            $parsedLine =~ s/\[wiki\]/**[wiki]**/g;
205 
            $parsedLine =~ s/\[svn\]/**[svn]**/g;
 207 
            $parsedLine =~ s/\[svn\]/**[svn]**/g;
206 
 
 208 
 
207 
            $parsedLine .= " ";
 209 
            $parsedLine .= " ";
208 
            $parsedLine =~ s/http:\/\/projekt\.auml\.se\/(.+) /[[$1]] /g;
 210 
            $parsedLine =~ s/http:\/\/projekt\.auml\.se\/(.+) /[[:$1]] /g;
209 
           
 211 
           
210 
            $parsedLine .= "\\\\"."\n";
 212 
            $parsedLine .= "\\\\"."\n";
211 
            if ($debugmode == 0) {
 213 
            if ($debugmode == 0) {
212 
                print OUTFILE $parsedLine;
 214 
                print OUTFILE $parsedLine;
213 
            }
 215 
            }