#!/usr/bin/perl

use strict;
use Cwd;

checkout();

sub checkout
{
    #getting the tag name
    my $tagname = @ARGV[0];
    
    my $installdir = cwd;
    print "Installing TriDAS/trigger in $installdir \n";
#print("-------------Checking out Trigger Supervisor Framework from the repository---------------\n");
    if ($tagname eq "")
    {
        #get the head
        cvsCheckout("TriDAS/trigger/dtsc/Makefile");
        cvsCheckout("TriDAS/trigger/dtsc/general-dtsc.sh");
        cvsCheckout("TriDAS/trigger/dtsc/killdtsc.sh");
        cvsCheckout("TriDAS/trigger/dtsc/setup");
        cvsCheckout("TriDAS/trigger/dtsc/ts");
        cvsCheckout("TriDAS/trigger/dtsc/toolbox");
 }
    else
    {
        #get the cvs files from the tag
        cvsCheckout("-r $tagname TriDAS/trigger/dtsc/Makefile");
        cvsCheckout("-r $tagname TriDAS/trigger/dtsc/general-dtsc.sh");
        cvsCheckout("-r $tagname TriDAS/trigger/dtsc/killdtsc.sh");
        cvsCheckout("-r $tagname TriDAS/trigger/dtsc/setup");
        cvsCheckout("-r $tagname TriDAS/trigger/dtsc/ts");
        cvsCheckout("-r $tagname TriDAS/trigger/dtsc/toolbox");
   }
}

sub cvsCheckout
{
    my $CVSROOT=$ENV{"CVSROOT"};
    print "CVSROOT $CVSROOT\n";
    if (! $CVSROOT ){
        $CVSROOT=":kserver:isscvs.cern.ch:/local/reps/tridas";
    }

    my ($dir) = @_;

    system("cvs -d $CVSROOT co $dir");
    
    if ($? != 0)
    {
        print "Error while trying to CVS checkout $dir\n";
        print "Is the CVSROOT variable available?\n";
        exit(10);
    }
}