view release on metacpan or  search on metacpan

lib/Firewall/Config/Connector.pm  view on Meta::CPAN

15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
# 加载项目模块
#------------------------------------------------------------------------------
use Firewall::Config::Dao::Parser;
use Firewall::Config::Content::Static;
use Firewall::Utils::Date;
 
$Data::dumper::Sortkeys = 1;
 
has dbi => ( is => 'ro', does => 'Firewall::DBI::Role', );
 
sub update {
  my ( $self, %param ) = @_;
  my ( $fwType, @process, $conf, %processForFw, $numOfProcesses, $fwIds );
  my $fwInfo = $self->getFwInfo;
  if ( @{$param{fwIds}} ) {
    $fwIds = $param{fwIds};
  }
  else {
    $fwIds = [ keys %{$fwInfo} ];
  }
  $numOfProcesses

lib/Firewall/Config/Connector.pm  view on Meta::CPAN

89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
  print $parentLog dumper( \%processForFw );
  close $parentLog;
 
  my $exitPid;
  while ( keys(%childPids) ) {
    while ( ( $exitPid = waitpid( -1, WNOHANG ) ) > 0 ) {
      delete( $childPids{$exitPid} );
      sleep(0.25);
    }
  }
} ## end sub update
 
sub saveconfig {
  my ( $self, $param ) = @_;
  my ( $fwId, $type, $conf ) = @{$param}{qw/fwId type conf/};
  my $sonDbi = $self->dbi->clone;
  my $predefinedService;
  eval
    "use Firewall::Config::Dao::PredefinedService::$type; \$predefinedService = Firewall::Config::Dao::PredefinedService::$type->new( dbi => \$sonDbi )";
  confess $@ if !!$@;