From 8c404164f025a9fed3bb547ba203d406c5e60dbf Mon Sep 17 00:00:00 2001
From: Dave Lawrence <dlawrence@mozilla.com>
Date: Wed, 28 Mar 2012 17:27:27 -0400
Subject: Bug 726193: add TryAutoLand extension

---
 .../bin/TryAutoLand.updateStatus_json.pl           | 64 ++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 extensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl

(limited to 'extensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl')

diff --git a/extensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl b/extensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl
new file mode 100644
index 000000000..28c57e3d7
--- /dev/null
+++ b/extensions/TryAutoLand/bin/TryAutoLand.updateStatus_json.pl
@@ -0,0 +1,64 @@
+#!/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 = "https://bugzilla-stage-tip.mozilla.org/jsonrpc.cgi";
+#my $uri = "http://fedora/autoland/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 $status    = shift;
+
+$result = $rpc->call($uri, { method => 'TryAutoLand.updateStatus', 
+                             params => { attach_id         => $attach_id, 
+                                         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);
-- 
cgit v1.2.3-24-g4f1b