81 lines
1.6 KiB
Perl
81 lines
1.6 KiB
Perl
|
#!/usr/bin/env perl
|
||
|
|
||
|
use v5.10.1;
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
use DBI;
|
||
|
|
||
|
use Data::Dumper;
|
||
|
|
||
|
# First, read PHP configuration to extract some settings
|
||
|
my $profile;
|
||
|
my $submission_dir;
|
||
|
|
||
|
open my $conf, "<", "onyx/config/root.xml";
|
||
|
for my $p (<$conf>)
|
||
|
{
|
||
|
if ($p =~ /<(?:option|var) name="(.*)">(.*)<\/(?:option|var)>/)
|
||
|
{
|
||
|
$profile = $2 if ($1 eq "profile");
|
||
|
$submission_dir = $2 if ($1 eq "submission_dir");
|
||
|
}
|
||
|
}
|
||
|
close $conf;
|
||
|
|
||
|
die("No DB profile found") if ! $profile;
|
||
|
die("submission_dir is not a directory") if ! $submission_dir || ! -d $submission_dir;
|
||
|
|
||
|
# Read db settings
|
||
|
my %db_settings;
|
||
|
open my $dbprof, "<", "onyx/db/$profile.profile.php";
|
||
|
while (<$dbprof>)
|
||
|
{
|
||
|
if (/\$___profile\[['"](.+)['"]\] = ['"](.+)['"]/)
|
||
|
{
|
||
|
$db_settings{$1} = $2;
|
||
|
}
|
||
|
}
|
||
|
close $dbprof;
|
||
|
|
||
|
my $dbh;
|
||
|
# List all files to treat
|
||
|
opendir(my $dh, $submission_dir) || die "Can't opendir submission_dir: $!";
|
||
|
for my $f (readdir $dh)
|
||
|
{
|
||
|
if ($f =~ /^([0-9]+)-([0-9]+)-([0-9]+)$/)
|
||
|
{
|
||
|
my $team = $1;
|
||
|
my $theme = $2;
|
||
|
my $exercice = $3;
|
||
|
|
||
|
open my $fh, "<", "$submission_dir/$f";
|
||
|
my $solution = <$fh>;
|
||
|
close $fh;
|
||
|
|
||
|
$dbh = DBI->connect("DBI:mysql:database=$db_settings{db};host=$db_settings{host};port=3306",
|
||
|
$db_settings{user}, $db_settings{pass},
|
||
|
{'RaiseError' => 1, 'PrintError' => 1})
|
||
|
or die $DBI::errstr if !$dbh;
|
||
|
|
||
|
my $sth = query($dbh, "SELECT format, value FROM exercice_keys WHERE id_exercice = ".int($exercice));
|
||
|
|
||
|
while (my $row = get_row($sth))
|
||
|
{
|
||
|
say Dumper($row);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
closedir $dh;
|
||
|
|
||
|
$dbh->disconnect() if $dbh;
|
||
|
|
||
|
sub query
|
||
|
{
|
||
|
my $sth = $_[0]->prepare($_[1]);
|
||
|
$sth->execute();
|
||
|
|
||
|
die($_[0]->errstr) if (!$sth);
|
||
|
|
||
|
return $sth;
|
||
|
}
|