home *** CD-ROM | disk | FTP | other *** search
- :
- #
- # $Header: forms30.ver.pp,v 6.16 90/03/01 15:39:33 eho Exp $ forms.ver.pp
- #
- #
- # forms30.verify
- #
- # This script does the following to verify that the SQL*Forms product has been
- # installed successfully:
- #
- # - checks for the presence of all files in the FORMS30.DIST list.
- # - checks that 7 SQL*Forms executables are linked together.
- # - checks that 2 runform executables are linked together.
- # - checks banner of the SQL*Forms executable invoked as convert, generate,
- # and runform
- # - checks for existence of .msb files.
- # - checks for successful installation of tables, synonyms, and views.
- # - checks for existence of genxtb table for scott/tiger.
- # - makes sure that user exits link.
- # - checks basic execution of SQL*Forms Convert on forms30/demo/order.inp.
- # - checks basic execution of SQL*Forms Generate on forms30/demo/order.inp.
- # - runs fdemobld for scott/tiger to check sample table build.
- # - runs fdemodrop for scott/tiger to check sample table drop.
-
- # (This is just a short test to verify that SQL*Forms has been properly
- # installed by the install process. It is not for product demonstration
- # or QA.)
- #
- # The script is assumed itself to be in ?/forms30/install
- # All output of this automated process will be recorded in
- # ?/forms30/install/forms30_ver.out
- #
-
- NETLIBNAME="nsl_s"
- PHYS_BLK_SIZE=2048
- VNDR_NETLIBS="-lnsl_s "
- CHOWN=/bin/chown
- MAKE=make
- ORACLE_LPPROG="/usr/bin/lp"
- ORACLE_PAGER="/usr/bin/more"
- ORACLE_LPSTAT="/usr/bin/lpstat"
-
- #
- # Initialize variables used in installation script.
- #
- PRODUCT=FORMS30
- product=forms30
- MKTG_NAME=SQL*Forms30
-
- #
- # Setup the environment variables for the verification script.
- #
- . $ORACLE_HOME/install/setup.ver
-
- #
- ## 1. Check for presence of all files in DIST list.
- #
- echo $N ".$C" #Wait message
- echo " Checking for the presence of all files in DIST list (silent if all
- present) ...
-
- " >> $OUTPUT
-
- cd $ORACLE_HOME
- if [ ! -r forms30/install/FORMS30.DIST ]; then
- echo " forms30/install/FORMS30.DIST not found" >> $OUTPUT
- else
- for FILE in `cat $ORACLE_HOME/forms30/install/FORMS30.DIST`
- do
- ls $FILE 2>&1 | grep "not found" >> $OUTPUT
- done
- fi
-
- echo "
- ###################################################################
- " >> $OUTPUT
-
- #
- ## 2. Check to see that the SQL*Forms executable is properly linked to all
- ## of its identities in $ORACLE_HOME/bin.
- #
- echo $N ".$C" #Wait message
- echo " Checking to see if SQL*Forms executable is properly linked to its
- other identities (silent if links are all in place)...
-
- " >> $OUTPUT
-
- STD_INODE=`ls -li $ORACLE_HOME/bin/sqlforms30 | awk '{print $1}'`
- for OTHERNAME in iac30 iad30 iag30 design30 convert30 generate30
- do
- INODE=`ls -li $ORACLE_HOME/bin/$OTHERNAME | awk '{print $1}'`
- if [ "$INODE" != "$STD_INODE" ]; then
- echo " sqlforms30 is not linked to $OTHERNAME" >> $OUTPUT
- fi
- done
- STD_INODE=`ls -li $ORACLE_HOME/bin/runform30 | awk '{print $1}'`
- INODE=`ls -li $ORACLE_HOME/bin/iap30 | awk '{print $1}'`
- if [ "$INODE" != "$STD_INODE" ]; then
- echo " runform30 is not linked to iap30" >> $OUTPUT
- fi
-
- echo "
- ###################################################################
- " >> $OUTPUT
-
- #
- ## 3. Check banners of Convert, Generate, and Runform.
- #
- echo $N ".$C" #Wait message
- echo " Checking banners of Convert, Generate, and Runform...
-
- " >> $OUTPUT
- convert30 | grep Version >> $OUTPUT
- generate30 | grep Version >> $OUTPUT
- runform30 | grep Version >> $OUTPUT
-
- echo "
- ###################################################################
- " >> $OUTPUT
-
- #
- ## 4. Check for creation of National Language Support files (sqlforms*.msb)
- ## in dbs directory.
- # Not necessary any more.
-
- #
- ## 5. Check for creation of all tables, synonyms, and indexes created by
- ## iadtables.sql, iadindexes.sql, iadviews.sql, iadgrants.sql.
- #
- echo $N ".$C" #Wait message
- echo " Checking for creation of tables, synonyms, and indexes:
-
- Tables - form_app, form_blk, form_fld, form_trigger, form_trg, form_sqltxt,
- form_page, form_map, form_comment, form_reference, form_procedurej
- Synonyms - form_app, form_blk, form_fld, forms_page, form_map, form_sqltxt,
- form_trg, form_trigger, form_comment, form_reference,
- form_procedure
- Indexes - iform_app, iform_appnam, iform_blk, iform_fld, iform_trg,
- iform_trigger, iform_sqltxt, iform_page, iform_map, iform_comment,
- iform_reference, iform_procedure
-
- (all should be found)...
-
- " >> $OUTPUT
-
- sqlplus $SYSTEM_PASS <<! >/dev/null
- set pagesize 60
- column table_name format a15
- column synonym_name format a15
- column index_name format a15
- column column_name format a15
- spool verify
- select table_name from all_tables
- where table_name like 'FORM_%';
- select synonym_name, table_name from all_synonyms
- where synonym_name like 'FORM_%';
- select index_name, table_name from all_indexes
- where index_name like 'IFORM_%';
- select index_name, table_name, column_name from all_ind_columns
- where index_name like 'IFORM_%';
- exit;
- !
- cat verify.lst >> $OUTPUT
- rm -f verify.lst
-
- echo "
- ###################################################################
- " >> $OUTPUT
-
- #
- ## 6. Check the existence of the IAPXTB table for scott/tiger.
- #
- echo $N ".$C" #Wait message
- echo " Checking existence of IAPXTB table for scott/tiger...
-
- " >> $OUTPUT
-
- sqlplus scott/tiger <<! >/dev/null
- spool iapxtb_chk
- describe iapxtb;
- exit;
- !
- cat iapxtb_chk.lst >> $OUTPUT
- rm -f iapxtb_chk.lst
-
- echo "
- ###################################################################
- " >> $OUTPUT
-
- #
- ## 7. Make sure that the user exits link.
- #
- echo $N ".$C" #Wait message
- echo " Making sure that user exits link...
-
- " >> $OUTPUT
-
- cd $ORACLE_HOME/forms30/lib
- if $MAKE -f sqlforms30.mk sqlforms30x >> $OUTPUT 2>&1
- then
- echo " User exits linked successfully!!" >> $OUTPUT
- else
- echo " User exit link test FAILED." >> $OUTPUT
- fi
-
- # Some machines leave the partially linked object around even if make failed.
- rm -f sqlforms30x >/dev/null
-
- echo "
- ###################################################################
- " >> $OUTPUT
-
- #
- ## 8. Check basic execution of SQL*Forms Convert.
- #
- echo $N ".$C" #Wait message
- echo " Testing Insert Option of SQL*Forms Convert (silent if passed)...
-
- " >> $OUTPUT
-
- cd $ORACLE_HOME/forms30/demo
- if convert30 -i order order scott/tiger >/dev/null
- then
- # Make sure SQL*Forms Convert actually inserted the application.
- echo " Verifying presence of application in database
- (this query should return an application named demo owned by SCOTT) ...
-
- " >> $OUTPUT
-
- sqlplus scott/tiger <<! >/dev/null
- spool convert30
- select appowner, appname from form_app
- where appowner = 'SCOTT' and appname = 'order';
- exit;
- !
- cat convert30.lst >> $OUTPUT
- rm -f convert30.lst
- else
- echo "SQL*Forms Convert - Application Insertion Verification Failed" >> $OUTPUT
- fi
-
- echo "
- Testing Delete Option of SQL*Forms Convert (silent if passed)...
-
- " >> $OUTPUT
-
- if convert30 -d order order scott/tiger >/dev/null
- then
- # Make sure SQL*Forms Convert actually deleted the application.
- echo " Verifying presence of application in database
- (this query should return no records) ...
-
- " >> $OUTPUT
-
- sqlplus scott/tiger <<! >/dev/null
- spool convert30
- select appowner, appname from form_app
- where appowner = 'SCOTT' and appname = 'order';
- exit;
- !
- cat convert30.lst >> $OUTPUT
- rm -f convert30.lst
- else
- echo "SQL*Forms Convert - Application Deletion Verification Failed" >> $OUTPUT
- fi
-
- echo "
- ###################################################################
-
- " >> $OUTPUT
-
- #
- ## 9. Check basic execution of SQL*Forms Generate.
- #
- echo $N ".$C" #Wait message
- echo " Testing basic execution of SQL*Forms Generate (silent if passed)...
-
- " >> $OUTPUT
-
- cd $ORACLE_HOME/forms30/demo
- if generate30 -to order scott/tiger>/dev/null
- then
- rm -f order.frm
- else
- echo "SQL*Forms Generate - Execution Verification Failed" >> $OUTPUT
- fi
-
- echo "
- ###################################################################
- " >> $OUTPUT
-
- #
- ## 10. Check sample table build to be used with "SQL*Forms Designer's
- ## Tutorial"
- #
- echo $N ".$C" #Wait message
- echo " Checking f30demobld for scott/tiger (all tables should be found)...
-
- " >> $OUTPUT
-
- if f30demobld scott tiger >/dev/null
- then
- sqlplus scott/tiger <<! >/dev/null
- spool f30demobld
- describe scott.ord;
- describe scott.item;
- describe scott.price;
- describe scott.product;
- describe scott.customer;
- exit;
- !
- cat f30demobld.lst >> $OUTPUT
- rm -f f30demobld.lst
- else
- echo " f30demobld failed!!" >> $OUTPUT
- fi
-
- echo "
- ###################################################################
- " >> $OUTPUT
-
- #
- ## 11. Check sample table drop to be used with "SQL*Forms Designer's
- ## Tutorial"
- #
- echo $N ".$C" #Wait message
- echo " Checking f30demodrop for scott/tiger (no tables should be found)...
-
- " >> $OUTPUT
-
- if f30demodrop scott tiger >/dev/null
- then
- sqlplus scott/tiger <<! >/dev/null
- spool f3demodrop
- select table_name from user_tables
- where table_name = 'ORD'
- or table_name = 'ITEM'
- or table_name = 'PRICE'
- or table_name = 'PRODUCT'
- or table_name = 'SEQ';
- exit;
- !
- cat f3demodrop.lst >> $OUTPUT
- rm -f f3demodrop.lst
- else
- echo " f30demodrop failed!!" >> $OUTPUT
- fi
-
- echo "
- ####### Forms30.Verify Done #######
- " | tee -a $OUTPUT
-