Question

我正在尝试使用Bugzilla Webservices API自动上传错误的附件，但是当我从Bugzilla下载时，我正在上传的base64编码消息总是被破坏。

http://www.bugzilla.org/docs/4.0/en/html/api/Bugzilla/WebService/Bug.html#add_attachment处的API文档指定附件需要进行base64编码，因此我使用一段简单的代码来读取本地png文件，使用MIME::Base64转换为base64并上传使用名为BZ::Client的Bugzilla Perl客户端API。

相关代码如下所示 -

my $client = BZ::Client->new("url" => $url,
                             "user" => $user,
                             "password" => $password);

            open (FILE, "$file") or die "$!";
            binmode FILE;
            read (FILE, $data, -s FILE);
            $base64_encoded_file = encode_base64($data);

            my %params = (
                ids => [ 1 ],
                data => $base64_encoded_file,
                file_name => 'filename.png',
                content_type => "image/png",
                summary => 'blah blah' );


            my $response = '';

            eval {
                $response = $client->api_call("Bug.add_attachment", \%params); # Needs to be hash ref
            } or do {
                print "ERROR: $@\n";        
            };

非常简单明了。我相信在后端Web服务API使用decode_base64所以我很惊讶这不起作用。即使使用Perl生成的base64字符串直接测试XMLRPC API仍然会导致文件损坏。

我也试图在bug report中建议剥离换行符，但无法使用Bug.add_attachment API调用的实现。

以前有人有这方面的经验吗？

谢谢！

Answer 1

read (FILE, $data, -s FILE);

这是错误的：引自perldoc -f read

Attempts to read LENGTH characters of data.

关键字是尝试：read()可以自由地读取比LENGTH字节少的数据。

如果你只想啜食FILE的内容，你可以使用：

$data = join("", <FILE>);

使用Web Services API和Perl将附件上载到Bugzilla

1 个答案: