--- t2matchlog/t2matchlog	2003/11/29 23:01:29	37
+++ t2matchlog/t2matchlog	2003/11/30 13:41:03	38
@@ -3,11 +3,13 @@
 use strict;
 use GD;
 
-die "Usage: t2matchlog logfile outputdir" unless @ARGV == 2;
+die "Usage: perl $0 logfile outputdir" unless @ARGV == 2;
 open LOG, $ARGV[0] or die "Failed to open $ARGV[0]: $!";
 my $outdir = $ARGV[1];
 mkdir $outdir or die "Failed to create output directory $outdir: $!";
-(system "cp t2matchlog.css $outdir/") == 0 or die "Failed to copy stylesheet: $!";
+my $dir = $0;
+$dir =~ s!(^|/)[^/]+$!$1!;
+(system "cp ${dir}t2matchlog.css $outdir/") == 0 or die "Failed to copy stylesheet: $!";
 
 $/ = "\r\n";
 $| = 1;
@@ -57,15 +59,15 @@
 $DamageTypeText[98] = 'nexus camping';
 $DamageTypeText[99] = 'suicide';
 
-my $icon_player = load_image("icons/com_player_grey_24x.png");
+my $icon_player = load_image("${dir}icons/com_player_grey_24x.png");
 my %icon;
-$icon{'flag'} = load_image("icons/com_icon_flag_outside.png");
-$icon{'gen'} = load_image("icons/com_icon_generator.png");
-$icon{'turret'} = load_image("icons/com_icon_turretbase.png");
-$icon{'inv'} = load_image("icons/com_icon_inventory.png");
-$icon{'sensor'} = load_image("icons/com_icon_sensor.png");
-$icon{'vpad'} = load_image("icons/com_icon_vehicle_inventory.png");
-$icon{'solar'} = load_image("icons/com_icon_solar_gen.png");
+$icon{'flag'} = load_image("${dir}icons/com_icon_flag_outside.png");
+$icon{'gen'} = load_image("${dir}icons/com_icon_generator.png");
+$icon{'turret'} = load_image("${dir}icons/com_icon_turretbase.png");
+$icon{'inv'} = load_image("${dir}icons/com_icon_inventory.png");
+$icon{'sensor'} = load_image("${dir}icons/com_icon_sensor.png");
+$icon{'vpad'} = load_image("${dir}icons/com_icon_vehicle_inventory.png");
+$icon{'solar'} = load_image("${dir}icons/com_icon_solar_gen.png");
 
 my %colour = ('S' => 0xffff00, 'A' => 0xff8000, 'KK' => 0x00ff00, 'K' => 0xff0000,
 		'L' => 0xff8000, 'F+' => 0x00ffff, 'F-' => 0xff00ff, 'P' => 0xff8000,