webHauser Blog

use LWP::Simple;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$pTS=sprintf("%4d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec);
$pPID="IEB0001";
$pTRID="0000000000000001";
$pUID="IEB0001";
$pAMO="1000";
$pCUR="HUF";
$pLANG="HU";
$pURL = "http://www.webhauser.com/teszt.html";

$cleartext = "PID=$pPID".
"&MSGT=10".
"&TRID=$pTRID".
"&UID=$pUID".
"&AMO=$pAMO".
"&CUR=$pCUR".
"&TS=$pTS".
"&AUTH=0".
"&LANG=$pLANG".
"&URL=$pURL";