2 # ========================================================================
3 # @(#) $Id: set_prod_link.pl,v 1.1.2.1 1999/11/02 21:29:56 oliva Exp $
4 # ------------------------------------------------------------------------
5 # $Source: /cvsroot/amanda/amanda/contrib/set_prod_link.pl,v $
6 # ------------------------------------------------------------------------
9 # When installing AMANDA with the option --with-suffix you can use this
10 # script to set the a symbolic link from the productive name of the
11 # files to this special version.
12 # This way you can switch on the fly, from one version to an other.
14 # Actually I would advice to use the option --prefix and install the
15 # the whole software in different paths.
17 # But if you want for example install a new version in the same
18 # directory you can use it.
20 # -----------------------------------------------------------------------
21 # Author: Ricardo Malta, rmalta@bigfoot.com
22 # -----------------------------------------------------------------------
25 # $Log: set_prod_link.pl,v $
26 # Revision 1.1.2.1 1999/11/02 21:29:56 oliva
27 # * contrib/set_prod_link.pl: Create the links for a configuration
31 # ========================================================================
35 if ($ARGV[0] ne "doit") {
39 Go to the directory where you have compiled AMANDA.
40 Call this programm with the parameter \"doit\".
46 # ------------------------------------------------------------------------
47 # Open the Makefile and search for the entries we need for doing the job.
48 # ------------------------------------------------------------------------
49 open(FD,"<Makefile") || die "Cannot open Makefile: $!\n";
51 $suffix = (split(/\s*,\s*/))[2] if /^\s*transform\s*=/;
52 $rootdir = (split(/=\s*/))[1] if /^\s*prefix\s*=/;
53 last if $suffix && $suffix;
57 die "Cannot find line containing \"transform =\" in Makefile.\n" if (!$suffix);
58 die "Cannot find line containing \"prefix =\" in Makefile.\n" if (!$rootdir);
60 # ------------------------------------------------------------------------
62 # ------------------------------------------------------------------------
63 print "Starting setting the links to productive version:
66 Confirm with <yes>: ";
67 chomp($dummy = <STDIN>);
68 die "\nAborting ...\n" if ($dummy ne "yes");
71 # ------------------------------------------------------------------------
73 # ------------------------------------------------------------------------
74 $CUR_DIR = "$rootdir";
75 Make_Prod_Link($rootdir,$suffix) || die "Cannot create links under $rootdir\n";
77 # ------------------------------------------------------------------------
78 # We are done ... get out of here
79 # ------------------------------------------------------------------------
82 # ************************************************************************
84 # ************************************************************************
86 # ------------------------------------------------------------------------
87 # Scan the directory for AMANDA-Entries
88 # ------------------------------------------------------------------------
90 my ($prefix,$suffix) = @_;
92 # --------------------------------------------------
94 # --------------------------------------------------
95 my $cur_dir = $CUR_DIR;
96 print "-> $CUR_DIR\n";
98 # --------------------------------------------------
99 # Change to given directory and read the inodes
100 # --------------------------------------------------
101 chdir $prefix or do { warn "$CUR_DIR: $!\n";
104 opendir(DIR,".") or do { warn "$CUR_DIR: $!\n";
107 my @inodes = grep(!/^\.$|^\.\.$/,readdir(DIR));
109 # --------------------------------------------------
110 # For each inode check if it is a directory or an
112 # --------------------------------------------------
113 foreach my $inode (@inodes) {
115 # ----------------------------------
116 # For a directory -> recursion
117 # ----------------------------------
118 $CUR_DIR .= "/".$inode;
119 Make_Prod_Link($inode,$suffix) or return;
120 chdir ".." or do { warn "Cannot get back from $inode: $!\n";
125 # -----------------------------------------------------
126 # Create a symbolic link unless the file already exists
127 # -----------------------------------------------------
128 if (substr($inode,-length($suffix)) eq $suffix) {
129 my $prog_name = substr($inode,0,-length($suffix));
130 if (-e $prog_name && ! -l $prog_name) {
131 warn "Unexpected real file found: $CUR_DIR/$prog_name\n";
135 symlink($inode,$prog_name) or do { warn "Cannot create symbolical link for $prog_name -> $inode: $!\n";
138 print " $prog_name -> $inode\n";
140 print "let it untouched: $inode\n" if $debug;