The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

NETSENSEI / Datahub-Factory-1.73 / lib / Datahub / Factory / Importer / TMS.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
—
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

              
package Datahub::Factory::Importer::TMS;
use Datahub::Factory::Sane;
our $VERSION = '1.73';
use Moo;
use Catmandu;
use DBI;
use Log::Log4perl;
use Config::Simple;
use namespace::clean;
use Datahub::Factory::Importer::TMS::Index;
with 'Datahub::Factory::Importer';
has db_host     => (is => 'ro', required => 1);
has db_name     => (is => 'ro', required => 1);
has db_user     => (is => 'ro', required => 1);
has db_password => (is => 'ro', required => 1);
sub _build_importer {
    my $self = shift;
    my $dsn = sprintf('dbi:mysql:%s', $self->db_name);
    my $query = 'select * from vgsrpObjTombstoneD_RO;';
    my $importer = Catmandu->importer('DBI', dsn => $dsn, host => $self->db_host, user => $self->db_user, password => $self->db_password, query => $query, encoding => ':iso-8859-1');
    # Add indices
    $self->logger->info('Creating indices on TMS tables.');
    Datahub::Factory::Importer::TMS::Index->new(
        db_host => $self->db_host,
        db_name => $self->db_name,
        db_user => $self->db_user,
        db_password => $self->db_password
    );
    return $importer;
}
1;
__END__
=encoding utf-8
=head1 NAME
Datahub::Factory::Importer::TMS - Import data from a L<TMS|http://www.gallerysystems.com/products-and-services/tms/> instance
=head1 SYNOPSIS
    use Datahub::Factory;
    use Data::Dumper qw(Dumper);
    my $tms = Datahub::Factory->importer('TMS')->new(
        db_host     => 'localhost',
        db_name     => 'tms',
        db_user     => 'tms',
        db_password => 'tms'
    );
    $tms->importer->each(sub {
        my $item = shift;
        print Dumper($item);
    });
=head1 DESCRIPTION
Datahub::Factory::Importer::TMS uses L<Catmandu|http://librecat.org/Catmandu/> to fetch a list of records
from a local instance of L<TMS|http://www.gallerysystems.com/products-and-services/tms/>The module requires
that the TMS database is stored in a MySQL (or equivalent) system. It will not work with MS SQL (which TMS uses).
=head1 PARAMETERS
=over
=item C<db_host>
Host (IP or FQDN) of the MySQL database.
=item C<db_name>
Name of the MySQL database.
=item C<db_user>
Username to connect to the database.
=item C<db_password>
Password for the user.
=back
=head1 ATTRIBUTES
=over
=item C<importer>
A L<Importer|Catmandu::Importer> that can be used in your script.
=back
=head1 AUTHOR
Pieter De Praetere E<lt>pieter at packed.be E<gt>
=head1 COPYRIGHT
Copyright 2017- PACKED vzw
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
L<Datahub::Factory>
L<Catmandu>
=cut