diff options
| author | yo mama <pepper@scannerjammer.com> | 2015-02-13 01:33:31 -0800 |
|---|---|---|
| committer | yo mama <pepper@scannerjammer.com> | 2015-02-13 01:33:31 -0800 |
| commit | 4100860d10e2fb015db01d22bbf3f4735bcf10ec (patch) | |
| tree | 995b51fe3f8a6fe7fb58938c83463f3b09b5ee7c /impattern/im/imdither/imdither_tests.py | |
first
Diffstat (limited to 'impattern/im/imdither/imdither_tests.py')
| -rwxr-xr-x | impattern/im/imdither/imdither_tests.py | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/impattern/im/imdither/imdither_tests.py b/impattern/im/imdither/imdither_tests.py new file mode 100755 index 0000000..ee18b8d --- /dev/null +++ b/impattern/im/imdither/imdither_tests.py @@ -0,0 +1,17 @@ +#!/usr/bin/perl +use LWP::UserAgent; +use CGI; +use Data::Dumper; + +my $URL = "http://localhost/cgi-bin/imdither.py"; + + + + +my $ua = LWP::UserAgent->new(); +my $response = $ua->post( $URL, { } ); +my $content = $response->decoded_content(); + +my $cgi = CGI->new(); +print $cgi->header(), $content; + |