RSS

(root)/bugzilla/trunk : 6949 : extensions/bmp_convert/code/attachment-process_data.pl

To get this branch, use:
bzr branch /bugzilla/trunk

« back to all changes in this revision

Viewing changes to extensions/bmp_convert/code/attachment-process_data.pl

Max Kanat-Alexander
2010-02-01 13:39:54
Revision ID: mkanat@bugzilla.org-20100201213954-6owd0g6vhlna09jw
Fix the data in the bzr repo to match the data in the CVS repo.
During the CVS imports into Bzr, there were some inconsistencies introduced
(mostly that files that were deleted in CVS weren't being deleted in Bzr).
So this checkin makes the bzr repo actually consistent with the CVS repo,
including fixing permissions of files.

Show diffs side-by-side

added added

removed removed

extensions/bmp_convert/code/attachment-process_data.pl
1
 
# -*- Mode: perl; indent-tabs-mode: nil -*-
2
 
#
3
 
# The contents of this file are subject to the Mozilla Public
4
 
# License Version 1.1 (the "License"); you may not use this file
5
 
# except in compliance with the License. You may obtain a copy of
6
 
# the License at http://www.mozilla.org/MPL/
7
 
#
8
 
# Software distributed under the License is distributed on an "AS
9
 
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
10
 
# implied. See the License for the specific language governing
11
 
# rights and limitations under the License.
12
 
#
13
 
# The Original Code is the Bugzilla Bug Tracking System.
14
 
#
15
 
# The Initial Developer of the Original Code is Frédéric Buclin.
16
 
# Portions created by Frédéric Buclin are Copyright (C) 2009
17
 
# Frédéric Buclin. All Rights Reserved.
18
 
#
19
 
# Contributor(s): Frédéric Buclin <LpSolit@gmail.com>
20
 
 
21
 
use strict;
22
 
 
23
 
use Image::Magick;
24
 
use Bugzilla;
25
 
 
26
 
my $args = Bugzilla->hook_args;
27
 
return unless $args->{attributes}->{mimetype} eq 'image/bmp';
28
 
 
29
 
my $data = ${$args->{data}};
30
 
my $img = Image::Magick->new(magick=>'bmp');
31
 
 
32
 
# $data is a filehandle.
33
 
if (ref $data) {
34
 
    $img->Read(file => \*$data);
35
 
    $img->set(magick=>'png');
36
 
    $img->Write(file => \*$data);
37
 
}
38
 
# $data is a blob.
39
 
else {
40
 
    $img->BlobToImage($data);
41
 
    $img->set(magick=>'png');
42
 
    $data = $img->ImageToBlob();
43
 
}
44
 
 
45
 
${$args->{data}} = $data;
46
 
$args->{attributes}->{mimetype} = 'image/png';
47
 
$args->{attributes}->{filename} =~ s/^(.+)\.bmp$/$1.png/i;
48
 
undef $img;

Loggerhead 1.18.1 is a web-based interface for Bazaar branches