#!/usr/local/bin/perl # Kasbah link redirector use strict; use PAutils; my ($id, %row); ($id=$ENV{PATH_INFO}) =~ s/^\///; my $dbh = DBconnect; if (DBselect1($dbh, "select url from links where id=$id", \%row)) { print "Location: $row{url}\n\n"; } else { print qq!Content-type: text/html

Error - no entry for link id $ENV{PATH_INFO} in database

!; } $dbh->disconnect;