TJOHNSON / Farly-0.25 / lib / Farly.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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

              
package Farly;
use 5.008008;
use strict;
use warnings;
use Carp;
use IO::File;
use File::Spec;
use Log::Any qw($log);
use Farly::Director;
use Farly::Object;
require Time::HiRes;
our $VERSION = '0.25';
sub new {
    my ( $class, $container ) = @_;
    my $self = { DIRECTOR => Farly::Director->new(), };
    bless $self, $class;
     
    $log->info("$self NEW");
    return $self;
}
sub director {
    return $_[0]->{DIRECTOR};
}
sub process {
    my ( $self, $type, $file_name ) = @_;
    croak "$file_name is not a file" unless ( -f $file_name );
    my $location      = "Farly/$type/Builder.pm";
    my $builder_class = 'Farly::'.$type.'::Builder';
    require $location;
    my $builder = $builder_class->new();
    my $file = IO::File->new($file_name);
    $self->director()->set_file($file);
    $self->director()->set_builder($builder);
    my $start = [ Time::HiRes::gettimeofday() ];
    my $container;
    eval { $container = $self->director()->run(); };
    if ($@) {
        die "Import of $file_name failed\n", $@, "\n";
    }
    my $elapsed = Time::HiRes::tv_interval($start);
    $log->info("parse time: $elapsed seconds");
    $log->info( "imported " . $container->size() . " objects" );
    return $container;
}
1;
__END__
=head1 NAME
Farly - Firewall Analysis and Rewrite Library
=head1 DESCRIPTION
Farly translates a vendor specific firewall configuration
into an easily searchable vendor independent firewall model.
Using the Farly firewall model, Perl scripts can be
written to perform tasks such as firewall security audits,
group or rule optimizations or large scale firewall 
configuration changes.
This module is a factory class which abstracts the 
construction of an Farly::Object::List<Farly::Object> based
firewall device model.
Farly dies on error.
=head1 SYNOPSIS
  use Farly;
  my $importer = Farly->new();
  my $container = $importer->process("ASA", "firewall-config.txt");
  foreach my $ce ( $container->iter() ) {
        print $ce->dump();
        print "\n"
  }
=head1 METHODS
=head2 new()
  
The constructor. No arguments required.
  
=head2 process( <firewall type>, <configuration file>)
 my $container = $importer->process('ASA', "firewall-config.txt");
Returns Farly::Object::List<Farly::Object> firewall device model.
  
Valid firewall types:
 ASA  - Cisco ASA firewall
=head1 Logging
Farly uses L<Log::Any> for logging. You can enable logging 
by setting the desired L<Log::Any::Adapter> in your Farly based
Perl script.
 use Farly;
 use Log::Any::Adapter;
  
 # send all messages to STDOUT
 Log::Any::Adapter->set("Stdout");
 my $farly = Farly->new;
See L<Log::Any::Adapter> for configuration details and a list of
available adapters.
=head1 AUTHOR
Trystan Johnson
=head1 CONTRIBUTORS
=over
=item *  Lukas Thiemeier <lukast@cpan.org>
=back
=head1 COPYRIGHT AND LICENCE
Farly
Copyright (C) 2012  Trystan Johnson
This program 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/>.