Handler/MAPI/Constants.pm

##  ------------------------------------------------------------------------
##    $Id: Constants.pm,v 1.1 2003/01/20 16:44:40 joko Exp $
##  ------------------------------------------------------------------------
##    $Log: Constants.pm,v $
##    Revision 1.1  2003/01/20 16:44:40  joko
##    + initial check-in: refactored from code in Torus::Driver::mapi
##
##  ------------------------------------------------------------------------


package Data::Storage::Handler::MAPI::Constants;

use strict;
use warnings;

use mixin::with qw( Data::Storage::Handler::MAPI );


use Data::Dumper;
use Data::Mungle::Transform::Deep qw( merge );

# get logger instance
my $logger = Log::Dispatch::Config->instance;

sub _init {
  my $self = shift;

  # some values (constants) needed for accessing outlook-folders
  my $constants = {
    olFolderList => 2,
    olFolderDeletedItems => 3,
    olFolderOutbox => 4,
    olFolderSentMail => 5,
    olFolderInbox => 6,
    olFolderCalendar => 9,
    olFolderContacts => 10,
    olFolderJournal => 11,
    olFolderNotes => 12,
    olFolderTasks => 13,
    olFolderDrafts => 16,
  };
  
  $self->{constants} = $constants;

}

1;
1	joko	1.1	## ------------------------------------------------------------------------
2	joko	1.2	## $Id: Constants.pm,v 1.1 2003/01/20 16:44:40 joko Exp $
3	joko	1.1	## ------------------------------------------------------------------------
4	joko	1.2	## $Log: Constants.pm,v $
5			## Revision 1.1 2003/01/20 16:44:40 joko
6			## + initial check-in: refactored from code in Torus::Driver::mapi
7			##
8	joko	1.1	## ------------------------------------------------------------------------
9
10
11			package Data::Storage::Handler::MAPI::Constants;
12
13			use strict;
14			use warnings;
15
16			use mixin::with qw( Data::Storage::Handler::MAPI );
17
18
19			use Data::Dumper;
20	joko	1.2	use Data::Mungle::Transform::Deep qw( merge );
21	joko	1.1
22			# get logger instance
23			my $logger = Log::Dispatch::Config->instance;
24
25			sub _init {
26			my $self = shift;
27
28			# some values (constants) needed for accessing outlook-folders
29			my $constants = {
30			olFolderList => 2,
31			olFolderDeletedItems => 3,
32			olFolderOutbox => 4,
33			olFolderSentMail => 5,
34			olFolderInbox => 6,
35			olFolderCalendar => 9,
36			olFolderContacts => 10,
37			olFolderJournal => 11,
38			olFolderNotes => 12,
39			olFolderTasks => 13,
40			olFolderDrafts => 16,
41			};
42
43			$self->{constants} = $constants;
44
45			}
46
47			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26