Page History

#!/usr/bin/perl -w
use API::ISPManager;
use warnings;

my $connection_params = {
    username => 'ispoperator',
    password => 'mysecretpass',
    host     => 'ispmanager.isp.ru',
    path     => 'manager',
};

if(!$ARGV[0] || !$ARGV[1]) {
    die "ERROR. Not param in ARGV. Use ./ispman.pl on/off user";
    }

my $user_login=$ARGV[1];
if($ARGV[0]  eq "on") {
        my $resume_result = API::ISPManager::user::enable( {
        %{ $connection_params },
        elid => $user_login,
        } );
        unless ( $resume_result ) {
        die "ERROR. Cannot resume account";
      }
    } elsif ($ARGV[0] eq "off") {
        my $suspend_result = API::ISPManager::user::disable( {
        %{ $connection_params },
        elid => $user_login,
        } );
        unless ( $suspend_result ) {
        die "ERROR. Cannot suspend account";
      }
    } else {
    die "ERROR. What do you want from me?.... use ./ispman.pl on/off user";
}

exit(0);