56 lines
1.4 KiB
Perl
Executable File
56 lines
1.4 KiB
Perl
Executable File
#! /usr/local/bin/perl
|
|
|
|
eval "exec /usr/local/bin/perl -S $0 $*"
|
|
if $running_under_some_shell;
|
|
|
|
###############################################################################
|
|
#
|
|
# File: mkPreviousLink
|
|
# RCS: $XConsortium: mkPreviousLink /main/3 1995/10/30 13:44:16 rswiston $
|
|
# Author: John Herberg
|
|
# Created: 4/13/94
|
|
# Language: perl
|
|
# Package:
|
|
# Status
|
|
#
|
|
# (c) Copyright 1994, Hewlett-Packard, all rights reserved.
|
|
#
|
|
# Usage: mkPreviousLink <directory>
|
|
#
|
|
# Description: Copies latest link in directory to previous.
|
|
#
|
|
###############################################################################
|
|
|
|
|
|
###############################################################################
|
|
# printUsage - print sytax of script and die
|
|
###############################################################################
|
|
|
|
sub printUsage
|
|
{
|
|
die "Usage: mkPreviousLink <binstallpath>\n";
|
|
}
|
|
|
|
|
|
###
|
|
### Start main
|
|
###
|
|
|
|
&printUsage() if ((@ARGV != 1) || ($ARGV[0] =~ /^-/o));
|
|
|
|
$tree=$ARGV[0];
|
|
$_ = "$tree/latest";
|
|
|
|
### Resolve link
|
|
|
|
( -l ) || die "*** Error: $_ is not a symbolic link\n";
|
|
defined($ldest = readlink) || die "*** Error: Failed to resolve link, $_ $ldest\n";
|
|
|
|
### Create "previous" link
|
|
|
|
chdir($tree) || die "*** Error: Failed to change directory to $tree\n";
|
|
unlink("previous");
|
|
symlink($ldest, "previous") ||
|
|
die "*** Error: Could not create link, $tree/previous -> $ldest\n";
|
|
|