#!/bin/perl -W
use strict;
use GD;
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: $!";
my $dir = $0;
$dir =~ s#(^|/)[^/]+$#$1#;
(system "cp ${dir}t2matchlog.css $outdir/") == 0 or die "Failed to copy stylesheet: $!";
$/ = "\r\n";
$| = 1;
my $near0 = 70;
my $near1 = 200;
my $thumbsize = 400;
# from damageTypes.cs
my @DamageTypeText;
$DamageTypeText[0] = 'default';
$DamageTypeText[1] = 'blaster';
$DamageTypeText[2] = 'plasma';
$DamageTypeText[3] = 'chaingun';
$DamageTypeText[4] = 'disc';
$DamageTypeText[5] = 'grenade';
$DamageTypeText[6] = 'laser';
$DamageTypeText[7] = 'ELF';
$DamageTypeText[8] = 'mortar';
$DamageTypeText[9] = 'missile';
$DamageTypeText[10] = 'shocklance';
$DamageTypeText[11] = 'mine';
$DamageTypeText[12] = 'explosion';
$DamageTypeText[13] = 'impact';
$DamageTypeText[14] = 'ground';
$DamageTypeText[15] = 'turret';
$DamageTypeText[16] = 'plasma turret';
$DamageTypeText[17] = 'AA turret';
$DamageTypeText[18] = 'ELF turret';
$DamageTypeText[19] = 'mortar turret';
$DamageTypeText[20] = 'missile turret';
$DamageTypeText[21] = 'clamp turret';
$DamageTypeText[22] = 'spike turret';
$DamageTypeText[23] = 'sentry turret';
$DamageTypeText[24] = 'out of bounds';
$DamageTypeText[25] = 'lava';
$DamageTypeText[26] = 'shrike blaster';
$DamageTypeText[27] = 'belly turret';
$DamageTypeText[28] = 'bomber bomb';
$DamageTypeText[29] = 'tank chaingun';
$DamageTypeText[30] = 'tank mortar';
$DamageTypeText[31] = 'satchel charge';
$DamageTypeText[32] = 'MPB missile';
$DamageTypeText[33] = 'lighting';
$DamageTypeText[35] = 'ForceField';
$DamageTypeText[36] = 'Crash';
$DamageTypeText[98] = 'nexus camping';
$DamageTypeText[99] = 'suicide';
my $icon_player = load_image("${dir}icons/com_player_grey_24x.png");
my %icon;
$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,
'KS' => 0xff0000,
'L' => 0xff8000, 'F+' => 0x00ffff, 'F-' => 0xff00ff, 'P' => 0xff8000,
'V' => 0xffff00, 'W' => 0xff0000, 'G' => 0x0080ff, 'J' => 0x00ff80,
'GG' => 0x0080ff, 'JJ' => 0x00ff80,
'C' => 0x00ff00, 'R' => 0x00ff00);
my $colour_me = 0xffffff;
my %desc = ('S' => 'spawned on team $team_name[$p1]',
'A' => '$p1 armour',
'KK' => 'killed $enemy using $DamageTypeText[$p2]',
'K' => 'killed by $DamageTypeText[$p2] $enemy',
'KS' => 'killed himself using $DamageTypeText[$p2]',
'L' => 'left the game',
'F+' => '${melink}took the $team_name[$p1] flag',
'F-' => '${melink}dropped the $team_name[$p1] flag',
'P' => '$p1',
'V' => 'vehicle created',
'W' => 'vehicle destroyed',
'G' => 'entered " . vehicle_link($p1) . " as ${seat{$p2}}',
'J' => 'ejected from vehicle',
'GG' => '$p1 entered as ${seat{$p2}}',
'JJ' => '$p1 ejected',
'C' => '${melink}captured the $team_name[$p1] flag!',
'R' => '${melink}returned the $team_name[$p1] flag',);
my @teamcol = (0xffffff, 0x0000ff, 0xff00ff);
my %seat = ('' => 'a passenger', 'p' => 'pilot', 'w' => 'gunner');
my %veh_name = ('BomberFlyer' => 'Bomber',
'HAPCFlyer' => 'Havoc',
'MobileBaseVehicle' => 'MPB',
'ScoutFlyer' => 'Shrike',
'AssaultVehicle' => 'Tank',
'ScoutVehicle' => 'Wildcat');
my ($mission, $mission_type, $mission_name, $mission_type_name, $x0, $y0, $width, $height);
my (@landmarks, @waypoints);
print "reading data";
read_header();
my @events = ();
my @coords = ();
my %score = ();
my %kills = ();
my %deaths = ();
my %grabs = ();
my %caps = ();
my %returns = ();
my %player = ();
my %vehicle = ();
my %team = ();
my $end_time;
my (@final_score, @team_name);
my %flag = ();
my @flag_coords = ();
read_data();
print ".\n";
my $imall = create_image();
my $player;
foreach $player (keys %player) {
print "$player";
write_player_report($player);
print ".\n";
}
my $vehicle;
foreach $vehicle (keys %vehicle) {
my ($team, $name) = split / /, $vehicle, 2;
print "$team_name[$team] $veh_name{$name}s";
write_vehicle_report($name, $team);
print ".\n";
}
my $team;
foreach $team (keys %flag) {
print "$team_name[$team] flag";
write_flag_report($team);
print ".\n";
}
write_summary_report();
exit;
####################################################################################################
sub read_header {
$mission = ; chomp $mission;
$mission_type = ; chomp $mission_type;
$mission_name = ; chomp $mission_name;
$mission_type_name = ; chomp $mission_type_name;
my $area = ; chomp $area; ($x0, $y0, $width, $height) = split / /, $area;
while (($_ = ) ne $/) {
chomp;
my ($team, $type, $block, $name, $x, $y, $z, $desc) = split / /, $_, 8;
$x -= $x0; $y = $height - $y + $y0;
if ($type eq 'StaticShape' and $block eq 'GeneratorLarge') {
push @landmarks, "$z gen $team $x $y";
} elsif ($type eq 'Turret' and $block eq 'TurretBaseLarge') {
push @landmarks, "$z turret $team $x $y";
} elsif ($type eq 'StaticShape' and $block eq 'ExteriorFlagStand') {
push @landmarks, "$z flag $team $x $y";
} elsif ($type eq 'StaticShape' and $block eq 'StationVehicle') {
push @landmarks, "$z vpad $team $x $y";
} elsif ($type eq 'StaticShape' and $block eq 'StationInventory') {
push @landmarks, "$z inv $team $x $y";
} elsif ($type eq 'StaticShape' and $block eq 'SensorLargePulse') {
push @landmarks, "$z sensor $team $x $y";
} elsif ($type eq 'StaticShape' and $block eq 'SolarPanel') {
push @landmarks, "$z solar $team $x $y";
} elsif ($type eq 'WayPoint' and $block eq 'WayPointMarker') {
push @waypoints, "$team $x $y $z $desc";
}
}
# sort by height for nicer plotting
@landmarks = sort { my ($az, $ra) = split / /, $a, 2; my ($bz, $rb) = split / /, $b, 2;
return $az <=> $bz; } @landmarks;
}
####################################################################################################
sub read_data {
my $time = 0;
my %name = ();
my @flag_carrier;
my %player_veh;
my %player_flag;
while () {
chomp;
if ($_ eq '') {
$time++;
next;
}
my ($cmd, $params) = split / /, $_, 2;
if ($cmd eq 'S') { # player spawned
my ($id, $team, $name) = split / /, $params, 3;
$name{$id} = $name;
push @events, [$time, 'S', $name, $team];
$player{$name} = 1;
$team{$name} = $team;
$player_veh{$name} = 0;
} elsif ($cmd eq 'K') { # player killed
my ($victim, $killer, $weapon) = split / /, $params;
next unless exists $name{$victim};
$deaths{$name{$victim}}++;
$kills{$name{$killer}}++ if exists $name{$killer};
push @events, [$time, 'K', $name{$victim}, $name{$killer}, $weapon];
push @events, [$time, 'KK', $name{$killer}, $name{$victim}, $weapon]
if exists $name{$killer} and $killer != $victim;
if (exists $name{$killer} and $player_veh{$name{$killer}}) {
push @events, [$time, 'KK', $name{$player_veh{$name{$killer}}},
$name{$victim}, $weapon];
}
# if (defined $player_veh{$name}) TODO
# delete $name{$victim};
} elsif ($cmd eq 'L') { # player left
my ($id, $score) = split / /, $params;
next unless exists $name{$id};
push @events, [$time, 'L', $name{$id}];
$score{$name{$id}} += $score;
delete $name{$id};
} elsif ($cmd eq 'A') { # armour changed
my ($id, $armour) = split / /, $params;
push @events, [$time, 'A', $name{$id}, $armour];
} elsif ($cmd eq 'I') { # inventory changed
my ($id, $item, $count) = split / /, $params;
if ($item =~ m/(Pack|SatchelCharge)$/ and $count == 1) {
$item =~ s/Pack$/ pack/;
push @events, [$time, 'P', $name{$id}, $item];
}
} elsif ($cmd eq 'D') { # player damaged
my ($victim, $attacker, $weapon) = split / /, $params;
} elsif ($cmd eq 'V') { # new vehicle
my ($id, $team, $name) = split / /, $params, 3;
$vehicle{"$team $name"}++;
$name{$id} = "$team $name " . $vehicle{"$team $name"};
$team{$name{$id}} = $team;
push @events, [$time, 'V', $name{$id}];
} elsif ($cmd eq 'W') { # vehicle destroyed
my $id = $params;
push @events, [$time, 'W', $name{$id}];
#delete $name{$id};
} elsif ($cmd eq 'Z') { # final score
my ($team, $score, $team_name) = split / /, $params, 3;
$final_score[$team] = $score;
$team_name[$team] = $team_name;
} elsif ($cmd eq 'F') { # flag position
my ($team, @data) = split / /, $params;
my $carrier;
$flag{$team} = 1;
$team{"$team flag"} = $team;
$flag_carrier[$team] = 0 unless defined $flag_carrier[$team];
if (@data == 3) {
my ($x, $y, $z) = @data;
$x -= $x0; $y = $height - $y + $y0;
${$coords[$time]}{"$team flag"} = "$x $y $z";
$carrier = 0;
} else {
$carrier = $name{$data[0]};
}
if ($carrier ne $flag_carrier[$team]) {
if ($flag_carrier[$team]) {
push @events, [$time, 'F-', $flag_carrier[$team], $team];
delete $player_flag{$flag_carrier[$team]};
}
if ($carrier) {
push @events, [$time, 'F+', $carrier, $team];
$grabs{$carrier}++;
$player_flag{$carrier} = $team;
}
$flag_carrier[$team] = $carrier;
}
} elsif ($cmd eq 'C') { # flag captured (CTF)
my ($team, $id) = split / /, $params;
push @events, [$time, 'C', $name{$id}, $team];
$flag_carrier[$team] = 0;
$caps{$name{$id}}++;
} elsif ($cmd eq 'R') { # flag returned (CTF)
my ($team, $id) = split / /, $params;
push @events, [$time, 'R', exists $name{$id} ? $name{$id} : '', $team];
$returns{$name{$id}}++;
} else { # player / vehicle position
my $id = $cmd;
next unless exists $name{$id};
my $name = $name{$id};
my ($x, $y, $z, $vehicle, $seat) = split / /, $params;
$x -= $x0; $y = $height - $y + $y0;
${$coords[$time]}{$name} = "$x $y $z";
next unless defined $player{$name};
if ($player_veh{$name} != $vehicle) {
if ($player_veh{$name}) {
push @events, [$time, 'J', $name];
push @events, [$time, 'JJ',
$name{$player_veh{$name}}, $name];
}
if ($vehicle != 0) {
push @events, [$time, 'G', $name,
$name{$vehicle}, $seat];
push @events, [$time, 'GG', $name{$vehicle},
$name, $seat];
}
$player_veh{$name} = $vehicle;
}
if (exists $player_flag{$name}) {
${$coords[$time]}{$player_flag{$name} . " flag"} = "$x $y $z";
}
}
}
$end_time = $time + 1;
}
####################################################################################################
sub write_player_report {
my $player = shift;
my $score = exists $score{$player} ? $score{$player} : 0;
my $deaths = exists $deaths{$player} ? $deaths{$player} : 0;
my $kills = exists $kills{$player} ? $kills{$player} : 0;
my $sname = safe_name($player);
my $html = create_html($player);
$html .= <Total score $score, deaths $deaths, kills $kills. Match summary.
END
# find spawn / death times
my @spawn = map $$_[0], (grep {$$_[2] eq $player and $$_[1] eq 'S'} @events);
my @death = map $$_[0], (grep {$$_[2] eq $player and
($$_[1] eq 'K' or $$_[1] eq 'L')} @events);
push @spawn, $end_time;
for (my $life = 0; $life != @spawn - 1; $life++) {
my $nicetime = nice_time($spawn[$life]);
my $nicedtime = nice_time($death[$life]);
my $life1 = $life + 1;
$html .= <Life $life1 ($nicetime - $nicedtime)
END
$html .= player_life($player, "${sname}_$life1.png",
$spawn[$life], $spawn[$life1] - 1);
$html .= '';
}
save_html(safe_name($player) . '.html', $html);
}
####################################################################################################
sub player_life {
my $player = shift;
my $imname = shift;
my $time0 = shift;
my $time1 = shift;
my $im = create_image();
plot_route($im, $player, $time0, $time1);
my @evs = grep {$$_[2] eq $player and $time0 <= $$_[0] and $$_[0] <= $time1} @events;
my $html = write_events($player, \@evs, $im);
save_image($im, $imname);
return $html;
}
####################################################################################################
sub write_events {
my $player = shift;
my $evs = shift;
my $im = shift;
my $prev_time = -1;
my $html = "\n";
my $event;
foreach $event (@$evs) {
my ($time, $ev, $me, $p1, $p2) = @$event;
my $nicetime = nice_time($time);
if ($time == $prev_time) {
$html .= ' | ';
} else {
$html .= "
$nicetime | ";
}
my $melink = '';
my $enemy = '';
$ev = 'KS' if ($ev eq 'K' and defined $p1 and $p1 eq $player);
if (defined $me and $me ne $player) {
my $sname_me = safe_name($me);
$melink = "$me ";
}
if (defined $p1) {
my $sname_en = safe_name($p1);
$enemy = "$p1";
}
my $desc = eval '"' . $desc{$ev} . '"';
my $hexcol = sprintf "%.6lx", $colour{$ev};
$html .= "$desc |
\n";
if (exists ${$coords[$time]}{$player}) {
my ($x, $y, $z) = split / /, ${$coords[$time]}{$player};
square($im, $x, $y, 8, $colour{$ev});
} elsif (exists ${$coords[$time - 1]}{$player}) {
my ($x, $y, $z) = split / /, ${$coords[$time - 1]}{$player};
square($im, $x, $y, 8, $colour{$ev});
}
$prev_time = $time;
}
$html .= "
\n";
return $html;
}
####################################################################################################
sub plot_route {
my $image = shift;
my $name = shift;
my $t0 = shift;
my $t1 = shift;
my %near = ();
for (my $t = $t0; $t != $t1; $t++) {
my $s = ($t % 10) == 0 ? 2 : 1;
if (exists ${$coords[$t]}{$name}) {
my ($x0, $y0, $z0) = split / /, ${$coords[$t]}{$name};
my $near;
foreach $near (keys %near) {
if (exists ${$coords[$t]}{$near}) {
my ($xn, $yn, $zn) = split / /, ${$coords[$t]}{$near};
delete $near{$near} if $near1 < distance($x0, $y0, $z0,
$xn, $yn, $zn);
} else {
delete $near{$near};
}
}
foreach $near (keys %player) {
next if $near eq $name;
next if exists $near{$near};
if (exists ${$coords[$t]}{$near}) {
my ($xn, $yn, $zn) = split / /, ${$coords[$t]}{$near};
if (distance($x0, $y0, $z0, $xn, $yn, $zn) < $near0) {
$near{$near} = 1;
line($image, $x0, $y0, $xn, $yn, 0x444444);
text($image, $xn, $yn, $near);
}
}
}
foreach $near (keys %near) {
my ($xn0, $yn0, $zn0) = split / /, ${$coords[$t]}{$near};
my $colour = $team{$name} == $team{$near} ? 0x00ff00 : 0xff0000;
line($image, $x0, $y0, $xn0, $yn0, 0x444444) if $s == 2;
if (exists ${$coords[$t + 1]}{$near}) {
my ($xn1, $yn1, $zn1) = split / /,
${$coords[$t + 1]}{$near};
line($image, $xn0, $yn0, $xn1, $yn1, $colour);
}
square($image, $xn0, $yn0, $s, $colour);
}
if (exists ${$coords[$t + 1]}{$name}) {
my ($x1, $y1, $z1) = split / /, ${$coords[$t + 1]}{$name};
line($image, $x0, $y0, $x1, $y1, $colour_me);
line($imall, $x0, $y0, $x1, $y1, $teamcol[$team{$name}]);
}
square($image, $x0, $y0, $s, $colour_me);
text($image, $x0, $y0, nice_time($t)) if $s == 2;
}
}
}
####################################################################################################
sub write_vehicle_report {
my $name = shift;
my $team = shift;
my $sname = safe_name($name);
my $html = create_html($team_name[$team] . ' ' . $veh_name{$name} . 's');
$html .= 'Match summary.
';
my $run;
for ($run = 1; $run != $vehicle{"$team $name"} + 1; $run++) {
my @ev = grep {$$_[2] eq "$team $name $run"} @events;
my $time0 = ${$ev[0]}[0];
my $time1 = ${$ev[-1]}[1] eq 'W' ? ${$ev[-1]}[0] : $end_time;
my $nicetime = nice_time($time0);
my $nicedtime = nice_time($time1);
$html .= <$veh_name{$name} $run ($nicetime - $nicedtime)
END
$html .= player_life("$team $name $run", "${team}_${sname}_$run.png",
$time0, $time1);
$html .= '';
}
save_html("${team}_$sname.html", $html);
}
####################################################################################################
sub vehicle_link {
my $s = shift;
my ($team, $name, $run) = split / /, $s;
return "$team_name[$team] $veh_name{$name} $run";
}
####################################################################################################
sub write_flag_report {
my $team = shift;
my $html = create_html($team_name[$team] . ' flag');
my @grab;
my @return;
my @fevs = grep {($$_[1] eq 'F+' or $$_[1] eq 'F-' or $$_[1] eq 'C' or $$_[1] eq 'R') and
$$_[3] == $team} @events;
my $event;
my $at_stand = 1;
foreach $event (@fevs) {
if ($at_stand and $$event[1] eq 'F+') {
push @grab, $$event[0];
$at_stand = 0;
} elsif (!$at_stand and ($$event[1] eq 'C' or $$event[1] eq 'R')) {
push @return, $$event[0];
$at_stand = 1;
}
}
for (my $grab = 0; $grab != @grab; $grab++) {
my $nicetime = nice_time($grab[$grab]);
my $nicedtime = nice_time($return[$grab]);
my $grab1 = $grab + 1;
$html .= <Grab $grab1 ($nicetime - $nicedtime)
END
my $im = create_image();
plot_route($im, "$team flag", $grab[$grab], $return[$grab] - 1);
my @fevs;
my $carrier = '';
foreach $event (grep {$grab[$grab] <= $$_[0] and $$_[0] <= $return[$grab]} @events) {
if ($$event[1] eq 'F+' and $$event[3] == $team) {
$carrier = $$event[2];
} elsif (($$event[1] eq 'F-' or $$event[1] eq 'C' or $$event[1] eq 'R')
and $$event[3] == $team) {
$carrier = '';
} elsif ($$event[1] eq 'K' and $$event[2] eq $carrier) {
;
} else {
next;
}
push @fevs, $event;
}
$html .= write_events("$team flag", \@fevs, $im);
$html .= '';
save_image($im, "${team}_flag_$grab1.png");
}
save_html("${team}_flag.html", $html);
}
####################################################################################################
sub write_summary_report {
my $html = create_html("Match Summary");
my $name;
my $nicetime = nice_time($end_time);
my $i;
$html .= <
Playing time $nicetime
Final scores |
END
for ($i = 1; $i != @team_name; $i++) {
$html .= "${team_name[$i]} | ${final_score[$i]} |
\n";
}
$html .= "
\n";
my $team;
foreach $team (keys %flag) {
$html .= "${team_name[$team]} flag
\n";
}
$html .= <Players and Vehicles
Player | Team | Score | Deaths | Kills | Grabs | Caps | Returns |
END
sub lookup {
my $hash = shift;
my $name = shift;
my $max = 0; grep { $max = $_ if $max < $_ } values %$hash;
my $n = exists $$hash{$name} ? $$hash{$name} : 0;
return $n == $max ? "$n | " : "$n | ";
}
foreach $name (sort keys %player) {
my $sname = safe_name($name);
$html .= "$name | " .
"$team_name[$team{$name}] | " .
lookup(\%score, $name) .
lookup(\%deaths, $name) .
lookup(\%kills, $name) .
lookup(\%grabs, $name) .
lookup(\%caps, $name) .
lookup(\%returns, $name) .
"
\n";
}
$html .= "
\n";
if (keys %vehicle) {
$html .= "Vehicles | Total used |
\n";
foreach $vehicle (sort keys %vehicle) {
my ($team, $name) = split / /, $vehicle, 2;
my $sname = safe_name($name);
$html .= <$team_name[$team] $veh_name{$name}s | ${vehicle{"$team $name"}} |
END
}
$html .= "
\n";
}
save_html('index.html', $html);
save_image($imall, 'Overview.png');
}
####################################################################################################
sub create_image {
my $image = GD::Image->newTrueColor($width, $height);
my ($lm, $g);
foreach $lm (@landmarks) {
my ($z, $type, $team, $x, $y) = split / /, $lm;
icon($image, $icon{$type}, $x, $y);
}
foreach $g (@waypoints) {
my ($team, $x, $y, $z, $desc) = split / /, $g, 5;
text($image, $x, $y, $desc);
}
return $image;
}
sub save_image {
my $image = shift;
my $file = shift;
my $png = $image->png;
open PNG, ">$outdir/$file" or die "failed to open $outdir/$file: $!";
binmode PNG;
print PNG $png;
close PNG;
my $max = $width < $height ? $height : $width;
my $thumb = GD::Image->newTrueColor($thumbsize * $width / $max,
$thumbsize * $height / $max);
$thumb->copyResampled($image, 0, 0, 0, 0, $thumbsize * $width / $max,
$thumbsize * $height / $max, $width, $height);
$png = $thumb->png;
open PNG, ">$outdir/s$file" or die "failed to open $outdir/s$file: $!";
binmode PNG;
print PNG $png;
close PNG;
}
sub square {
my $image = shift;
return unless defined $image;
my $x = shift;
my $y = shift;
my $s = shift;
my $colour = shift;
$image->filledRectangle($x - $s, $y - $s, $x + $s, $y + $s, $colour);
}
sub line {
my $image = shift;
return unless defined $image;
my $x0 = shift;
my $y0 = shift;
my $x1 = shift;
my $y1 = shift;
my $colour = shift;
$image->line($x0, $y0, $x1, $y1, $colour);
}
sub load_image {
my $file = shift;
open PNG, $file or die "failed to open $file: $!";
my $im = GD::Image->newFromPng(\*PNG) or die "PNG load of $file failed";
close PNG;
$im->transparent(0);
return $im;
}
sub icon {
my $image = shift;
my $icon = shift;
my $x = shift;
my $y = shift;
$image->setBrush($icon);
$image->setPixel($x, $y, gdBrushed);
}
sub text {
my $image = shift;
my $x = shift;
my $y = shift;
my $text = shift;
$image->string(gdSmallFont, $x, $y, $text, 0xffffff);
}
####################################################################################################
sub create_html {
my $title = shift;
my $html = <
$title ($mission_name / $mission_type_name)
$title ($mission_name / $mission_type_name)
END
return $html;
}
sub save_html {
my $file = shift;
my $html = shift;
$html .= "\n";
open HTML, ">$outdir/$file" or die "failed to open $outdir/$file: $!";
print HTML $html;
close HTML;
}
####################################################################################################
sub safe_name {
my $s = shift;
$s =~ tr/[a-zA-Z0-9]/_/cs;
return $s;
}
sub nice_time {
my $time = shift;
my $secs = $time % 60;
return int($time / 60) . ':' . (($secs < 10) ? "0$secs" : $secs);
}
sub distance {
return sqrt (($_[0] - $_[3]) ** 2 + ($_[1] - $_[4]) ** 2 + ($_[2] - $_[5]) ** 2);
}
####################################################################################################