pQmars/qcw-dev/cli-srv/bin admin.pl,NONE,1.1 pQmars.pl,NONE,1.1

[alexander sasha wait]

Update of /cvsroot/corewar/pQmars/qcw-dev/cli-srv/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31311/qcw-dev/cli-srv/bin

Added Files:
admin.pl pQmars.pl
Log Message:
Moved */admin.pl to */bin/* and updated *.php to use "COREWORLD_BIN"


--- NEW FILE: pQmars.pl ---
#! /usr/bin/perl -w

use strict;

print "Hi - running my script!\n";


--- NEW FILE: admin.pl ---
#! /usr/bin/perl -w

use strict;

use Getopt::Std;

use DBI;

my %args;
getopts ("mrs", \%args);

my $mysql_srv = $ENV{"COREWORLD_MYSQL_SERVER"};
my $mysql_db = $ENV{"COREWORLD_MYSQL_DB"};
my $mysql_uid = $ENV{"COREWORLD_MYSQL_USER"};
my $mysql_pw = $ENV{"COREWORLD_MYSQL_PASSWORD"};

my $dbh = DBI->connect ("DBI:mysql:$mysql_db:$mysql_srv",
$mysql_uid, $mysql_pw, { RaiseError => 1 });

if ($args{m}) {
md5sums();
}
elsif ($args{r}) {
run();
}
elsif ($args{s}) {
stop();
}
else {
print "that's OK too I guess.\n";
}

$dbh->disconnect;



sub md5sums {
print "Verifying md5sums in qcw table\n";

my $sth = $dbh->prepare("SELECT * FROM `qcw`");
$sth->execute();

while (my @row = $sth->fetchrow_array) {
print "***$row[0]***$row[1]***$row[2]***$row[4]***$row[5]\n";

open SPOOLER, "| tar -jOxf - | bzcat | zcat | md5sum"
or die "can't spool $!";

print SPOOLER $row[3];

close SPOOLER;
}
$sth->finish;
}

sub run {
print "Checking for runable Coreworld...\n";

my $sth = $dbh->prepare("SELECT * FROM `qcw` where `lock`=1");
$sth->execute();

my $i=0;
my $world;

while (my @row = $sth->fetchrow_array) {
$world = $row[3];
$i++;
}
$sth->finish;
if ($i == 1) {

for (my $j = 1; $j <= 4; $j++) {

my $cell = sprintf("%8.8X.qcw.gz.bz2",$j);

#pQmars();

open SPOOLER, "| tar -Ojxf - $cell |bzcat|zcat|head"
or die "can't spool $!";

print SPOOLER $world;

close SPOOLER
or die "can't close spool $!";

}

}
else {
print "Table corruption couldn't run...\n";
}
}



sub pQmars {

my $pid;
return if $pid = open(STDOUT, "|-");
die "cannot fork: $!" unless defined $pid;

undef $/;
my $qcw = <STDIN>;

print "$qcw!!!\n";

exit;
}