IPScan - logwrite.pl

#!/usr/bin/perl

use strict;
use DBI;

$ARGV[2]=~ s/\\/\\\\/g;
$ARGV[3]=~ s/\\/\\\\/g;



#DATABASE
my $dsn = 'DBI:mysql:ipscan:localhost';
my $db_user = 'root';
my $db_password = 'PA$$W0RD';

my $dbh = DBI->connect($dsn, $db_user, $db_password);
#Поиск табельного номера по логину
my $sth = $dbh->prepare(qq{select num from logintonum where login = '$ARGV[3]'});
$sth->execute();
my ($num) = $sth->fetchrow_array();
$sth->finish();



#запись в главную таблицу
my $date=time;

my $rows = $dbh->do("INSERT INTO log (date,ip,mac,nbname,logins,num) VALUES ('$date','$ARGV[0]','$ARGV[1]','$ARGV[2]','$ARGV[3]','$num')");