summaryrefslogtreecommitdiffstats
path: root/extensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl')
-rwxr-xr-xextensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl65
1 files changed, 0 insertions, 65 deletions
diff --git a/extensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl b/extensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl
deleted file mode 100755
index f39b55229..000000000
--- a/extensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl
+++ /dev/null
@@ -1,65 +0,0 @@
-#!/usr/bin/perl -w
-
-use JSON::RPC::Client;
-use Data::Dumper;
-use HTTP::Cookies;
-
-###################################
-# Need to login first #
-###################################
-
-my $username = shift;
-my $password = shift;
-
-my $cookie_jar = HTTP::Cookies->new( file => "/tmp/lwp_cookies.dat" );
-
-my $rpc = new JSON::RPC::Client;
-
-$rpc->ua->ssl_opts(verify_hostname => 0);
-
-my $uri = "http://fedora/726193/jsonrpc.cgi";
-
-#$rpc->ua->cookie_jar($cookie_jar);
-
-#my $result = $rpc->call($uri, { method => 'User.login', params =>
-# { login => $username, password => $password } });
-
-#if ($result) {
-# if ($result->is_error) {
-# print "Error : ", $result->error_message;
-# exit;
-# }
-# else {
-# print "Successfully logged in.\n";
-# }
-#}
-#else {
-# print $rpc->status_line;
-#}
-
-###################################
-# Main call here #
-###################################
-
-my $attach_id = shift;
-my $action = shift;
-my $status = shift;
-
-$result = $rpc->call($uri, { method => 'TryAutoLand.update',
- params => { attach_id => $attach_id,
- action => $action,
- status => $status,
- Bugzilla_login => $username,
- Bugzilla_password => $password } });
-
-if ($result) {
- if ($result->is_error) {
- print "Error : ", $result->error_message;
- exit;
- }
-}
-else {
- print $rpc->status_line;
-}
-
-print Dumper($result->result);