dded error checking to scripts
authorHerb Lewis <herb@samba.org>
Mon, 1 Dec 1997 14:50:52 +0000 (14:50 +0000)
committerHerb Lewis <herb@samba.org>
Mon, 1 Dec 1997 14:50:52 +0000 (14:50 +0000)
packaging/SGI/idb.pl
packaging/SGI/makefile.pl
packaging/SGI/mkrelease.sh
packaging/SGI/spec.pl

index 4e32bdb5267089b016a2d4dc816f9a9942217b31..c4a03c817bfcd7617baf2f67c2692577faf462e9 100755 (executable)
@@ -10,7 +10,7 @@ chdir '../../';
 chdir $curdir;
 
 # We don't want the files listed in .cvsignore in the source tree
-open(IGNORES,"../../source/.cvsignore");
+open(IGNORES,"../../source/.cvsignore") || die "Unable to open .cvsignore file\n";
 while (<IGNORES>) {
   chop;
   $ignores{$_}++;
@@ -18,7 +18,7 @@ while (<IGNORES>) {
 close IGNORES;
 
 # get the names of all the binary files to be installed
-open(MAKEFILE,"Makefile");
+open(MAKEFILE,"Makefile") || die "Unable to open Makefile\n";
 @makefile = <MAKEFILE>;
 @sprogs = grep(/^SPROGS /,@makefile);
 @progs1 = grep(/^PROGS1 /,@makefile);
@@ -71,7 +71,7 @@ if (@codepage) {
 # release
 @allfiles = grep(!/^.*\.o$/ & !/^packaging\/SGI\/bins/ & !/^packaging\/SGI\/catman/ & !/^packaging\/SGI\/html/ & !/^packaging\/SGI\/codepage/, @allfiles);
 
-open(IDB,">samba.idb");
+open(IDB,">samba.idb") || die "Unable to open samba.idb for output\n";
 
 print IDB "f 0644 root sys etc/config/samba packaging/SGI/samba.config samba.sw.base config(update)\n";
 print IDB "f 0755 root sys etc/init.d/samba packaging/SGI/samba.rc samba.sw.base\n";
index 544fb7e32d5fd5025ca4c976cff1c15caf804333..bd34299ac72dccc288c091be36e9bdb93ed079fc 100755 (executable)
@@ -12,8 +12,8 @@ else {
   $OSver = $ARGV[0];
 }
 
-open(MAKEIN,"../../source/Makefile");
-open(MAKEOUT,">Makefile");
+open(MAKEIN,"../../source/Makefile") || die "Unable to open source Makefile\n";
+open(MAKEOUT,">Makefile") || die "Unable to open Makefile for output\n";
 while (<MAKEIN>) {
     if (/^BASEDIR =/) {
        print MAKEOUT "BASEDIR = /usr/samba\n";
index fed7a5dc42abd6a368a13e3403d7d7f566b321e0..fcf247d9b4fdeb2c931d717e757919624862035f 100755 (executable)
@@ -8,21 +8,50 @@
 #
 echo Making manual pages
 ./mkman
+errstat=$?
+if [ $errstat -ne 0 ]; then
+  echo "Error $errstat making manual pages\n";
+  exit $errstat;
+fi
 
 # build the sources
 #
 echo Making binaries
 ./makefile.pl $1               # create the Makefile for the specified OS ver
+errstat=$?
+if [ $errstat -ne 0 ]; then
+  echo "Error $errstat creating Makefile\n";
+  exit $errstat;
+fi
+
 cd ../../source
 # make -f ../packaging/SGI/Makefile clean
 make -f ../packaging/SGI/Makefile all
+errstat=$?
+if [ $errstat -ne 0 ]; then
+  echo "Error $errstat building sources\n";
+  exit $errstat;
+fi
+
 cd ../packaging/SGI
 
 # generate the packages
 #
 echo Generating Inst Packages
 ./spec.pl                      # create the samba.spec file
+errstat=$?
+if [ $errstat -ne 0 ]; then
+  echo "Error $errstat creating samba.spec\n";
+  exit $errstat;
+fi
+
 ./idb.pl                       # create the samba.idb file
+errstat=$?
+if [ $errstat -ne 0 ]; then
+  echo "Error $errstat creating samba.idb\n";
+  exit $errstat;
+fi
+
 if [ ! -d bins ]; then
    mkdir bins
 fi
index 93aa8632d98af905a03d17c02acddff089cd53b4..01453fd9235a00b035dc47779785c08740f2cfd6 100755 (executable)
@@ -3,7 +3,7 @@
 # This perl script generates the samba.spec file based on the version
 # information in the version.h file in the source tree
 
-open (VER,'../../source/version.h');
+open (VER,'../../source/version.h') || die "Unable to open version.h\n";
 ($_ = <VER>) =~ s/"//g;
 close (VER);
 @foo = split(' ');
@@ -25,7 +25,7 @@ elsif (/p/) {
 $vernum = sprintf "        version %02d%02d%02d%02d%02d\n",$v1,$v2,$v3,$v4,$v5;
 
 # generate the samba.spec file
-open(SPEC,">samba.spec");
+open(SPEC,">samba.spec") || die "Unable to open samba.spec for output\n";
 print SPEC "product samba\n";
 print SPEC $vername;
 print SPEC "    image sw\n";
@@ -71,6 +71,6 @@ print SPEC "            exp samba.src.samba\n";
 print SPEC "        endsubsys\n";
 print SPEC "    endimage\n";
 print SPEC "endproduct\n";
-close SPEC;
+close SPEC || die "Error on close of samba.spec\n";
 
 print "\nsamba.spec file has been created\n\n";