Attachment 315129 Details for Bug 460351 – Test perl script to update the new pm score field

Test perl script to update the new pm score field

updateBug_xmlrpc.pl (text/plain), 1.20 KB, created by David Lawrence on 2008-08-27 18:21:33 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: David Lawrence

Created: 2008-08-27 18:21:33 UTC

Size: 1.20 KB

patch

obsolete

>#!/usr/bin/perl -w
>
>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(
>    proxy => 'https://bugzilla.redhat.com/xmlrpc.cgi' );
>
>$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                  #
>###################################
>
>my $bugid = shift;
>my $pm_score = shift;
>
>$call = $rpc->call( 'Bug.update', { ids => [$bugid], updates => { pm_score => $pm_score, comment => 'Updating PM score.' }} );
>
>my $result = "";
>if ( $call->faultstring ) {
>    print $call->faultstring . "\n";
>    exit;
>}
>else {
>    $result = $call->result;
>}
>
>print Dumper($result);

Actions: View

Attachments on bug 460351: 315128 | 315129