#!/usr/bin/perl use warnings; use strict; use Getopt::Long; use LWP::UserAgent; use constant VERSION => 0.4; sub debug($); our $compress = sub { return }; GetOptions( "smokeserv=s" => \(my $smokeserver = ""), "help" => \&usage, "compress|c!" => \(my $compression_wanted = 1), "version" => sub { print "smokeserv-client.pl v" . VERSION . "\n"; exit }, ) or usage(); @ARGV >= 1 or usage(); debug "smokeserv-client v" . VERSION . " started.\n"; my @default_smokeserv = ("http://m19s28.vlinux.de/cgi-bin/pugs-smokeserv.pl"); my @smokeserv = $smokeserver ? ($smokeserver) : @default_smokeserv; setup_compression() if $compression_wanted; my %request = (upload => 1, version => VERSION, smokes => []); { my ($html) = grep { m/\.html?\+?$/ } @ARGV; my ($yml) = grep { m/\.ya?ml\+?$/ } @ARGV; unless($html and $yml) { debug "** Make sure you include both .html and .yml!\n"; debug "Aborting.\n\n"; exit 1; } debug "Reading smoke \"$html\" to upload... "; open my $fh, "<", $html or die "Couldn't open \"$html\" for reading: $!\n"; local $/; my $smoke = <$fh>; unless($smoke =~ /^($smoke) || $smoke; debug "html ok.\n"; if($yml and open $fh, '<', $yml) { $smoke = <$fh>; unless(($smoke =~ $config_re) and expand_meta($1) eq $config) { debug "The .yml and .html files don't seem to correspond. Aborting.\n"; exit 1; } $request{yml} = $compress->($smoke) || $smoke; } } foreach my $smokeserv (@smokeserv) { debug "Sending data to smokeserver \"$smokeserv\"... "; my $ua = LWP::UserAgent->new; $ua->agent("pugs-smokeserv-client/" . VERSION); $ua->env_proxy; my $resp = $ua->post($smokeserv => \%request); if($resp->is_success) { if($resp->content =~ /ok$/) { debug "success!\n"; exit 0; } else { debug "error: " . $resp->content . "\n"; exit 1; } } else { debug "error: " . $resp->status_line . "\n"; exit 1; } } sub usage { print STDERR <