-
Notifications
You must be signed in to change notification settings - Fork 26
/
reportupload.pl
87 lines (66 loc) · 1.73 KB
/
reportupload.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
#!/usr/bin/perl
=head1 NAME
reportupload.pl - upload an xml test report
=head1 VERSION
$Revision$
=head1 USAGE
perl -Ilib/ -I./ reportupload.pl
This will attempt to transmit a file called C<poe_report.xml> to a
central server for recording and browsing by POE's users and
development team.
=head1 AUTHOR
This program was written by Matt Cashner.
=cut
use IO::Socket::INET;
use warnings;
use strict;
local $/;
unless(open(XML, 'poe_report.xml')) {
print "Cannot find 'poe_report.xml'.\n";
exit(1);
}
my $xml = <XML>;
close XML;
print "Connecting to test server.\n";
my $sock = IO::Socket::INET->new(PeerHost => 'eekeek.org',
PeerPort => 'http(80)',
Proto => 'tcp',
);
if($sock && $sock->connected) {
print "Connection to test server successful.\n";
} else {
print "Connection to test server failed.\n";
exit(1);
}
my $body = qq|
--MAGICPANTS
Content-Disposition: form-data; name="action"
upload
--MAGICPANTS
Content-Disposition: form-data; name="reportfile"; filename="poe_report.xml"
Content-Type: text/plain
$xml
--MAGICPANTS--
|;
my $length = length($body);
my $packet =<<EOP;
POST http://eekeek.org/poe-tests/ HTTP/1.0
User-Agent: reportupload.pl
Content-Type: multipart/form-data; boundary=MAGICPANTS
Content-Length: $length
$body
EOP
print "Sending report...\n";
$sock->send($packet);
my $output;
$output = <$sock>; # for debug purposes
if($output =~ /Test Submission/) {
print(
"Report upload succeeded. Thank you for your contribution.\n",
"Please visit http://eekeek.org/poe-tests/ to see other results.\n"
);
} else {
print "Report upload failed.\n";
}
$sock->shutdown(2); # Check please.
exit(0);