#!/usr/bin/perl # # Copyright (c) 2000 - E.L.Willighagen. # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 # of the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # Author: E.L.Willighagen # # Contributers: # Stein Vrale (testing) # Felis (DHTML) # # Major Modifications for Terminus use: # G'Kar ( d99msr@efd.lth.se ) # use strict; use CGI qw(:standard); print header; my $VERSION = 0.4; my $id = $ARGV[0]; # these parameters need configuration # # where is the db info located? # my $base_url = "http://xsw.terminator.net"; my $base_dir = "/home/swserv"; my $opmfile = "$base_dir/universe/db/terminus.opm"; my $picturedir = "$base_dir/public_html/images"; my $scripturl = $ENV{'SCRIPT_NAME'}; my $css_url = "$base_url/css/xsw.css"; # where are the results located? # #my $gifext = "gif"; my $gifext = "png"; my $htmlgifdir = "$base_url/images/"; my $universe = "XSW Terminus"; # read code2picture mapping my %pictures; if (open(FILE, "$picturedir/default.isr")) { my $picture = ""; my $code = ""; while () { if (/BeginISRefEntry\s*=\s*(.*)/i) { $code = $1; $picture = ""; } elsif (/FileName\s*=\s*(.*)/i) { $picture = $1; } elsif (/EndISRefEntry/i) { if ($picture ne "") { $picture =~ s/(.*?)\..*/$1.$gifext/; $pictures{$code} = $picture; } } } } else { print "Can't locate picturedir ($picturedir)\n"; exit(1); } if (open(FILE, "<$opmfile")) { print qq[\n]; print qq[\n]; print qq[\n]; print qq[\n]; if (param('action') ne 'image') { print qq[\n]; print qq[\n]; print qq[

\n]; # print qq[

$universe



\n]; # print qq[

\n]; print qq[\n]; } # parse opm file my $name = ""; my $picture = ""; my $empire = ""; my $scanrange = ""; my $velmax = ""; my $type = ""; my $cloak = ""; my $damagecontrol = ""; my $hitmax = ""; my $turnrate = ""; # parse opm file my $isobject = 0; my $isuniv = 0; my $current_id = ""; my %params; while () { if (/BeginXSWObject\s*=\s*(.*)/i) { $isobject = 1; $current_id = $1; %params = (); #print "Detected object $current_id$/"; } elsif (/BeginHeader/i) { $isuniv = 1; } elsif (/EndHeader/i) { $isuniv = 0; } elsif (/EndXSWObject/i) { $isobject = 0; if ( $params{'Type'} == 4 && $params{'Name'} ne 'Guest' && $params{'Name'} ne 'New Player' && $params{'Name'} ne 'Player Wreck') { if (param('id') ne '') { # Dump ship if (param('id') eq $current_id ) { if (param('action') eq "image") { print qq[]; } else{ print qq[\n]; print qq[\n]; if ($params{"ImageSet"} ) { # it has an picture print qq[\n]; } else { print ""; } print qq[\n]; print qq[]; print qq[\n]; print qq[\n]; print qq[\n]; print qq[\n]; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } } } else { # Index print qq[$/]; print qq[]; print qq[$/]; } } } elsif (/BeginEcoData/i) { $isobject = 0; } elsif (/EndEcoData/i) { $isobject = 1; } elsif (/BeginEcoProduct/i) { } elsif (/EndEcoProduct/i) { } elsif (/BeginWeapon/i) { $isobject = 0; } elsif (/EndWeapon/i) { $isobject = 1; } elsif ($isobject || $isuniv) { # do some general parsing of parameters my ($param, $value) = parseLine($_); # print " $param -> $value$/"; $params{$param} = $value; } } print "
$params{'Name'}  
]; print qq[]; print qq[  No picture
GeneralSize$params{'Size'}
 Hitpoints$params{'HitPointsMax'}
 Antimatter$params{'AntimatterMax'}

MovementSpeed$params{'VelocityMax'}
 Acceleration$params{'ThrustPower'}
 Maneuverability$params{'TurnRate'}

GeneratorPower$params{'PowerMax'}
 CoreEfficency$params{'CoreEfficency'}
 PowerPurity$params{'PowerPurity'}

EquipmentScannerRange$params{'ScannerRange'}
 Cloaking$params{'CloakStrength'}
 Visibility$params{'Visibility'}
 TotalWeapons$params{'TotalWeapons'}
$params{'Name'}

]; print qq[
$/"; # print "
$/"; print "

$/"; print "$/"; print "$/"; } else { print "Can't locate OPM file ($opmfile)\n"; } sub parseLine { my $line = shift @_; $line =~ /^\s*(.*?)\s*=\s*(.*)\s*/; my $param = $1; my $val = $2; return ($param, $val); }