Subversion Repositories DevTools

#!/usr/local/bin/perl

########################################################################

# Copyright (C) 1998-2012 Vix Technology, All rights reserved

#

# Module name   : update_jats.pl

# Module type   : Makefile system

# Compiler(s)   : Perl

# Environment(s): None

#

# Description   :

#

# Task to be run by CRON enery night

# to update JATS version iff a new one has been marked to be processed

#

# Mark done by:

#   Creating a link to jats2_new

#

#......................................................................#

require 5.008_002;

use strict;

use warnings;

my $DPKG_ARCHIVE = '/devl/dpkg_archive';

my $TDIR;

my $markfile;

my $currentLink;

my $target;

$markfile = "$DPKG_ARCHIVE/core_devl/jats2_new";

if ( -l $markfile )

{

    $TDIR = readlink $markfile;

#    print "Link: $markfile,$TDIR\n";

    die ("update_jats: Marklink is empty\n") unless( $TDIR ) ;

    die ("update_jats: Markfile contains a '/' character\n") if ( $TDIR =~ m~/~ );

    $target = "$DPKG_ARCHIVE/core_devl/$TDIR";

    $currentLink = "$DPKG_ARCHIVE/core_devl/jats2_current";

    if ( -d $target )

    {

        unlink ( $currentLink ) if ( -l $currentLink );

        die ("update_jats: Cannot unlink $currentLink\n" ) if -e $currentLink;

        symlink ($TDIR, $currentLink) or die ("update_jats: Cannot create symlink $TDIR $currentLink\n");

        unlink $markfile;

        print "update_jats: JATS Symlink updated to $TDIR\n";

    }

    else

    {

        die "update_jats: Bad link: $target\n";

    }

}