#!/usr/bin/perl
use strict;

my $cgibin;
if ($ENV{HTTP_HOST} =~ /staging/) {
    $cgibin = "/var/www/staging/sawmill.net/cgi-bin/";
}
else {
    $cgibin = "/var/www/www.sawmill.net/website/cgi-bin/";
}

my $command = "perl $cgibin" . $ARGV[0] . " ";
for (my $i = 1; $i < @ARGV; $i++) {
    my $arg = $ARGV[$i];
    $arg =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;
#    $arg =~ tr/%20/ /;
#    print "ARGV[$i]: " . $arg . "<br>\n";
    $command .= '"' . $arg . '"';
    $command .= " ";
}
#print "command: $command<br>\n";
system($command);