#!/usr/local/bin/perl

use strict;
use File::Copy;

my $goog = "./googletrackingcode";

open(GOOG, "$goog") or die "Couldn't open $goog\n";
my @trackingcode = <GOOG>;
close(GOOG);

#print @trackingcode;

my $file = shift;
if (not -e $file or $file !~ /\.html$/)
{ print "Bad file $file\n";  exit 1; }
my $tempfile = "/var/tmp/gswitch$$";

open(IN, "$file") or die "Couldn't open $file\n";
open(OUT, "> $tempfile") or die "Couldn't open $tempfile\n";
while(my $line = <IN>)
{
  if ($line =~ /<\/body/i)
  { print OUT @trackingcode; }
  print OUT $line;
}
close(IN);
close(OUT);

#print "wrote to $tempfile\n";

move "$tempfile", "$file" or die "Failed move $tempfile to $file: $!\n";