#!/usr/bin/perl

#my $newloc;
#my $server=$ENV{SERVER_NAME};
#$server="www.retiisi.eu" if $server eq "";
#my $protocol="https";
#$protocol="https" if $ENV{HTTPS} =~ /on/;
#my $targetfile="/~sailus/";
#my $targetfile="/weblog/";

#$newloc=$protocol."://".$server.$targetfile;

#print "Location: ".$newloc."\n\n";
print "Location: https://weblog.retiisi.eu\n\n";