#!/usr/bin/perl

use strict;
use warnings;

my $home_dir=$ENV{'HOME'};
my $bin_dir="$home_dir/bin";
my $opt_dir="$home_dir/opt";

my $date=`date -I`;
chomp $date;
my $debug=0;

&run("$bin_dir/refresh_profiles > /dev/null");
&run("$bin_dir/compose_queries");
&run("killall parse_sigg");
my $s="export PERL5LIB=\$HOME/usr/share/perl;";
$s.=" nohup $bin_dir/parse_sigg";
$s.=" > $opt_dir/parse_sigg_$date.log";
$s.=" 2> $opt_dir/parse_sigg_$date.error &";
&run($s);

sub run {
  my $s=shift;
  if($debug) {
    print "$s\n";
  }
  system($s);
}