|
|
(99 intermediate revisions by 2 users not shown) |
Line 1: |
Line 1: |
| | | Moved to |
| Webservice prepare | | Webservice setup and overview |
| | |
| | |
| INSERT INTO `tblMaintenance` (`mID`,`enabled`,`ip`,`hostname`,`groupID`,`requestUP`,`requestDOWN`,`WeightDownTime`,`WeightDownPending`,`TurnOffTime`,
| |
| `TurnOffPending`,`response`,`message`,`updatepending`,`requestDate`,`responseDate`,`receivedfrom`,`CurWeightDownTime`,`CurTurnOffTime`,`DSLMaintenance`,
| |
| `DSLRenewRequest`,`DSLDate`,`DSLEpoche`,`DSLIP`) VALUES
| |
| (1,1,'192.168.2.221','hh',1,0,0,30,0,30,0,200,'Host has been turned on',0,'0','20150727143609','0','0','0',0,0,'0',0,'0'),
| |
| (2,1,'192.168.2.222','hh',1,0,0,30,0,30,0,200,'Host has been turned on',0,'0','20150727143230','0','0','0',0,0,'0',0,'0');
| |
| | |
| | |
| Installing Soap-Lite modules for Linux
| |
| * apt-get install libsoap-lite-perl -s
| |
| | |
| *Note: ActiveState Perl for Windows already includes Soap-Lite
| |
| | |
| | |
| root@mylvs01:/var/www/mylvs/ws/cgi-bin# chmod 777 lvs.cgi
| |
| root@mylvs01:/var/www/mylvs/ws/modules# chmod 777 lvs.pm
| |
| | |
| | |
| *'''Note: The webservice requires mylvsmon to run'''
| |
| | |
| | |
| From the client:
| |
| | |
| #!/usr/bin/perl -w
| |
| use SOAP::Lite + qw/ trace /;
| |
| my $soap = SOAP::Lite
| |
| -> uri('urn:lvs')
| |
| -> proxy('http://ws.mylvs.foo/cgi-bin/lvs.cgi');
| |
| #my $result = $soap->REQUESTWEIGHTSTATUS ();
| |
| #my $result = $soap->WHATISMYIP ();
| |
| #my $result = $soap->REQUESTWEIGHTDOWN ();
| |
| my $result = $soap->REQUESTWEIGHTUP ();
| |
| unless ($result->fault) {
| |
| print $result->result();
| |
| } else {
| |
| print join ', ',
| |
| $result->faultcode,
| |
| $result->faultstring;
| |
| }
| |