Current File : //usr/bin/cpanel

#!/usr/bin/perl
#test
$user=shift ;

if ($user eq "") {

	print "Need a username\n";
	exit;

}

$out = `whmapi1 create_user_session user=$user service=cpaneld locale=en|grep url|awk {\'print \$2\'}`;

print $out;