#!/usr/local/bin/perl

# must have's!

use strict;

use warnings;

use CGI::Carp qw(fatalsToBrowser);

use DBI;

use URI::Escape;

use lib "/var/www/html/Pm";

use Html qw(pre_html_header);

print pre_html_header({type => "text/javascript"});

print <<END;

(

  function(i,s,o,g,r,a,m) {

    i['GoogleAnalyticsObject'] = r;

    i[r] = i[r] || function() { (i[r].q = i[r].q || []).push(arguments); }, i[r].l = 1 * new Date();

    a = s.createElement(o),

    m = s.getElementsByTagName(o)[0];

    a.async = 1;

    a.src = g;

    m.parentNode.insertBefore(a, m)

  }

)(window,document,'script','https://www.google-analytics.com/analytics.js','ga');

ga('create', 'UA-106048547-1', 'auto');

ga('send', 'pageview');

END

############################################################

exit 1;