Advertisement
Guest User

Untitled

a guest
Jan 31st, 2014
28
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.84 KB | None | 0 0
  1. has zapilogin=> sub{
  2.   my $self = shift;
  3.   my $zserver = shift || "";
  4.   my $zserverUrl = "http://$zserver. $self->stash->{config}->{zabbix}->{domain}/api_jsonrpc.php";
  5.   my $zabapi = Zabapi->new(server => $zserverUrl, verbosity => '0');
  6.   my $zabbixAuth = { user => $self->stash->{config}->{zabbix}->{username}, password => $self->stash->{config}->{zabbix}->{password}};
  7.   eval {
  8.   my $res =$zabapi->login($zabbixAuth);
  9.   say $res;
  10.   };
  11.   if ($@) {
  12.     $self->render(json => {"error"=>"$@" });
  13.     return 0;
  14.   }
  15.   else
  16.   {
  17.     if (defined $zabapi->{cookie}) {
  18.       return $zabapi;
  19.     }
  20.     else {
  21.       return '-1';
  22.     }
  23.   }
  24. };
  25.  
  26.  
  27. sub startup {
  28.     ......
  29.     $self->helper('zapilogin' => sub { return shift->app->zapilogin });
  30.     ......
  31.     }
  32.  
  33. sub test{
  34.     my $self = shift;
  35.     my $zabapi=$self->zapilogin($self->session('zserver'));
  36. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement