| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
|
| Alle Einträge zum Thema: | Zur Liste |
>hast du dazu ne Idee zur Realisierung ?
die DB wird bei jeder Menge Aufrufen riesengross, was aber auszuprobieren ...
$runtime=runtime; $cgi=serial(%_cgi); $sel=serial(%_sel); $put=serial(%_put); $get=serial(%_get);
$cgi1=serial(%_cgi); $sel1=serial(%_sel); $put1=serial(%_put); $get1=serial(%_get);
@Sander
<perl>
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= gmtime(time);
$sid_pr=(((($year*365)+$yday)*24+$hour)*60+$min)*60+$sec ;
$IP=$_REMOTE_ADDR;
$useragent=$_HTTP_USER_AGENT;
#$cgi1=serial{%_cgi};# geht erst ab v3
#$sel1=serial{%_sel};# geht erst ab v3
#$put1=serial{%_put};# geht erst ab v3
#$get1=serial{%_get};# geht erst ab v3
put ["IP", "$IP", "sid", "$sid_pr", "useragent", "$useragent", "htx", "$htx", "cgi1", "$cgi1", "sel1", "$sel1", "put1", "$put1", "get1", "$get1"], "protokoll";
</perl>
foreach my $k (keys %_cgi) {
$cgi_serial .= $k . "=" . $_cgi{$k};
}
Srv PID Acc M CPU SS Req Conn Child Slot Client VHost Request 8-0 16573 0/120/2796 _ 25.50 29 360 0.0 1.38 30.14 217.230.113.236 ruhrpott-mini-ig.de GET /files/album_62/pic_1337_smart.jpg HTTP/1.1 9-0 16572 0/121/2633 _ 22.69 41 1293 0.0 1.10 29.88 84.61.72.177 ruhrpott-mini-ig.de GET /cgi-bin/baseportal.pl?htx=/forum&wcheck=1&range=100,100&Po 10-0 - 0/0/269 . 0.00 1479 610 0.0 0.00 4.91 66.249.66.143 eggx.de GET /w/index.php?title=MediaWiki_Diskussion:Jan&action=edit HTT 11-0 - 0/0/113 . 0.00 1483 227 0.0 0.00 1.21 89.48.169.166 ruhrpott-mini-ig.de GET /grafik/logo/navibuttonback.gif HTTP/1.1 12-0 - 0/0/77 . 0.00 1473 870 0.0 0.00 0.38 74.6.18.228 irgendwo.de GET /baseportal/see?kategorie=110&neu=&suche= HTTP/1.0 13-0 - 0/0/21 . 0.00 1466 1021 0.0 0.00 0.12 74.6.17.170 ruhrpott-mini-ig.de GET /baseportal/album/bild?getId=73& HTTP/1.0 14-0 - 0/0/14 . 1.41 1400 974 0.0 0.00 0.10 74.6.18.20
@Pouraga
$laufzeit=runtime ; mod "sid==$sid_pr", ["laufzeit", "$laufzeit"], "protokoll"; </perl>
mod_status einbinden wenn nicht schon vorhanden
<perl>
$deinget = "Die Werte von _get: ";
while(@paare = each(%_get))
{
out "schl: $paare[0] -> ";
out "wert: $paare[1]<br>";
$deinget = $deinget."$paare[0]"."="."$paare[1]"." | ";
}
out "<br/>$deinget<br/><br/>";
</perl>
out vardump(\%_cgi,"_cgi");
<perl> include "../kopf"; </perl>
<perl> include "../fuss"; </perl>
<perl> ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= gmtime(time); $sid_pr=(((($year*365)+$yday)*24+$hour)*60+$min)*60+$sec ;
$sid_pr=$sid_pr*(1+($zufallszahl)) ; $get1 =""; $cgi1 =""; $sel1 =""; $put1 ="";
$useragent=$_HTTP_USER_AGENT;
while(@paare = each(%_get))
{
$get1 = $get1."$paare[0]"."="."$paare[1]"." | ";
}
while(@paare = each(%_cgi))
{
$cgi1 = $cgi1."$paare[0]"."="."$paare[1]"." | ";
}
while(@paare = each(%_sel))
{
$sel1 = $sel1."$paare[0]"."="."$paare[1]"." | ";
}
while(@paare = each(%_put))
{
$put1 = $put1."$paare[0]"."="."$paare[1]"." | ";
}
put ["IP", "$IP", "sid", "$sid_pr", "useragent", "$useragent", "htx", "$htx", "cgi1", "$cgi1", "sel1", "$sel1", "put1", "$put1", "get1", "$get1"], "protokoll";
#out "Test: $_Id <br>" ;
</perl>
<perl> $laufzeit=runtime ; mod "sid==$sid_pr", ["laufzeit", "$laufzeit"], "protokoll"; </perl>
| Liste der Einträge von 13200 bis 13275: | Einklappen | Zur Eingabe |
| Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |