diff options
author | Francois Marier <francois@debian.org> | 2008-06-23 23:47:09 +1200 |
---|---|---|
committer | Francois Marier <francois@debian.org> | 2008-06-23 23:47:09 +1200 |
commit | 42280f662d3ce4affb00eb68a22a081dfb951395 (patch) | |
tree | 6fc148a570675adc70504d610cb2552b4ab3545e /lib/CIL/Attachment.pm |
Imported Upstream version 0.2.1upstream/0.2.1
Diffstat (limited to 'lib/CIL/Attachment.pm')
-rw-r--r-- | lib/CIL/Attachment.pm | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/lib/CIL/Attachment.pm b/lib/CIL/Attachment.pm new file mode 100644 index 0000000..337ed1a --- /dev/null +++ b/lib/CIL/Attachment.pm @@ -0,0 +1,98 @@ +## ---------------------------------------------------------------------------- +# cil is a Command line Issue List +# Copyright (C) 2008 Andrew Chilton +# +# This file is part of 'cil'. +# +# cil is free software: you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation, either version 3 of the License, or (at your option) any later +# version. +# +# This program is distributed in the hope that it will be useful, but WITHOUT +# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS +# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +# details. +# +# You should have received a copy of the GNU General Public License along with +# this program. If not, see <http://www.gnu.org/licenses/>. +# +## ---------------------------------------------------------------------------- + +package CIL::Attachment; + +use strict; +use warnings; +use Carp; + +use MIME::Base64; + +use base qw(CIL::Base); + +# fields specific to Attachment +__PACKAGE__->mk_accessors(qw(Issue Filename Size File)); + +# all fields +my @FIELDS = ( qw(Issue Filename Size CreatedBy Inserted Updated File) ); + +## ---------------------------------------------------------------------------- + +sub new { + my ($proto, $name) = @_; + + croak 'please provide an attachment name' + unless defined $name; + + my $class = ref $proto || $proto; + my $self = {}; + bless $self, $class; + + $self->set_name( $name ); + $self->{data} = { + Issue => '', + Filename => '', + Size => '', + CreatedBy => '', + Inserted => '', + Updated => '', + File => '', + }; + $self->{Changed} = 0; + + $self->set_inserted_now; + + return $self; +} + +sub set_file_contents { + my ($self, $contents) = @_; + + # $contents will be binary + $self->{data}{File} = encode_base64( $contents ); +} + +sub as_binary { + my ($self) = @_; + + return decode_base64( $self->{data}{File} ); +} + +sub prefix { + return 'a'; +} + +sub fields { + return \@FIELDS; +} + +sub array_fields { + return {}; +} + +sub last_field { + return 'File'; +} + +## ---------------------------------------------------------------------------- +1; +## ---------------------------------------------------------------------------- |