#!/usr/bin/perl -w

# $HeadURL: http://svn.mzet.net/psist/psist $
# $Author: zet $
# $Date: 2006-08-24 15:39:25 +0200 (Thu, 24 Aug 2006) $
# $Revision: 12 $

use strict;
use Psist;
use Getopt::Long;
use Env;

sub get_cmdline_options
{
  my %cfg = (
    profile => $ENV{HOME}.'/.psi/profiles/default',
    outfile => 'out.html'
  );
  
  my $usage = <<END_USAGE;
Usage: psist [-p profile] [-o outfile]

-p --profile=xxx    : Set profile directory
-o --outfile=xxx    : Name of HTML file to create

Example:
 \$ psist -p ~/.psi/profiles/default -o stats.html
END_USAGE

  my $help;

  if(GetOptions('profile=s'   => \$cfg{profile},
                'outfile=s'   => \$cfg{outfile},
                'silent'      => \$cfg{silent},
                'help'        => \$help) == 0 or $help) {
    die($usage);
  }

  return %cfg;
}

sub main
{
  my %cfg = &get_cmdline_options();
  
  my $psist = Psist->new(profile  => $cfg{profile},
                         outfile  => $cfg{outfile},
                         silent   => $cfg{silent},
                         version  => '0.2');
  $psist->run();
}

&main();