summaryrefslogtreecommitdiffstats
path: root/extensions/TryAutoLand/bin/TryAutoLand.getBugs.pl
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/TryAutoLand/bin/TryAutoLand.getBugs.pl')
-rwxr-xr-xextensions/TryAutoLand/bin/TryAutoLand.getBugs.pl60
1 files changed, 0 insertions, 60 deletions
diff --git a/extensions/TryAutoLand/bin/TryAutoLand.getBugs.pl b/extensions/TryAutoLand/bin/TryAutoLand.getBugs.pl
deleted file mode 100755
index 5d05831a8..000000000
--- a/extensions/TryAutoLand/bin/TryAutoLand.getBugs.pl
+++ /dev/null
@@ -1,60 +0,0 @@
-#!/usr/bin/perl -w
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, You can obtain one at http://mozilla.org/MPL/2.0/.
-#
-# This Source Code Form is "Incompatible With Secondary Licenses", as
-# defined by the Mozilla Public License, v. 2.0.
-
-use XMLRPC::Lite;
-use Data::Dumper;
-use HTTP::Cookies;
-
-###################################
-# Need to login first #
-###################################
-
-my $username = shift;
-my $password = shift;
-
-my $cookie_jar = new HTTP::Cookies( file => "/tmp/lwp_cookies.dat" );
-
-my $rpc = new XMLRPC::Lite;
-
-$rpc->proxy('http://fedora/726193/xmlrpc.cgi');
-
-$rpc->encoding('UTF-8');
-
-$rpc->transport->cookie_jar($cookie_jar);
-
-my $call = $rpc->call( 'User.login',
- { login => $username, password => $password } );
-
-if ( $call->faultstring ) {
- print $call->faultstring . "\n";
- exit;
-}
-
-# Save the cookies in the cookie file
-$rpc->transport->cookie_jar->extract_cookies(
- $rpc->transport->http_response );
-$rpc->transport->cookie_jar->save;
-
-print "Successfully logged in.\n";
-
-###################################
-# Main call here #
-###################################
-
-$call = $rpc->call('TryAutoLand.getBugs', { status => [] });
-
-my $result = "";
-if ( $call->faultstring ) {
- print $call->faultstring . "\n";
- exit;
-}
-else {
- $result = $call->result;
-}
-
-print Dumper($result);