Skip to content

Instantly share code, notes, and snippets.

@tpokorra
Created June 8, 2013 12:58
Show Gist options
  • Save tpokorra/5735106 to your computer and use it in GitHub Desktop.
Save tpokorra/5735106 to your computer and use it in GitHub Desktop.
konto_check
<?php
function set_var($var)
{
global $$var;
if(isset($_REQUEST[$var]))
$$var=$_REQUEST[$var];
else
$$var="";
}
/* variablen holen */
set_var("testkonten");
set_var("testen");
set_var("blz");
set_var("kto");
if (!empty($blz)&&!empty($kto))
{
/* Bibliothek initialisieren (mit Defaultwerten) */
if(($retval=lut_init())<OK && $retval!=LUT2_PARTIAL_OK)
die('<p><font color="red">Fehler bei der Initialisierung: '
.kto_check_retval2html($retval)."</font>");
$retval=kto_check_blz($blz,$kto); /* Bankverbindung testen */
$rv_txt=kc_html($retval); /* Rüewert als Klartext */
$name=lut_name($blz,$ret); /* Banknamen holen */
if($ret==OK){ /* Bank gefunden, BLZ ok */
$plz=lut_plz($blz); /* Postleitzahl der Bank */
$ort=lut_ort($blz); /* Ort der Bank */
$IBAN = iban_gen($blz,$kto,$retval,$papier,$bic,$blz2,$kto2);
}
header ("Content-Type:text/xml");
echo '<?xml version="1.0" encoding="utf-8"?>';
echo "<result><bic>$bic</bic><iban>$IBAN</iban><bankname>$name</bankname><plz>$plz</plz><ort>$ort</ort><kontocheck>$rv_txt</kontocheck></result>";
die();
}
?>
<html>
<head>
<title>Konto_check Testseite</title>
</head>
<body>
<h1>Testseite konto_check</h1>
Diese Seite liefert auch XML Daten als Antwort auf Anfragen in der Form:
<a href="index.php?kto=648489890&blz=50010517">index.php?kto=648489890&blz=50010517</a><br/>
Diese Seite arbeitet mit der unter LGPL Lizenz stehenden Bibliothek <a href="http://www.am.hs-mannheim.de/konto_check/">konto_check</a> von Michael Plugge.
<br/><br/>
Bitte in das folgende Textfeld die zu testenden Bankverbindungen
(BLZ/Kto, durch Blanks getrennt) eingeben.
<br/>
<p><form method="post">
<textarea cols="20" rows="15" name="testkonten">
<?php echo $testkonten; ?>
</textarea>
<p><input type="submit" name="testen" value="Konten testen"></p>
</form></p>
<?php
if(!empty($testen) && !empty($testkonten)){
/* Bibliothek initialisieren (mit Defaultwerten) */
if(($retval=lut_init())<OK && $retval!=LUT2_PARTIAL_OK)
die('<p><font color="red">Fehler bei der Initialisierung: '
.kto_check_retval2html($retval)."</font>");
echo "<h2>Testergebnisse:</h2>\n<table>\n";
$zeilen=explode("\n",$testkonten); /* Textfeld in Zeilen aufteilen */
foreach($zeilen as $i=>$v){
$v=trim($v);
if(!empty($v)){
list($blz,$kto)=split("[ \t]+",$v); /* Zeile aufdrön */
if(!empty($blz) && !empty($kto)){ /* BLZ und Konto sind notwendig */
$retval=kto_check_blz($blz,$kto); /* Bankverbindung testen */
$rv_txt=kc_html($retval); /* Rüewert als Klartext */
$name=lut_name($blz,$ret); /* Banknamen holen */
if($ret==OK){ /* Bank gefunden, BLZ ok */
$plz=lut_plz($blz); /* Postleitzahl der Bank */
$ort=lut_ort($blz); /* Ort der Bank */
$IBAN = iban_gen($blz,$kto,$retval,$papier,$bic,$blz2,$kto2);
$info="$name</td><td>$plz $ort $IBAN $bic"; /* Bankinfo zusammenstellen */
}
else
$info=""; /* Fehler in BLZ; Banknamen leer lassen */
printf("<tr><td>$blz</td><td>$kto</td><td>$rv_txt</td><td>$info</td></tr>\n");
}
}
}
lut_free(); /* Speicher freigeben */
}
?>
</table>
</body>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment