gacl/soap/clients/perl_client.pl

   1 #!/usr/bin/perl
   2
   3 #
   4 #  SOAP Lite needs to be installed for this to work correctly.
   5 #
   6 use SOAP::Lite;
   7
   8 #
   9 # EDIT THE BELOW URL TO MATCH YOUR SERVER.
  10 #
  11 sub soap_init {
  12         my $soap = new SOAP::Lite
  13         uri => 'http://localhost/phpgacl/soap/server.php',
  14         proxy => 'http://localhost/phpgacl/soap/server.php'
  15         or die "Failed SOAP connection: $! \n";
  16 }
  17
  18 $soap = soap_init();
  19
  20 sub acl_check {
  21         my ($aco_section_value, $aco_value, $aro_section_value, $aro_value, $axo_section_value, $axo_value, $root_aro_group_id, $root_axo_group_id) = @_;
  22
  23         return $soap->call('acl_check',$aco_section_value, $aco_value, $aro_section_value, $aro_value, $axo_section_value,$axo_value, $root_aro_group_id, $root_axo_group_id)->result
  24 }
  25
  26 if ( acl_check('system','login','users','john_doe') ) {
  27         print "John Doe has been granted access to login!<br>\n";
  28 } else {
  29         print "John Doe has been denied access to login!<br>\n";
  30 }
  31