Oke dit is een quick and dirty hack voor mensen die het nick systeem
gebruiken (zie aanpassing 1) en die last hebben van dubbele nicks.
(dat wil dus zeggen er zijn meerdere email adressen bij 1 nick)
je ziet dan in de lijst By Email meerdere keren dit persoon staan.
PAS OP HET IS EEN QUICK HACK. Enkele hyper-links kunnen verkeerd wijzen.
Maar het overzicht By Email is in orde.
gebruiken (zie aanpassing 1) en die last hebben van dubbele nicks.
(dat wil dus zeggen er zijn meerdere email adressen bij 1 nick)
je ziet dan in de lijst By Email meerdere keren dit persoon staan.
PAS OP HET IS EEN QUICK HACK. Enkele hyper-links kunnen verkeerd wijzen.
Maar het overzicht By Email is in orde.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
| a) zet voor de zin :
# Parse the log file date and time field
de volgende code:
if (defined($name_list{$email})) {
$nick = $name_list{$email};
} else {
$nick = $email;
}
b) voeg achter de volgende code:
# Add to stat totals
if (defined($emails{$email}[0])) { $emails{$email}[0] += $nodes; }
else { $emails{$email}[0] = $nodes; }
deze regels toe:
if (defined($nicks{$nick}[0])) { $nicks{$nick}[0] += $nodes; }
else { $nicks{$nick}[0] = $nodes; }
c) en achter deze regels:
if (defined($emails{$email}[$day])) { $emails{$email}[$day] += $nodes; }
else { $emails{$email}[$day] = $nodes; }
moet je de volgende code toevoegen:
if (defined($nicks{$nick}[$day])) { $nicks{$nick}[$day] += $nodes; }
else { $nicks{$nick}[$day] = $nodes; }
d) oke de volgende wijziging is in de procedure : sub write_byemail
BLIJF IN DE PROCEDURE !!!
vervang alle:
$emails{
door:
$nicks{
vervang dus NIET %emails of $emails_ls
e) de volgende wijging is gebaseerd op aanpassing 1.
vervang de volgende code :
$emaildir = "e" . $count;
if (defined($name_list{$email})) {
$head = $name_list{$email};
print OUTFILE " <TD NOWRAP ALIGN=LEFT>[img]\""[/img] <A HREF=\"" . $userprefs{"htmlroot"} . "$emaildir/" . $userprefs{"htmlindvemail"} . "\">$head</A></TD>\n";
} else {
($head, $tail) = split(/@/, $email);
print OUTFILE " <TD NOWRAP ALIGN=LEFT>[img]\""[/img] $head<A HREF=\"" . $userprefs{"htmlroot"} . "$emaildir/" . $userprefs {"htmlindvemail"} . "\">\@</A>$tail</TD>\n";
}
door :
print OUTFILE " <TD NOWRAP ALIGN=LEFT>[img]\"".[/img] <A HREF=\"". $userprefs{"htmlroot"} . "$emaildir/". $userprefs {"htmlindvemail"} . "\">$email</A></TD>\n";
(dit is een hyperlink die niet altijd de juiste zal zijn) |