Money: Porovnání verzí
Řádek 90: | Řádek 90: | ||
=== Příklad přístupu z perlu === | === Příklad přístupu z perlu === | ||
− | <bash> | + | <source lang="bash"> |
#!/usr/bin/perl | #!/usr/bin/perl | ||
# | # | ||
Řádek 119: | Řádek 119: | ||
print Dumper \@res; | print Dumper \@res; | ||
− | </ | + | </source> |
Verze z 11. 2. 2009, 23:52
Obsah
Platebni systém o.s. HKfree
Je známá též pod krycím názvem money
Slouží k informacim o virtuálních účtech uživatelů HKfree a správcovský přístup pro aktivaci/deaktivaci jednotlivých uživatelských účtů.
Běží na stroji igw1.hkfree.org, který je fyzicky umístěn v centralni serverovne na PMV
Přístup do ní mají všichni nesmazaní uživatelé
Technickým správcem databáze je kendy (Jabber ID: kendy@jabber.hkfree.org).
Je v provozu ode dne oficiálního založení sdružení, tj. od 10.4.2004.
WWW přístup
Na adrese http https://money.hkfree.org/
login: ID z tvojí přihlášky
heslo: heslo z tvojí přihlášky (bacha na malá/velká písmena)
SOAP přístup (vývoj 12/2008-xxx)
Přístup mají výhradně jen správci
Technologie
Linux, Perl 5.8.8, modul SOAP::Lite, FastCGI, Apache 2.2.x, MySQL 5.0.x
WSDL
https://money.hkfree.org/wsdl/moneyAPI.wsdl
pro přístup k wsdl souboru pouzijte vase ID a heslo
specifikace API
API obsahuje či by mělo obsahovat tyto možnosti (metody):
všechny výstupy jsou vraceny v poli.
Funkce ktere se jsou jiz v provozu:
1) Výpis stavu uživatele
funkce:hkfree_money_userIsActive();
vstup - int [id]
- id ID uzivatele o kterem chceme pozadovane info
výstup - bool,bool,string [result, isActive, text]
- result vrací true ci false zda se funkce zdarila ci nezdarila
- isActive stav uzivatele v systemu
- text pripadna error hlaska (pri probehnuti vseho v poradku je zde text OK)
2) Výpis zda je uzivatel nastaven k automatické deaktivaci
funkce:hkfree_money_userIsDisabled();
vstup - int [id]
- id ID uzivatele o kterem chceme pozadovane info
výstup - bool,bool,string [result, isDisabled, text]
- result vrací true ci false zda se funkce zdarila ci nezdarila
- isDisabled stav uzivatele zda je ci neni nastaven k automaticke deaktivaci
- text pripadna error hlaska (pri probehnuti vseho v poradku je zde text OK)
3) Stav uzivatelova virtualniho uctu v Kc
funkce:hkfree_money_userGetAccountBalance();
vstup - int [id]
- id ID uzivatele o kterem chceme pozadovane info
výstup - bool,int,string [result, balance, text]
- result vrací true ci false zda se funkce zdarila ci nezdarila
- balance stav uzivatelova virtualniho uctu v Kc
- text pripadna error hlaska (pri probehnuti vseho v poradku je zde text OK)
Funkce ktere se budou vyvijet:
4) Odstranit/nastavit disablovani usera
funkce:hkfree_money_userSetDisabled();
vstup - int [id]
- id ID uzivatele kteremu chceme nastavit/zrusit stav Disabled
výstup - bool,bool,string [result, isDisabled, text]
- result vrací true ci false zda se funkce zdarila ci nezdarila
- isDisabled stav uzivatele zda je ci neni nastaven k automaticke deaktivaci
- text pripadna error hlaska
5) Aktivace usera
funkce:hkfree_money_userSetActivate();
vstup - int [id]
- id ID uzivatele kteremu chceme nastavit/zrusit stav Disabled
výstup - bool,bool,int,string [result, isActivated, zustatek, text]
- result vrací true ci false zda se funkce zdarila ci nezdarila
- isActivated stav uzivatele zda je ci neni nastaven k automaticke deaktivaci
- zustatek aktualni zustatek penez v Kc (po provedene aktivaci) - vypise se pouze pokud byla provedena uspesna aktivace i s odectem penez
- text pripadna error hlaska
Příklad přístupu z perlu
#!/usr/bin/perl
#
#
use Data::Dumper;
use SOAP::Lite;
use SOAP::WSDL;
#My credentials
my $id = 1234; #Moje ID
my $heslo = 'mojetajneheslo'; #Moje heslo (pokud jsem si heslo zmenil v money, tak pouziji to)
#Init soap object
my $soap = SOAP::Lite
-> service('https://$id:$heslo\@money.hkfree.org/wsdl/moneyAPI.wsdl');
#Set my credentials to the soap object
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
return '$id' => '$heslo';
}
my $info_about_this_id = 1234;
#call function with one parameter
@res = $soap->hkfree_money_userIsActive($info_about_this_id);
#Display Result
print Dumper \@res;