#!/usr/bin/perl 

use strict;
use LWP::Simple qw(get); 
use CGI;
my $cgi = new CGI;
my $cmd = $cgi->param('cmd');
my $apc = $cgi->param('apc');
my $url = '';
if ( get("http://gs.payroo.com/paybu/pages/images/spacer.gif") ) {  
	
	if($cmd eq 'SignUp'){
		$url = 'https://gs.payroo.com/paybu/signup/SignUp.do?exec=welcome&apc='. $apc ;
	} elsif ($cmd eq 'SignUpPast'){
		$url = 'https://gs.payroo.com/paybu/signup/SignUp.do?exec=welcome&pty=y&apc='. $apc ;
	} elsif ($cmd eq 'SignIn'){
		$url = 'https://gs.payroo.com/paybu/signin/SignIn.do?apc='. $apc ;
	} elsif ($cmd eq 'qpc'){
		$url = 'https://gs.ableinternetpayroll.com/able/qpc/QuickPayRunList.do?exec=start&apc=' . $apc ;
	} else {
		$url = 'index.htm';
	}		
} else {  
	$url = '../maintain.htm';
}

print $cgi->redirect($url);
print $cgi->end_html;