view release on metacpan or  search on metacpan

lib/Firewall/Controller/Ff.pm  view on Meta::CPAN

    };
  };

  # 返回计算结果
  $self->render( json => $result );
}

#------------------------------------------------------------------------------
# updateNetwork 更新网络信息，必须携带 fwId
#------------------------------------------------------------------------------
sub updateNetwork {
  my $self = shift;

  # 初始化变量
  my $result;

  # 实例化 Pg 数据库对象
  my $dbi = Firewall::DBI::Pg->new( $self->app->config->{db}{main} );

  # 尝试联机更新防火墙
  try {