File Coverage

blib/lib/RT/Extension/Converter/RT1/Config.pm
Criterion Covered Total %
statement 9 18 50.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 23 56.5


line stmt bran cond sub pod time code
1             package RT::Extension::Converter::RT1::Config;
2 2     2   10 use base qw/RT::Extension::Converter::Config/;
  2         5  
  2         1642  
3 2     2   10 use warnings;
  2         2  
  2         56  
4 2     2   9 use strict;
  2         17  
  2         338  
5              
6             __PACKAGE__->mk_accessors(qw(dbuser dbpassword database dbhost data_directory
7             email_domain ));
8              
9             =head1 NAME
10              
11             RT::Extension::Converter::RT1::Config - config data for the RT1 importer
12              
13              
14             =head1 SYNOPSIS
15              
16             use RT::Extension::Converter::RT1::Config;
17            
18             Usually retrieved from a converter object with
19              
20             $rt1converter->config
21              
22             =head1 DESCRIPTION
23              
24             Useful config values for the RT1 converter.
25             These include where to find rt data, how to log into the rt1 database, and some
26             sane defaults about where to store tickets in the RT3 system
27              
28             =head1 METHODS
29              
30             =head2 dbuser
31              
32             user for the rt1 database
33              
34             =head2 dbpassword
35              
36             password for the rt1 database
37              
38             =head2 database
39              
40             name of the rt1 database
41              
42             =head2 dbhost
43              
44             host for the rt1 database
45              
46             =head2 data_directory
47              
48             where to find the rt1 transaction files
49              
50             =head2 email_domain
51              
52             users without emails will have emails autocreated like this
53              
54             user_id@email_domain
55              
56             =head2 new
57              
58             creates an RT1 config object and sets some defaults
59             carried over from the old rt1 import script
60              
61             =cut
62              
63             sub new {
64 0     0 1   my $class = shift;
65 0           my $self = $class->SUPER::new(@_);
66              
67 0           $self->dbuser("root");
68 0           $self->dbpassword("password");
69 0           $self->database("rt");
70 0           $self->dbhost("localhost");
71 0           $self->data_directory("/opr/rt/transactions");
72 0           $self->email_domain("example.com");
73              
74 0           return $self;
75             }
76              
77             =head1 AUTHOR
78              
79             Kevin Falcone C<< >>
80              
81              
82             =head1 LICENCE AND COPYRIGHT
83              
84             Copyright (c) 2007, Best Practical Solutions, LLC. All rights reserved.
85              
86             This module is free software; you can redistribute it and/or
87             modify it under the same terms as Perl itself. See L.
88              
89              
90             =head1 DISCLAIMER OF WARRANTY
91              
92             BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
93             FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
94             OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
95             PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
96             EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
97             WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
98             ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH
99             YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
100             NECESSARY SERVICING, REPAIR, OR CORRECTION.
101              
102             IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
103             WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
104             REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE
105             LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL,
106             OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE
107             THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
108             RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
109             FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
110             SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
111             SUCH DAMAGES.
112              
113             =cut
114              
115             1;
116