Bonjour,
L'objectif est de faire un script de quota d'impression qui va aller nourrir une base de donné distante des informations de mes quotas
Premierement
#!/usr/bin/perl
use strict;use warnings;
use DBI;
use Quota;
#information a la connection bdd
my $base = 'aaa';
my $host = 'localhost';
my $user = 'root';
my $pass = 'aaaaaaaa';
my $mysql_sock = '/var/run/mysqld/mysqld.sock';
#Connection à la base de données
my $db = DBI->connect("DBI:mysql:database=$base;
host=$host;
mysql_socket=$mysql_sock",
$user,
$pass,
{RaiseError => 1}
);
# ici il faudrait faire la gestion des quota
# Puis voici l'insertion dans la base de données
$db->do("INSERT INTO quota
(VARIABLE) VALUES (
$XXX,
$XXX,.........
")
or die "pb de requete : $DBI::errstr";
}
}
__END__
Le tout est avec un serveur cups et pourquoi pas pykotas *
Configuration: Linux Fedora
Firefox 1.5.0.12