chmod 755 $HOME/bin/bupfile

#!/bin/sh

PrgNam="`basename $0`"
DirNam="`dirname  $0`"

if [ "$DirNam" = "." ]
then
   if [ -f "$PrgNam" ]
   then
      DirNam="`pwd`"
   else
      DirNam="`whichone $PrgNam`"
      DirNam="`dirname $DirNam`"
   fi
elif [ "$DirNam" = ".." ]
then
   DirNam="`pwd`"
   DirNam="`dirname $DirNam`"
elif [ "`dirname $DirNam`" = ".." ]
then
   FooNam="`basename $DirNam`"
   DirNam="`pwd -P`"
   DirNam="`dirname $DirNam`/$FooNam"
elif [ "$DirNam" = "" ]               # should not happen ...
then                                  # see: man 3 dirname
   DirNam="`whichone $PrgNam`"
   DirNam="`dirname $DirNam`"
fi

AllArg="$@"
DoSec=0
DoRep=1
MySep='~'
MyTag=''
DoTag=0
Verbose=1
Debug=0      
NumErr=0
MaxErr=1

MyDStr="`date '+%Y%m%d'`"
MyTStr="`date '+%Y%m%d-%H%M%S'`"

export MySep MyTag DoRep

GetExt ()
{
   gawk '
   BEGIN {

      InpStr = "'"$@"'" ""
      OutStr = ""

      for ( i = length( InpStr ) ; i > 1 ; i -- )  # dot-files !
      {
         if (( C = substr( InpStr, i, 1 )) == "." )
         {
            if ( substr( InpStr, i-1, 1 ) != "/" )
            {
               OutStr = substr( InpStr, i )
            }
            break
         }
         if ( C == "/" )
            break
      }
      print OutStr
      exit( 0 )
   }'
   return
}
WacExt ()
{
   myDot="$1" ; shift

   gawk '
   BEGIN {

      myDot  = "'"$myDot"'" ""
      InpStr = "'"$@"'"     ""
      OutStr = InpStr

      for ( i = length( InpStr ) ; i > 1 ; i -- )  # detect dot-files !
      {
         if (( C = substr( InpStr, i, 1 )) == myDot )
         {
            if ( substr( InpStr, i-1, 1 ) != "/" ) # detect dot-files !
            {
               OutStr = substr( InpStr, 1, i-1 )
            }
            break
         }
         if ( C == "/" )
            break
      }
      print OutStr
      exit( 0 )
   }'
   return
}
Error ()
{
   if [ $# -lt 1 ]
   then
      RetCode=1
      echo "unspecified error" >&2
   else
      RetCode=$? ; shift
      echo "$@" >&2
   fi

   exit $RetCode
}
MkNewFile ()
{
   [ $# -lt 1 ] && echo "" && return 4

   myFile="$1"

   [ "$myFile" = ""  ] && echo ""                  && return 5
   [ "$MyTag"  = ""  ] && echo ""                  && return 6
   [ "$DoRep"  = "0" ] && echo "${myFile}${MyTag}" && return 0

   myWacd="$(WacExt "$MySep" "$myFile")"

   echo "${myWacd}${MyTag}"

   return 0
}
Usage ()
{
   ErrNum=$1
   shift

   [ $# -gt 0 ] && echo -e "\n$*" >&2

   echo -e "\nusage:  $PrgNam [ options ] File [ File [ File ... ]]" >&2
   cat  <<Usage_EOF >&2

Program $PrgNam Backs Up ( copies ) one-or-more Files or Directories 
with a DateStamp Suffix: '${MySep}YYYYMMDD'.  

Optionally, if the -s Arg is invoked, $PrgNam will append 
a DateTimeStamp Suffix:  '${MySep}YYYYMMDD-HHMMSS'

Finally, the -t TagORide Arg allows the user to override the default
DateStamp ( or DateTimeStamp ) Suffix with their own Suffix.

Options include:

   -e MaxErr   - Maximum Number of Errors to allow before ABORT

                 Default:  1 error

   -c SepChr   - user-defined Separator Char for the TimeStamp.

                 Default SepChr = '$MySep'

   -s          - use DateTimeStamp.  Format = '${MySep}YYYYMMDD-HHMMSS'

   -a          - do not replace old TimeStamp, append a new one instead.  

                 See Note 3.  Do be careful with this !  FileNames may
                 become arbitrarily long !!!

                 Default:  REPLACE $PrgNam TimeStamp with New One.

                 Note:  On Files with multiple TimeStamps, only the
                 LAST TimeStamp will be replaced.

   -t TagORide - use TagORide instead of the default DateStamp

                 Note:  TagORide is literally appended to the
                 original FileName.  Supply your own punctuation !

                 Note:  the -t TagORide option activates the -a Arg

   -q            operate silently except for errors

                 Default:  echo commands to stderr

Program $PrgNam preserves permissions and Time Stamps on the file 
( as file ownership permissions allow ).

   Simple Examples:

   $PrgNam file              # copies file to file${MySep}${MyDStr}

   $PrgNam -s file           # copies file to file${MySep}${MyTStr}

   $PrgNam -t '.kjh' file    # copies file to file.kjh

Note1:  Program $PrgNam does not operate on SymLinks or Named Pipes !

Note2:  When multiple Files / Directories are processed, all will be
        Tagged with the same TimeStamp no matter how long it takes to
        complete the file copy operations.

Note3:  If a file or directory already includes a $PrgNam TimeStamp, 
        by default the original TimeStamp is REPLACED with the new 
        TimeStamp.

        OTOH, when the -a Arg is invoked, $PrgNam APPENDS the new 
        TimeStamp to any existing TimeStamps.

   Example:  to replace any existing TimeStamps with new ones:  

   $PrgNam file~19990429     # copy file~19990429 to file${MySep}${MyDStr}

   Example:  to append new TimeStamps to any existing ones:

   $PrgNam -a file~19990429  # copy file~19990429 to file~19990429${MySep}${MyDStr}

   Example:  if the -t TagORide Arg is invoked, $PrgNam APPENDS:

   $PrgNam -t .bak file.bak  # copy file.bak to file.bak.bak

Note 4:  This help text is printed to stderr.  To print a hard-copy or to
         pipe it thru a pager:

   Example:  to pass to the less command:

   $PrgNam -h 2>&1 |less

   Example:  to print to 'MyFavoritePrinter'

   $PrgNam -h 2>&1 |lp -dMyFavoritePrinter

Error Codes:

   Error 1 - No Files were submitted on Command Line
   Error 2 - MaxErr Arg was non-numeric or zero
   Error 3 - -t TagORide Arg was empty
   Error 4 - Programmer Error - MkNewFile was invoked without a FileName
   Error 5 - Internal function  MkNewFile was passed an empty FileName
   Error 6 - Internal function  MkNewFile was passed an empty Tag
   Error 7 - Internal function  MkNewFile returned a NULL FileName
   Error 8 - Internal function  MkNewFile returned the same FileName
   Error 9 - NumErr reached MaxErr 

-- kjh  1999-04-29

Usage_EOF
 
   exit $ErrNum

}

while  getopts daqshc:t:e: junk 2>/dev/null
do
   case $junk in
      e)    MaxErr="$OPTARG"
            ;;
      c)    MySep="$OPTARG"
            ;;
      t)    MyTag="$OPTARG"
            DoTag=1
            DoRep=0
            ;;
      s)    DoSec=1
            ;;
      q)    Verbose=0
            ;;
      a)    DoRep=0
            ;;
      d)    Debug=1
            Verbose=1
            ;;
      h)    Usage 0
            ;;
      *)    Usage 1
            ;;
   esac
