Current File : //bin/whm

#!/usr/bin/perl

$user=shift;

$user="root" if ($user eq "");

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

print $out;