#!/usr/bin/perl
use Socket;
require 'sockfuncs.pl';
$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin/';
$remote = "/tmp/MTGsock";
socket(SOCK, PF_UNIX, SOCK_STREAM, 0) || die "socket: $!";
connect(SOCK, sockaddr_un($remote)) || die "connect: $!";
#warn "connected\n";
#open (DUP, "> /tmp/MTG$$");
select((select(SOCK),$|=1)[0]);
require 'cgi_handlers.pl';
get_request();
$request = $rqpairs{'card_request'};
$debug = $rqpairs{'debug'};
$login = $rqpairs{'login'};
$sortfunc = $rqpairs{'sortfunc'};
if ($login) {
print SOCK "login $login ; ";
}
if ($sortfunc) {
#print DUP "sort by $sortfunc\n";
print SOCK "sort by $sortfunc ;\n";
}
if (!$request) {
#print DUP "no request!\n";
print STDOUT "Content-type: text/html\n\n";
print "You must make a request!\n";
exit 1;
}
print SOCK $request, "\n.\n";
#print DUP $request;
print STDOUT "Content-type: text/html\n\n";
while () {
#print DUP;
print STDOUT;
}
exit;