Attachment 306948 Details for Bug 445607 – Sample perl script showing use of bugzilla.updateAttachMimeType()

Sample perl script showing use of bugzilla.updateAttachMimeType()

updateAttachMimeType_xmlrpc.pl (text/plain), 1.35 KB, created by David Lawrence on 2008-05-28 16:45:01 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: David Lawrence

Created: 2008-05-28 16:45:01 UTC

Size: 1.35 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://bz-web2-test.devel.redhat.com/xmlrpc.cgi' );
>
>$rpc->transport->cookie_jar($cookie_jar);
>
># Use this for 3.2
># my $call = $rpc->call( 'User.login',
>#    { login => $username, password => $password } );
>
># Use this for 2.18
>my $call = $rpc->call( 'bugzilla.login', $username, $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 $data = {
>    'attach_id' => '304253',
>    'mime_type' => 'text/plain',
>    'nomail' => 0,
>};
>
>$call = $rpc->call( 'bugzilla.updateAttachMimeType', $data, $username, $password );
>
>my $result = "";
>if ( $call->faultstring ) {
>    print $call->faultstring . "\n";
>    exit;
>}
>else {
>    $result = $call->result;
>}
>
>print Dumper($result);

Actions: View

Attachments on bug 445607: 304813 | 306946 | 306947 | 306948 | 307011 | 307012