Download

package PrepareDPSS;
use strict;
use English;
use Carp;
use vars
  qw(@ISA $VERSION $VERSION $name $author $date $version @instList $numberOfStreams);
@ISA = qw(Module);
use ModuleResources;

# Declare identity, version, author, date, etc.
$name=__PACKAGE__;
$VERSION="1.00";
$version=$VERSION;
$author="Anja Schroeder";
$date="2006-03-09";

#
# ChangeLog
# =========
#
# Version 1.00 - 2006-03-09 (ACS)
# ------------
#
# + First production version.
#

# Declare list of instruments this module is interested in@instList=qw(all);
@instList=qw(all);

# Number of streams
sub numberOfStreams {
    return 1;
}

# Rules method
sub evaluateRules {
    return unless allComplete(module => 'Finalize');
    start();
}

# Action method
sub performAction {
    info("Module version number: $version");

# copy necessary files into screening diretory

	my @list = findFile( type => 'pdf' );
	push @list , findFile ( type => 'png' );
	push @list , findFile ( type => 'png' );
	push @list , findFile ( type => 'png' );

	foreach my $f (@list)
	{
		next unless fileExists $f;
		copyFile( source => $f , dest => 'tmp/screening/' );
	}
	copy_screening_files()
		or return exception()
	;


    doCommand(
       'copy_files_pm'
    )
    or return exception();

# ... unzip here *FTZ in tmp/screening



    
# run all screening scripts to make necessary screening files

    doCommand(
       'prep_screen_pm'
    )
    or return exception();

# tar up all screening files
    
    return success();
}

1;