[an error occurred while processing this directive] [an error occurred while processing this directive]
Downloadable games home Downloadable games home
News free downloadable games About an independent games developer: Avalanche Team Video games forum Game related places Games support & help
 
Games
#!/usr/bin/perl -w #!d:\asp\perl2\activeperl\perl\bin\perl -w require 'getpars.pl'; sub ReadProductsData($) { open(F, $_[0]); @ProductsData = ; close(F); } print "\n"; &GetPars; if ($Pars{'base'} eq '') {$Base = 'products.dat' } else { $Base = $Pars{'base'}.".dat" } &ReadProductsData($Base); $ProductsInFile = ($#ProductsData)+1; #print "\n $ProductsInFile \n\n"; if ($Pars{'quantity'} eq 'all') {$ProductsNumber = $ProductsInFile } else { if ($Pars{'quantity'} eq '') { $ProductsNumber = 3 } else { $ProductsNumber = ($Pars{'quantity'}) } } if (($ProductsNumber) > $ProductsInFile) {$ProductsNumber = $ProductsInFile } for ($i = 0; $i < $ProductsNumber; $i++) { &PrintFile($ProductsData[$i]); }
 
Games

Your Ad Here

Games
[an error occurred while processing this directive]
[an error occurred while processing this directive]