Toon posts:

ppstats aanpassing 1

Pagina: 1
Acties:

dinsdag 19 december 2000 11:17

Acties:

Verwijderd

Topicstarter
Ik ga ze maar hier neerzetten zodat iedereen ze kan gebruiken.

Dit is aanpassing 1. Deze aanpassing maakt het mogelijk dat je ipv email addressen
nick names kan laten zien in de lijst. een mooi voorbeeld is te vinden op
http://212.187.65.100/ogr/byemail.html

hier zijn de aanpassingen voor de ppstats.
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

a) in de .ini file moet je een extra optie maken:
        NameFile = "ogr-names.cache"
    zet deze maar onder CacheFile[/b]
 
b) maak de org-names.cache file aan in dezelfde dir als waar de ogr-dns.cache file staat. vul deze met
       email1,nickname1
       email2,nickname2
 
c) ergens staat een aanroep naar de functie     
        &lookup_rank(); 
   maak hiervan
       &read_name_email();
       &lookup_rank();


d) voor de functie "sub read_host_cache" plant je de volgende functie:
#-----------------------------------------------------------------------------
#
# Read list of usernames matched with email-address.
#
#-----------------------------------------------------------------------------
 
sub read_name_email
{
    &debugln("Entering read_name_email() ...");
 
    # Read the cache file names currently being used.
    if (-r $appdir . $userprefs{"namefile"}) {
        &debugln("Reading names file $appdir" . $userprefs{"namefile"} . " ...");
        $count = 0;
        open(NAMEFILE, $appdir . $userprefs{"namefile"});
        while (defined($entry = <NAMEFILE> )) {
            $count += 1;
 
            # Format of the name file: "email, name"
            ($email, $name) = split(/,/, $entry);
            $name_list{$email} = $name;
        }
 
        close NAMEFILE;
        &debugln("Read $count names entries ...");
    } else {
        &debugln("No names file found, this could take several minutes ...");
    }
 
} # read_name_email
 
 
e) nog wat aanpassingen. ergens staat de zinnen:
 
        $emaildir = "e" . $count;
        ($head, $tail) = split(/@/, $email); 
 
        print OUTFILE "       <TD NOWRAP ALIGN=LEFT>[img]\""[/img] $head<A HREF=\"" . $userprefs{"htmlroot"} . "$emaildir/" . $userprefs{"htmlindvemail"} . "\">\@</A>$tail</TD>\n";
 
dit moet worden :
 
        $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";
        }


f) en dit:
        print OUTFILE "      <TR ALIGN=CENTER>\n",
                      "       <TD CLASS=title NOWRAP>\n",
                      "        <STRONG>Participant $email</STRONG><BR>\n",
                      "        Executive Participant Summary\n",
                      "       </TD>\n",
  moet worden:

        print OUTFILE "      <TR ALIGN=CENTER>\n",
                      "       <TD CLASS=title NOWRAP>\n";
        if (defined($name_list{$email})) {
               print OUTFILE "        <STRONG>Participant $name_list{$email}</STRONG><BR>\n";
        } else {
               print OUTFILE "        <STRONG>Participant $email</STRONG><BR>\n";
        }
               print OUTFILE "        Executive Participant Summary\n",
                             "       </TD>\n",

 
g) als laatste:
 
        print OUTFILE "         <TR>\n",
                       "          <TD CLASS=subtitle NOWRAP COLSPAN=2 ALIGN=CENTER>\n",
                       "           Participant Summary for $email\n",
                       "          </TD>\n",
                       "         </TR>\n";
 
  moet worden:

        print OUTFILE "         <TR>\n",
                      "          <TD CLASS=subtitle NOWRAP COLSPAN=2 ALIGN=CENTER>\n";
        if (defined($name_list{$email})) {
                  print OUTFILE "           Participant Summary for $name_list{$email}\n",
                                "          </TD>\n",
                                "         </TR>\n";
                  print OUTFILE "         <TR>\n",
                                "          <TD NOWRAP>\n",
                                "           Email address\n",
                                "          </TD>\n",
                                "          <TD NOWRAP ALIGN=RIGHT>\n",
                                "           $email\n",
                                "          </TD>\n",
                                "         </TR>\n";
        } else {
                  print OUTFILE "           Participant Summary for $email\n";
                                "          </TD>\n",
                                "         </TR>\n";
        }

succes. morgen deel 2

dinsdag 19 december 2000 11:26

Acties:
  • wildhagen
  • Registratie: Juni 1999
  • Niet online

wildhagen

Blablabla

Die had ik al, hij werkt perfect !

Ik wacht met spanning op deel 2 :)

Virussen? Scan ze hier!

dinsdag 19 december 2000 12:44

Acties:
  • NightBird
  • Registratie: Januari 2000
  • Laatst online: 24-05 19:05

NightBird

DPC-Crew Coding
Goed werk stappel!

Is het al morgen? ;)

WatHoorJeWaar · Asobakken
Eerdere projecten: Leading Courses · Brandstof-zoeker.nl · Voertuig-zoeker.nl

dinsdag 19 december 2000 12:48

Acties:
  • Witlof
  • Registratie: Mei 2000
  • Laatst online: 06:43

Witlof

