view release on metacpan or  search on metacpan

lib/CPM.pm  view on Meta::CPAN

      print "Checking $self->{target}\n" if $verbose;
      if(my $sn=$self->checkip)
      {
        $printers++;
        print "Printer found: $sn\n" if $verbose;
        print "Connecting... " if $verbose;
        my $response = $browser->get($self->{url}.'&devid='.$sn);
        if($response->is_success)
        {
          print "OK\n" if $verbose;
          my $answer=$response->decoded_content;
          if($answer eq 'OK:GEN')
          {
            print "No defined model, using Generics.\n" if $verbose;
            if(my $host=$self->getgeneric)
            {
              print "Sending data\n" if $verbose;
              my $a=$browser->get($self->{url}.'&devid='.$sn.'&devread=1'.$host->{RESPONSE});
            }
            else
            {

lib/CPM.pm  view on Meta::CPAN

     {
        $self->{target}=$self->{net}.'.'.$i;
        print "Checking $self->{target}\n" if $verbose;
        if(my $sn=$self->checkip)
        {
          $printers++;
	  print "Printer found: $sn\n" if $verbose;
          my $response = $browser->get($self->{url}.'&devid='.$sn);
          if($response->is_success)
          {
            my $answer=$response->decoded_content;
            if($answer eq 'OK:GEN')
            {
	      print "No model identified, using Generics.\n" if $verbose;
              if(my $host=$self->getgeneric)
              {
                my $a=$browser->get($self->{url}.'&devid='.$sn.'&devread=1'.$host->{RESPONSE});
                print "Sending data.\n" if $verbose;
              }
              else
              {