Aggiunto sistema partizionamento DB per ottimizzare l'accesso ai dati

proxy/squid_acl/squid_auth.pl

@@ -0,0 +1,58 @@
+#!/usr/bin/perl
+$|=1;
+
+use DBI;
+use FindBin qw($Bin);
+
+require "$Bin/../script/conntrack.conf";
+
+local $SIG{ALRM} = sub {
+	my $time = localtime; # scalar context
+	print LOG "$$ - $time - Exit\n";
+	exit 1;
+};
+
+srand($$);
+$timeout = 60 * (int(rand(5))+61);
+$limit = 50;
+
+my $dbmysql = DBI->connect("DBI:mysql:;host=$DBhost", $DBuser, $DBpass) or die ($DBI::errstr);
+$sts = $dbmysql->prepare("use $DBname");
+$sts->execute ();
+
+open LOG, ">> /srv/www/htdocs/pannello_vbc/proxy/squid_acl/squid_pool.log";
+LOG->autoflush(1);
+
+alarm $timeout;
+while($limit) {
+	my $query = "";
+	my $input = <>;
+	chop $input;
+
+#	my ($acl, $ip) = split / /, $input;
+	my @param = split / /, $input;
+
+	if ($param[0] ne "") {
+		$query = "SELECT id FROM proxy_utenti WHERE user = '".$param[0]."' AND pass = PASSWORD('".$param[1]."') AND attivo = 1";
+		$limit--;
+		alarm $timeout;
+	} else {
+		$limit = 0;
+	}
+
+	next if ($query eq "");
+
+	$sts = $dbmysql->prepare($query);
+	$sts->execute ();
+
+	if ($ref = $sts->fetchrow_hashref ) {
+		my $id = $$ref{'id'};
+		my $query = "UPDATE proxy_utenti SET data = NOW() WHERE id = $id";
+		$sts = $dbmysql->prepare($query);
+		$sts->execute ();
+		print "OK\n";
+	} else {
+		print "ERR\n";
+	}
+}
+exit;