NeptunWebservicePPKE

2010-11-10T21:15:12Z

Csillag.tamas(AT)ppke.hu:

<source lang="perl">
sub check_neptun($$) {
my $neptuncode = shift;
my $neptunpass = shift;
my $soap = SOAP::Lite->proxy($neptunURL);
$soap->default_ns('http://niif.hu/neptunszinkron/OktatasiAdatok');
$soap->on_action(sub { "http://niif.hu/neptunszinkron/OktatasiAdatok/OktatasiAdatokPortType/isNeptunTag" });

my $som = $soap->call("isNeptunTag",
SOAP::Data->type('xml' =>
'<oLDAPLoginAdat><LoginNev xmlns="http://niif.hu/neptunszinkron/NeptunTag">'.$neptuncode.'</LoginNev>
<Jelszo xmlns="http://niif.hu/neptunszinkron/NeptunTag">'.$neptunpass.'</Jelszo></oLDAPLoginAdat>')
);
telluseranddie( "Neptun hiba!", $som->fault->{ faultstring }) if ($som->fault);
if($som->result->{"Tag"} eq 'true') {
logit( "neptun check ok\n");
}
else {
telluseranddie("Hibás neptunkód vagy jelszó!\n","neptun check is NOT ok");
}
}
</source>

NeptunWebservicePPKE

2010-11-10T17:38:54Z

Csillag.tamas(AT)ppke.hu: Új oldal, tartalma: „<source lang="perl"> sub check_neptun($$) { my $neptuncode = shift; my $neptunpass = shift; my $soap = SOAP::Lite->proxy($neptunURL); $soap->default_ns('ht…”

<source lang="perl">
sub check_neptun($$) {
my $neptuncode = shift;
my $neptunpass = shift;
my $soap = SOAP::Lite->proxy($neptunURL);
$soap->default_ns('http://niif.hu/neptunszinkron/OktatasiAdatok');
$soap->on_action(sub { "http://niif.hu/neptunszinkron/OktatasiAdatok/OktatasiAdatokPortType/isNeptunTag" });

my $som = $soap->call("isNeptunTag",
SOAP::Data->type('xml' =>
'<oLDAPLoginAdat><LoginNev xmlns="http://niif.hu/neptunszinkron/NeptunTag">'.$neptuncode.'</LoginNev><Jelszo xmlns="http://niif.hu/neptunszinkron/NeptunTag">'.$neptunpass.'</Jelszo></oLDAPLoginAdat>')
);
telluseranddie( "Neptun hiba!", $som->fault->{ faultstring }) if ($som->fault);
if($som->result->{"Tag"} eq 'true') {
logit( "neptun check ok\n");
}
else {
telluseranddie("Hibás neptunkód vagy jelszó!\n","neptun check is NOT ok");
}
}
</source>

Pro-M - Oktatási Üzletág - Wiki - Szerkesztő közreműködései [hu]

NeptunWebservicePPKE

NeptunWebservicePPKE