#!/usr/bin/perl

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
    $buffer = $ENV{'QUERY_STRING'};
}

if ($buffer eq '') {
    foreach $args (@ARGV) {
        $buffer .= $args . '&';
    }
    chop($buffer);
}
if ($buffer ne '') {
    @docs = split(/&/,$buffer);
    foreach $doc (@docs) {
        ($name, $value) = split(/=/, $doc);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
    }
}

$url = $ENV{'HTTP_REFERER'};
if ($url ne '') {
    $url =~ s/\/[a-zA-Z0-9_.]+$/\//;
} else {
    $url = 'http://www.gokurakucco.org/010407/';
}

if ($FORM{'r'} ne '')
{
	print "Content-type: application/vnd.rn-realmedia\n\n";
	print "$url$FORM{'r'}.rm\n";
}