/[james]/t2matchlog/t2matchlog
ViewVC logotype

Diff of /t2matchlog/t2matchlog

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 37 by james, Sat Nov 29 23:01:29 2003 UTC revision 38 by james, Sun Nov 30 13:41:03 2003 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use GD;  use GD;
5    
6  die "Usage: t2matchlog logfile outputdir" unless @ARGV == 2;  die "Usage: perl $0 logfile outputdir" unless @ARGV == 2;
7  open LOG, $ARGV[0] or die "Failed to open $ARGV[0]: $!";  open LOG, $ARGV[0] or die "Failed to open $ARGV[0]: $!";
8  my $outdir = $ARGV[1];  my $outdir = $ARGV[1];
9  mkdir $outdir or die "Failed to create output directory $outdir: $!";  mkdir $outdir or die "Failed to create output directory $outdir: $!";
10  (system "cp t2matchlog.css $outdir/") == 0 or die "Failed to copy stylesheet: $!";  my $dir = $0;
11    $dir =~ s!(^|/)[^/]+$!$1!;
12    (system "cp ${dir}t2matchlog.css $outdir/") == 0 or die "Failed to copy stylesheet: $!";
13    
14  $/ = "\r\n";  $/ = "\r\n";
15  $| = 1;  $| = 1;
# Line 57  $DamageTypeText[36] = 'Crash'; Line 59  $DamageTypeText[36] = 'Crash';
59  $DamageTypeText[98] = 'nexus camping';  $DamageTypeText[98] = 'nexus camping';
60  $DamageTypeText[99] = 'suicide';  $DamageTypeText[99] = 'suicide';
61    
62  my $icon_player = load_image("icons/com_player_grey_24x.png");  my $icon_player = load_image("${dir}icons/com_player_grey_24x.png");
63  my %icon;  my %icon;
64  $icon{'flag'} = load_image("icons/com_icon_flag_outside.png");  $icon{'flag'} = load_image("${dir}icons/com_icon_flag_outside.png");
65  $icon{'gen'} = load_image("icons/com_icon_generator.png");  $icon{'gen'} = load_image("${dir}icons/com_icon_generator.png");
66  $icon{'turret'} = load_image("icons/com_icon_turretbase.png");  $icon{'turret'} = load_image("${dir}icons/com_icon_turretbase.png");
67  $icon{'inv'} = load_image("icons/com_icon_inventory.png");  $icon{'inv'} = load_image("${dir}icons/com_icon_inventory.png");
68  $icon{'sensor'} = load_image("icons/com_icon_sensor.png");  $icon{'sensor'} = load_image("${dir}icons/com_icon_sensor.png");
69  $icon{'vpad'} = load_image("icons/com_icon_vehicle_inventory.png");  $icon{'vpad'} = load_image("${dir}icons/com_icon_vehicle_inventory.png");
70  $icon{'solar'} = load_image("icons/com_icon_solar_gen.png");  $icon{'solar'} = load_image("${dir}icons/com_icon_solar_gen.png");
71    
72  my %colour = ('S' => 0xffff00, 'A' => 0xff8000, 'KK' => 0x00ff00, 'K' => 0xff0000,  my %colour = ('S' => 0xffff00, 'A' => 0xff8000, 'KK' => 0x00ff00, 'K' => 0xff0000,
73                  'L' => 0xff8000, 'F+' => 0x00ffff, 'F-' => 0xff00ff, 'P' => 0xff8000,                  'L' => 0xff8000, 'F+' => 0x00ffff, 'F-' => 0xff00ff, 'P' => 0xff8000,
Legend:
Removed from v.37  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.26