2 # ========================================================================
3 # @(#) $Id: set_prod_link.pl,v 1.3 2006/05/25 01:47:13 johnfranks 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 # Revision 1.3 2006/05/25 01:47:13 johnfranks
26 # Allow spaces and arbitrary binary characters in file names
27 # and configuration files.
29 # 64-bit / type portability clean code.
31 # Add 'make lint' options to appropriate Makefiles.
33 # Fully lint clean code using Sun's lint, and splint code checkers.
35 # Various bug fixes that have not been pushed.
38 # Modified most of the files...
40 # Revision 1.2 1999/11/02 21:30:10 oliva
41 # * contrib/set_prod_link.pl: Create the links for a configuration
45 # ========================================================================
49 if ($ARGV[0] ne "doit") {
53 Go to the directory where you have compiled AMANDA.
54 Call this programm with the parameter \"doit\".
60 # ------------------------------------------------------------------------
61 # Open the Makefile and search for the entries we need for doing the job.
62 # ------------------------------------------------------------------------
63 open(FD,"<Makefile") || die "Cannot open Makefile: $!\n";
65 $suffix = (split(/\s*,\s*/))[2] if /^\s*transform\s*=/;
66 $rootdir = (split(/=\s*/))[1] if /^\s*prefix\s*=/;
67 last if $suffix && $suffix;
71 die "Cannot find line containing \"transform =\" in Makefile.\n" if (!$suffix);
72 die "Cannot find line containing \"prefix =\" in Makefile.\n" if (!$rootdir);
74 # ------------------------------------------------------------------------
76 # ------------------------------------------------------------------------
77 print "Starting setting the links to productive version:
80 Confirm with <yes>: ";
81 chomp($dummy = <STDIN>);
82 die "\nAborting ...\n" if ($dummy ne "yes");
85 # ------------------------------------------------------------------------
87 # ------------------------------------------------------------------------
88 $CUR_DIR = "$rootdir";
89 Make_Prod_Link($rootdir,$suffix) || die "Cannot create links under $rootdir\n";
91 # ------------------------------------------------------------------------
92 # We are done ... get out of here
93 # ------------------------------------------------------------------------
96 # ************************************************************************
98 # ************************************************************************
100 # ------------------------------------------------------------------------
101 # Scan the directory for AMANDA-Entries
102 # ------------------------------------------------------------------------
104 my ($prefix,$suffix) = @_;
106 # --------------------------------------------------
108 # --------------------------------------------------
109 my $cur_dir = $CUR_DIR;
110 print "-> $CUR_DIR\n";
112 # --------------------------------------------------
113 # Change to given directory and read the inodes
114 # --------------------------------------------------
115 chdir $prefix or do { warn "$CUR_DIR: $!\n";
118 opendir(DIR,".") or do { warn "$CUR_DIR: $!\n";
121 my @inodes = grep(!/^\.$|^\.\.$/,readdir(DIR));
123 # --------------------------------------------------
124 # For each inode check if it is a directory or an
126 # --------------------------------------------------
127 foreach my $inode (@inodes) {
129 # ----------------------------------
130 # For a directory -> recursion
131 # ----------------------------------
132 $CUR_DIR .= "/".$inode;
133 Make_Prod_Link($inode,$suffix) or return;
134 chdir ".." or do { warn "Cannot get back from $inode: $!\n";
139 # -----------------------------------------------------
140 # Create a symbolic link unless the file already exists
141 # -----------------------------------------------------
142 if (substr($inode,-length($suffix)) eq $suffix) {
143 my $prog_name = substr($inode,0,-length($suffix));
144 if (-e $prog_name && ! -l $prog_name) {
145 warn "Unexpected real file found: $CUR_DIR/$prog_name\n";
149 symlink($inode,$prog_name) or do { warn "Cannot create symbolical link for $prog_name -> $inode: $!\n";
152 print " $prog_name -> $inode\n";
154 print "let it untouched: $inode\n" if $debug;