#!/usr/local/bin/perl -w
 use strict;
 use DBI;
 use Compress::Zlib;
 use Socket;
 use Sys::Hostname;
 
 my $who = `who -m`;
 my $symname = (split(" ",$who))[-1];
 $symname =~ tr/\(\)//d; ## remove parens
 my $addr = inet_ntoa(scalar gethostbyname($symname || 'localhost'));
 
 my ($fctr, $data, $dbh);
 my $dsn = "DBI:ODBC:HelpDesk";
 my $proxy = "hostname=$addr;port=3333";
 my $compression = "compression=gzip";
 
 unlink 'dbitrace.log' if (-e 'dbitrace.log');
 DBI->trace(9, 'dbitrace.log');  ## turn level 9 trace on
 $dbh = DBI->connect("dbi:Proxy:$proxy;$compression;dsn=$dsn",'','');
 DBI->trace(0);  ## turn trace off