#!/usr/local/bin/perl

use DBI;
use POSIX;
use warnings;
use strict;

require "/usr/local/lib/netmagis/libmetro.pl";

# Read configuration file
our $conf_file = "/usr/local/etc/netmagis.conf";
our %global_conf = read_global_conf_file($conf_file);

# Set log parameters
set_process_name("plugin-portmac");
set_log_facility($global_conf{pollerlogfacility});

# Parameters
my $table = "mac.portmac";

# Open mac database
my $db =  db_connect($global_conf{'macdbname'}, $global_conf{'macdbhost'},
		$global_conf{'macdbuser'}, $global_conf{'macdbpassword'});

my $sensortype = "portmac";
my $dir = $global_conf{'metrodatadir'}. "/report/";

# Process all session files
process_sessions($db, $table, $dir, $sensortype);
