root/Trunk/Scripts/AcousticModel_scripts/AcousticModel/Nightly.pm

#!/usr/bin/perl -w
####################################################################
###
### script name: Nightly.pm
### modified by: Ken MacLean
### email: contact@voxforge.org
### Date: 2007.04.25
### Version: 0.1
###             
### Copyright (C) 2007 Ken MacLean
###
### This program is free software; you can redistribute it and/or
### modify it under the terms of the GNU General Public License
### as published by the Free Software Foundation; either version 3
### of the License, or (at your option) any later version.
###
### This program is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
### GNU General Public License for more details.
###
### Change History:
####################################################################
package Nightly;
use strict;

my $command;
####################################################################
# Subroutines
####################################################################
sub CreateDir {
        my ($parms, $Nightly_subdir) = @_;
                my $debug = $$parms{"debug"};
                my $Nightly_dirname = $$parms{"Nightly_dirname"};

        # cleanup previous run - usually there was some sort of error in previous run
        $command = ("rm -rf $Nightly_dirname"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        # notes:if the target directory does not exist (i.e. AcousticModel-2007-1-2), then 
        # "cp -r $QSdir $Nightly_dir/$Nightly_dirname" creates the "AcousticModel-2007-1-2" directory and only copies "Linux" and "Windows" directories into it
        # if the target directory exists (i.e. AcousticModel-2007-1-2), then 
        # "cp -r $QSdir $Nightly_dir/$Nightly_dirname" creates the "QuickStart" directory (and its subdirectories "Windows" and "Linux") inside the "AcousticModel-2007-1-2" directory
        # therefore need to make the NightlyDir before copying Quickstart to it ...
        $command = ("mkdir $Nightly_dirname"); print "command:$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        return 1;
}
        
sub Process {
        my ($parms, $Nightly_subdir) = @_;
                my $debug = $$parms{"debug"};   
                my $Nightly_dirname = $$parms{"Nightly_dirname"};
                my $MirroringScripts_dir = $$parms{"MirroringScripts_dir"};     
                my $HTKdir = $$parms{"HTK_dir"};                
        print "creating: $Nightly_dirname\n";
        $command = ("mkdir -p $Nightly_dirname/$Nightly_subdir $Nightly_dirname/$Nightly_subdir/etc"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $MirroringScripts_dir/LICENSE $Nightly_dirname/$Nightly_subdir"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $MirroringScripts_dir/etc/GPL_License $Nightly_dirname/$Nightly_subdir/etc"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $HTKdir/input_files/config $Nightly_dirname/$Nightly_subdir"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $HTKdir/interim_files/dict $Nightly_dirname/$Nightly_subdir"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $HTKdir/interim_files/hmm15/hmmdefs $Nightly_dirname/$Nightly_subdir"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $HTKdir/interim_files/hmm15/macros $Nightly_dirname/$Nightly_subdir"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $HTKdir/interim_files/stats $Nightly_dirname/$Nightly_subdir"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $HTKdir/interim_files/tiedlist $Nightly_dirname/$Nightly_subdir"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $HTKdir/input_files/wav_config $Nightly_dirname/$Nightly_subdir"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        $command = ("cp $HTKdir/interim_files/master_prompts $Nightly_dirname/$Nightly_subdir"); print "$command\n" if $debug; system($command) == 0 or die "system $command failed: $?";  
        return 1;
}
1;