<?php
  /*
    Zjistovani zustatku na paypalu.
    Vytvoril: Jiri Hrazdil <jiri@hrazdil.info>, 2008
    Stazeno z: http://hrazdil.info/blog/119-zjistovani-zustatku-na-paypalu
    Nez mi napisete mail, ze neco nefunguje, tak se podivejte do vyse uvedeno clanku a stahnete si aktualni verzi.
  */

  $paypalJmeno = ""; // zde doplnte prihlasovaci jmeno k paypalu
  $paypalHeslo = ""; // zde doplnte heslo k paypalu

  $ch = curl_init("https://www.paypal.com/us/cgi-bin/webscr?cmd=_login-submit&amp;dispatch=5885d80a13c0db1f38432c9462fe731381a7a80e09148cd4c582693e11bdcccd");
  
  curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, FALSE);
  curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true);
  curl_setopt($ch, CURLOPT_HEADER, 0);
  curl_setopt($ch, CURLOPT_RETURNTRANSFER, TRUE);
  curl_setopt($ch, CURLOPT_COOKIEFILE, "cookies.txt");
  curl_setopt($ch, CURLOPT_COOKIEJAR, "cookies.txt");
  curl_setopt($ch, CURLOPT_USERAGENT, "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)");
  
  curl_setopt($ch, CURLOPT_POST, 1);
  curl_setopt($ch, CURLOPT_POSTFIELDS, "login_email=$paypalJmeno&login_password=$paypalHeslo");
  
  $data = curl_exec($ch);
  
  if (preg_match("/login_access=(\d+)\"/", $data, $regs)) {
    $url = "https://www.paypal.com/cz/cgi-bin/webscr?cmd=_login-done&amp;login_access=".$regs[1];
    $czk = $usd = $total = 0;
    
    curl_setopt($ch, CURLOPT_POST, 0);
    curl_setopt($ch, CURLOPT_URL, $url);
    $data = curl_exec($ch);
    
    if (preg_match("/<td align=\"center\" nowrap>(\d+\.\d+) CZK<\/td>/", $data, $regs)) $czk = $regs[1];
    if (preg_match("/<td align=\"center\" nowrap>\$(\d+\.\d+) USD<\/td>/", $data, $regs)) $usd = $regs[1];
    if (preg_match("/<td align=\"center\" class=\"small\" nowrap>(\d+\.\d+) CZK<\/td>/", $data, $regs)) $total = $regs[1];
    echo "zustatek Kč: $czk<br>zustatek USD: $usd<br>celkem: $total Kč";
  }
?>