sub link_color {
  my ($file,$style) = @_;
  my $color = "000";

  my %colors;
  $colors{pl}    = "f00";
  $colors{pm}    = "900";
  $colors{html}  = "00f";
  $colors{shtml} = "009";
  $colors{svg}   = "003";
  $colors{css}   = "060";
  $colors{csv}   = "0f0";
  $colors{txt}   = "090";
  $colors{zip}   = "990";
  $colors{js}    = "099";
  $colors{pdf}   = "c33";
  $colors{wav}   = "939";
  $colors{xls}   = "696";
  $colors{doc}   = "669";
  $colors{pub}   = "699";
  $colors{$_}    = "909" for (qw(gif ico jpg png bmp));

  my ($extension,$name) = reverse split(/\./,$file);
  $color = $colors{$extension} ? $colors{$extension} : $color;

  return $style ? qq( style="color:#$color") : qq(color:#$color);
}