Het werkt wel maar nu wil ik eigenlijk ook weten hoe het nou zit als ik meerdere mail adressen onder 1 naam wil zetten. Net zoals DNS-names. Ik heb het geprobeerd en krijg dus dezelfde naam meerdere keren in de stats dus dat is niet de bedoeling. Is dit ook op te lossen? :)

dinsdag 19 december 2000 14:43

Acties:

Verwijderd

Topicstarter
Witlof. standaard gaat dit niet. als je het niet erg vind om de domain informatie kwijt te raken kan het met een smerige hack wel gedaan worden.

voor c) moet dan dit doen:
code:
1
2
3
4
5

c) ergens staat de zin:
     @logfiles = reverse sort @logfiles;
  maak hiervan
     &lookup_rank();
     @logfiles = reverse sort @logfiles;

een extra h)
code:
1
2
3
4
5
6
7
8

h:
Er staat ergens 
            # Parse the log file date and time field
zet daar voor
            if (defined($name_list{$email})) {
                $email = $name_list{$email};
            }
            # Parse the log file date and time field

dinsdag 19 december 2000 16:15

Acties:
  • Haranaka
  • Registratie: September 2000
  • Laatst online: 10-05 19:25

Haranaka

Bij mij lukt het niet helemaal.
Perl zegt bij mij:

Unterminated <> operator at E:\Proxy\ppstats-rc5\meel-nick.pl line 937.

het gaat hier om een regel bij stap d. Enig id wat ik fout doe?

...

dinsdag 19 december 2000 16:38

Acties:

Verwijderd

Topicstarter
ik zie het al. bij d) staat er ergens & gevolgt door gt (sorry moet even zo omdat GoT het anders weer veranderd) dat moet dus gewoon een > zijn. even zoeken wie dat veranderd heeft.

in de tekst hierboven heb ik het al goed gezet.

dinsdag 19 december 2000 17:15

Acties:
  • Haranaka
  • Registratie: September 2000
  • Laatst online: 10-05 19:25

Haranaka

:( hij werkt nog niet...


syntax error at E:\Proxy\ppstats-rc5\ppstats-rc5-7.1.pl line 938, near "<NAMEFILE>;"
syntax error at E:\Proxy\ppstats-rc5\ppstats-rc5-7.1.pl line 948, near "}"
Execution of E:\Proxy\ppstats-rc5\ppstats-rc5-7.1.pl aborted due to compilation
errors.

...

dinsdag 19 december 2000 17:39

Acties:

Verwijderd

Topicstarter
Op dinsdag 19 december 2000 17:15 schreef Haranaka het volgende:
:( hij werkt nog niet...


syntax error at E:\Proxy\ppstats-rc5\ppstats-rc5-7.1.pl line 938, near "<NAMEFILE>;"
syntax error at E:\Proxy\ppstats-rc5\ppstats-rc5-7.1.pl line 948, near "}"
Execution of E:\Proxy\ppstats-rc5\ppstats-rc5-7.1.pl aborted due to compilation
errors.
Achter <NAMEFILE> moet je de ; weg halen. dit doet die stomme topix telkens.
een > gevolgd door een ) en dan weer een ) geeft rare dingen.

dinsdag 19 december 2000 17:51

Acties:

Verwijderd

Kan ik ook op 1 of andere manier aan een ipadres en ip RANGE een naam hangen..... het adres wil wel maar een range ???? :?

Voor RC5 gebruik ik het striplog bestand van Pinball.... is er ook zoiets voor OGR ????

dinsdag 19 december 2000 19:38

Acties:
  • Haranaka
  • Registratie: September 2000
  • Laatst online: 10-05 19:25

Haranaka

Op dinsdag 19 december 2000 17:51 schreef Proxy 71 het volgende:
Kan ik ook op 1 of andere manier aan een ipadres en ip RANGE een naam hangen..... het adres wil wel maar een range ???? :?

Voor RC5 gebruik ik het striplog bestand van Pinball.... is er ook zoiets voor OGR ????
Ja hoor, gewoon die ip range met dat scripje van pinball (gebruik ik ook:)) laten verwijzen naar een niet bestaand ip adres, bv 10.10.10.1 ofzo. Die verschijnt dan keurig in je dns.cache die geef je gewoon dezelfde naam. In de dsn.cache kun je meerere ip's dezelfde naam geven.
Dus bv 10.10.10.1,Henk
en ook 95.125.103.245,Henk
Worden ze gewoon bijelkaar geteld.

Van org weet ik niets >:) Maar ik denk dat dat op dezelfde manier werkt, toch?

edit:

Het is nu gelukt, thnks Stappel :)

...

woensdag 20 december 2000 02:43

Acties:
  • Haranaka
  • Registratie: September 2000
  • Laatst online: 10-05 19:25

Haranaka

Op dinsdag 19 december 2000 12:44 schreef NightBird het volgende:
Goed werk stappel!

Is het al morgen? ;)
Nu wel, maar ik zie nog niets... Nou ja dan maar even slapen gaan en morgen vroeg weer op want misschien heeft Stappel wel een kadotje onder de kersteboom gelegd:9

...

woensdag 20 december 2000 08:54

Acties:
  • Haranaka
  • Registratie: September 2000
  • Laatst online: 10-05 19:25

Haranaka

Goeden morgen!
Het is morgen.....
Nog niets, nou ja even 2 uurtjes naar college, misschien dat het er straks is :)

...

Pagina: 1
Reageer