November 7, 2004

#/usr/bin/perl

my $s;
while ($s = <>)
  {
    if ($s =~ /.+?\"GET ([^ ]+) .+?".+?"([^"]+)/)
      {
        my $REF = $2;
        my $PAGE = $1;
        if ($REF ne "-"
            && $REF !~ /sacha.free.net.ph/
            && $REF !~ /richip.dhs.org/
           && $REF !~ '\+') {
          print "$REF\n";
        }
      }
  }

Invocation:

cat log | perl ref.pl | sort | uniq > reff

For greater fun and profit, diff against previous records.

../../sitelogs/ref.pl

A very big thank you to arete of irc://irc.freenode.net/#emacs for his
patience in helping me test the system.

My Skype ID is sachachua. =)

I think one of the most amazing things about open source is the way it
allows people to make a difference no matter how old they are.
The Mozilla Firefox lead architect is a 19-year-old. Even younger people contribute to the community.

It’s funny how, when people take you seriously, you become even more
serious. =)

Perhaps we should look into promoting Linux at the high school level…