?? zugriffskontrolle

[Frank Schönmann]

hi!

Ich möchte gerne wissen wie oft welches Programm herruntergeladen wurde um einen
Überblick zubekommen, welche Rubrik sich lohnt und welche ich rausnehmen kann. Mit
welcher Art von Script kann man das erreichen.

Hier ein kurzes Skript, das ich mal geschrieben habe:

=== cut ===
#!/usr/bin/perl

my $url = $ENV{'HTTP_REFERER'};
my %p = &getParam;
my $stat = $p{'stat'} "stat";
$stat .= ".txt";

if ($p{'id'})
{
  my %url = ( heise    => "http://www.heise.de",
              krit     => "http://rare.de/krit/",
              selfhtml => "http://www.teamone.de/selfaktuell/",
              slashdot => "http://slashdot.org");
  $url = $url{$p{'id'}};
} elsif ($p{'url'}) {
  $url = $p{'url'};
}

open FILE, ">>$stat";
my $time = scalar localtime;
print FILE "$time - $url\n";
close FILE;

print "Location: $url\n\n";

sub getParam
{
  if ($ENV{'REQUEST_METHOD'} eq "GET")
  {
    $EnvDaten = $ENV{'QUERY_STRING'};
  } else {
    read STDIN, $EnvDaten, $ENV{'CONTENT_LENGTH'};
  }

for (split /&/, $EnvDaten)
  {
    my ($key, $value) = split /=/;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg;
    $value =~ s/</</g;
    $value =~ s/>/>/g;
    $p{$key} = $value;
  }
  return %p;
}
=== cut ===

Aufruf:
  go.pl?stat=NameDerStatistik&url=http://die.url.com
  go.pl?stat=NameDerStatistik&id=selfhtml

Für die zweite Möglichkeit musst du im Hash %url die Abkürzungen eintragen.

In NameDerStatistik.txt landen dann Datum, Uhrzeit und URL, die angeklickt wurden (allerdings der Reihe nach, also nicht ausgewertet).

Um das Skript zu verwenden, musst du alle deine Links, die gezählt werden sollen, austauschen.

bye, Frank!