pQmars/qcw-prod/cli-srv/bin admin.pl,1.1,1.2

[alexander sasha wait]

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

Modified Files:
admin.pl
Log Message:
allocate a gigabyte of ram and release.


Index: admin.pl
===================================================================
RCS file: /cvsroot/corewar/pQmars/qcw-prod/cli-srv/bin/admin.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** admin.pl 10 Oct 2005 19:45:26 -0000 1.1
--- admin.pl 11 Oct 2005 00:20:53 -0000 1.2
***************
*** 28,31 ****
--- 28,38 ----
}
else {
+ my $var = "+";
+
+ for (my $i = 1; $i <= 30; $i++) {
+ $var = $var.$var;
+ my $j = 2**$i;
+ print "$j\n";
+ }
print "that's OK too I guess.\n";
}
***************
*** 70,79 ****
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 $!";
--- 77,86 ----
if ($i == 1) {

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

my $cell = sprintf("%8.8X.qcw.gz.bz2",$j);
!
open SPOOLER, "| tar -Ojxf - $cell |bzcat|zcat|head"
or die "can't spool $!";
***************
*** 103,107 ****
my $qcw = <STDIN>;

! print "$qcw!!!\n";

exit;
--- 110,114 ----
my $qcw = <STDIN>;

! print "$qcw\n!!!Caught the output!!!\n";

exit;