
| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/test.php |
<?php
#require("FileCom.php");
$parameters = array();
foreach (array_keys($_POST) as $o) {
$parameters[$o] = $_POST[$o];
}
foreach (array_keys($_GET) as $o) {
$parameters[$o] = $_GET[$o];
}
ksort($parameters);
$pars = array();
$session = "";
foreach (array_keys($parameters) as $o) {
if ($o == "session") {
$session = $parameters[$o];
} else {
$pars[$o] = $parameters[$o];
}
}
$url = "http://localhost/test.php";
$client = new COMPhp();
$com = new FileCom("/tmp/com/",650000,json);
if (!($session)) {
$com->connect(650000);
$session = $com->set_msg() . "." . $com->set_get();
} else {
$session =~ /^(.*)\.(.*)/;
$com->set_msg($1);
$com->set_get($2);
}
$erg = $com->query($pars)
$text = $erg[0];
if ($text == "___ENDE___") {
$com->disconnect();
}
$text =~ s/---SESSION---/$session/g;
echo $text;
?>