#!/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($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';
	}		


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