done

shift `expr $OPTIND - 1`

RetCode=0
FooNum=$(expr $MaxErr + 0 2>/dev/null)

[ $# -lt 1 ]         && Error 1 "$PrgNam needs one-or-more Files to back up"
[ $FooNum -lt 1 ]    && Error 2 "MaxErr must be numeric"

if [ "$DoTag" = "1" ]
then

   [ "$MyTag" = "" ] && Error 3 "-t TagORide is Empty"

elif [ $DoSec -ne 0 ]
then
   MyTag="${MySep}${MyTStr}"
else
   MyTag="${MySep}${MyDStr}"
fi

[ "$Debug" = "1" ] && Verbose=1

NumErr=0

for File in $@
do

   [ "$File" = "" ]                                               && continue  # not an Error
   [ ! -e "$File" ] && echo "$File does not exist"            >&2 && continue  # not an Error
   [   -L "$File" ] && echo "$PrgNam cannot do SymLinks"      >&2 && continue  # not an Error
   [   -p "$File" ] && echo "$PrgNam does not do Named Pipes" >&2 && continue  # not an Error

   NewFile="$(MkNewFile $File)"
   RetCode=$?

   [ "$RetCode" != "0"     ] && Error $RetCode "Something went south ... NewFile = '$NewFile' ; RetCode = $RetCode"
   [ "$NewFile"  = ""      ] && Error 7        "Something went south ... '$NewFile' == ''"
   [ "$NewFile"  = "$File" ] && Error 8        "Something went south ... '$NewFile' == '$File'"

   if [ -d "$File" ]
   then
      Cmd="cp -pR $File $NewFile"
   else
      Cmd="cp -p  $File $NewFile"
   fi

   [ "$Verbose" != "0" ] && ( echo "$Cmd" ; )
   
   if [ "$Debug"   != "1" ]
   then
      $Cmd
      RetCode=$?
   fi

   [ $RetCode -ne 0 ] && NumErr=$(expr $NumErr + 1)

   [ $NumErr -ge $MaxErr ] && RetCode=9 break

done
exit $RetCode

usage:  bupfile [ options ] File [ File [ File ... ]]

Program bupfile Backs Up ( copies ) one-or-more Files or Directories 
with a DateStamp Suffix: '~YYYYMMDD'.  

Optionally, if the -s Arg is invoked, bupfile will append 
a DateTimeStamp Suffix:  '~YYYYMMDD-HHMMSS'

Finally, the -t TagORide Arg allows the user to override the default
DateStamp ( or DateTimeStamp ) Suffix with their own Suffix.

Options include:

   -e MaxErr   - Maximum Number of Errors to allow before ABORT

                 Default:  1 error

   -c SepChr   - user-defined Separator Char for the TimeStamp.

                 Default SepChr = '~'

   -s          - use DateTimeStamp.  Format = '~YYYYMMDD-HHMMSS'

   -a          - do not replace old TimeStamp, append a new one instead.  

                 See Note 3.  Do be careful with this !  FileNames may
                 become arbitrarily long !!!

                 Default:  REPLACE bupfile TimeStamp with New One.

                 Note:  On Files with multiple TimeStamps, only the
                 LAST TimeStamp will be replaced.

   -t TagORide - use TagORide instead of the default DateStamp

                 Note:  TagORide is literally appended to the
                 original FileName.  Supply your own punctuation !

                 Note:  the -t TagORide option activates the -a Arg

   -q            operate silently except for errors

                 Default:  echo commands to stderr

Program bupfile preserves permissions and Time Stamps on the file 
( as file ownership permissions allow ).

   Simple Examples:

   bupfile file              # copies file to file~20150823

   bupfile -s file           # copies file to file~20150823-065247

   bupfile -t '.kjh' file    # copies file to file.kjh

Note1:  Program bupfile does not operate on SymLinks or Named Pipes !

Note2:  When multiple Files / Directories are processed, all will be
        Tagged with the same TimeStamp no matter how long it takes to
        complete the file copy operations.

Note3:  If a file or directory already includes a bupfile TimeStamp, 
        by default the original TimeStamp is REPLACED with the new 
        TimeStamp.

        OTOH, when the -a Arg is invoked, bupfile APPENDS the new 
        TimeStamp to any existing TimeStamps.

   Example:  to replace any existing TimeStamps with new ones:  

   bupfile file~19990429     # copy file~19990429 to file~20150823

   Example:  to append new TimeStamps to any existing ones:

   bupfile -a file~19990429  # copy file~19990429 to file~19990429~20150823

   Example:  if the -t TagORide Arg is invoked, bupfile APPENDS:

   bupfile -t .bak file.bak  # copy file.bak to file.bak.bak

Note 4:  This help text is printed to stderr.  To print a hard-copy or to
         pipe it thru a pager:

   Example:  to pass to the less command:

   bupfile -h 2>&1 |less

   Example:  to print to 'MyFavoritePrinter'

   bupfile -h 2>&1 |lp -dMyFavoritePrinter

Error Codes:

   Error 1 - No Files were submitted on Command Line
   Error 2 - MaxErr Arg was non-numeric or zero
   Error 3 - -t TagORide Arg was empty
   Error 4 - Programmer Error - MkNewFile was invoked without a FileName
   Error 5 - Internal function  MkNewFile was passed an empty FileName
   Error 6 - Internal function  MkNewFile was passed an empty Tag
   Error 7 - Internal function  MkNewFile returned a NULL FileName
   Error 8 - Internal function  MkNewFile returned the same FileName
   Error 9 - NumErr reached MaxErr 

-- kjh  1999-04-29