Reverting filePro

[Bob Stockler]

Walter Vaughan wrote (on Mon, Mar 05, 2007 at 10:24:59AM -0500):

| I'm trying to chase down why the filePro apps on a server are causing a ton of 
| swapping. Every one else here is convinced that it happened when I moved them 
| from 4.08.09 to 5.0.13 last fall.
| 
| As part of testing, I'd like to let them run a day or two again on the 4.08 VM's 
| again, but I don't want to break things (The only reason at the time was to test 
| TOHTML, but that's not even used anymore). I know all about indexes, we only 
| code with two letter dummys, etc...
| What I want to know is how to I switch from using the new back to the old
| without dorking things up, so I can go back to the new.
| 
| drwx------ 538 filepro  group       9728 Dec 19 09:28 filepro
| drwxr-xr-x   9 filepro  group       6144 Mar  5 09:02 fp@
| drwxr-xr-x  13 filepro  sys         6144 Sep  6  2006 fp#
| drwxr-xr-x   9 filepro  group       6144 Mar  5 09:02 fp_v5.0.13D4
| drwxr-xr-x   2 filepro  group        512 Apr  1  2003 fpmerge
| 
| OS is OSR5
| 
| I am convinced the problem lies elsewhere, but I am tired of fighting the 
| battle, and it seems everytime I fool with sym linked files I get it backward.

Assuming that "fp#" is 4.08.09 and "fp" is a symlink to 5.0.13 . . .

  #!/bin/ksh
  # @(#) chg.fp - change the version of filePro to be used
  [[ -z "$PFPROG" ]] && {
    echo "\n  PFPROG is NOT set !!!\n" ; exit 1
  }
  trap '' 2
  Version=""
  while :
  do clear ; echo "
    Choose the version of filePro to use:\n
      1 - 5.0.13\n
      2 - 4.08.09\n
      Q - Quit\n
    Your choice: \c"
    read Version
    case $Version in [12Qq]) break ;; esac
  done
  case $Version in [Qq]) exit 0 ;; esac
  rm -f $PFPROG/fp
  case $Version in
    1) ln -s $PFPROG/fp_v5.0.13D4 $PFPROG/fp ;;
    2) ln -s $PFPROG/fp# $PFPROG/fp ;;
  esac
  echo ""
  ls -l $PFPROG/fp
  exit 0

Bob

-- 
Bob Stockler +-+ bob at trebor.iglou.com +-+ http://members.iglou.com/trebor