git.sesse.net Git - nms/blob - clients/zyxelng.pl

   1 #!/usr/bin/perl -w
   2 #
   3 #
   4
   5 use strict;
   6 use lib '../include';
   7
   8 use nms;
   9 use ios;
  10
  11
  12 my $t = nms::ios_connect('62.148.36.12', 'c', 'c', 'c');
  13
  14 print STDERR "No such network 192.168.1.0\n" if nms::ios_getroute($t, "192.168.1.0") == 0;
  15
  16 nms::ios_close($t);
  17