view release on metacpan or  search on metacpan

bin/dubious_http.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long qw(:config posix_default bundling);
use App::DubiousHTTP::Tests;
use App::DubiousHTTP::Tests::Common;
use App::DubiousHTTP::TestServer;
use Data::Dumper;

sub usage {
    print STDERR "ERROR: @_\n" if @_;
    print STDERR <<USAGE;

Test various behaviors of browsers, IDS... by working as a
web server or alternativly creating pcaps with dubios HTTP.
See --mode doc for details about the tests.

Help:               $0 -h|--help

bin/dubious_http.pl  view on Meta::CPAN

	    ($cat,$spec) = split('/',App::DubiousHTTP::Tests::Common->num2path($testnum));
	    $page = $tmp =~s{^/+([^/]+)}{} ? $1:'';
	} else {
	    $cat  = $tmp =~s{^/+([^/]+)}{} ? $1:'';
	    $page = $tmp =~s{^/+([^/]+)}{} ? $1:'';
	    $tmp =~s{^/+}{};
	    $spec = $tmp;
	}

	0 and do {
	    use Data::Dumper;
	    warn Dumper({
		auto => $auto,
		src  => $src,
		manifest => $manifest,
		testnum => $testnum,
		cat => $cat,
		page => $page,
		spec => $spec,
	    });
	};