how-to generate "restore working file permissions script" for backup of your currently functioning environment

for file in `find ~/.ssh -type f `; do ls --time-style=long-iso -faZl $file | awk '{

    k = 0

    s = 0

    for( i = 0; i <= 8; i++ )

    {

        k += ( ( substr( $1, i+2, 1 ) ~ /[rwxst]/ ) * 2 ^( 8 - i ) )

    }

    j = 4

    for( i = 4; i <= 10; i += 3 )

    {

        s += ( ( substr( $1, i, 1 ) ~ /[stST]/ ) * j )

        j/=2

    }

    if ( k )

    {

        printf( "%0o%0o ", s, k )

    }

    print

}' | sort -n | perl -ne 's/\s+/ /g;@token=split(" ",$_);print "chmod $token[3]:$token[4] $token[9] \n";print "chmod " . "$token[0]" .  " $token[9]" .  "\n";' ; done ;  

#chmod username:None /home/username/.ssh/id_rsa

#chmod 0600 /home/username/.ssh/id_rsa

#chmod username:None /home/username/.ssh/id_rsa.pub

#chmod 0644 /home/username/.ssh/id_rsa.pub

#chmod username:None /home/username/.ssh/known_hosts

#chmod 0644 /home/username/.ssh/known_hosts

pre class=

code2html sh wrapper for create a folder structure in html out of src project

#!/bin/bash
# File: create-perl-src-docs.sh v.1.3.0 docs at the end 
umask 000 ; 

# print the commands 
set -x
# print each input line as well
set -v
# exit the script if any statement returns a non-true return value. gotcha !!!
# set -e 


# set the variables from the $0.hostname.conf file which has ini like syntax
setVars(){
  export PATH=/cygdrive/c/cygwin/bin/:$PATH
  MyDir=`dirname $(readlink -f $0)`
    cd "$MyDir"
    # echo go up 4 times 
    for i in {1..5} ; do cd .. ; done ;
    #echo print the pwd
    ProductBaseDir=`pwd`
    echo "ProductBaseDir is $ProductBaseDir \n\n"
  Tmp="$MyDir/tmp/tmp.$$"
  mkdir -p $Tmp    #create the tmp dir if it does not exist 
  ( set -o posix ; set ) >$Tmp/variables.before 
  MyName=`basename $0`
  IniFile="$MyDir/$MyName.`hostname`.conf"
  IniSection=MainSection
  LogFile="$MyDir/$MyName.log"
  # get the machine / host specific configuration 
  parseIniFile
  #source $0
  ( set -o posix ; set ) >$Tmp/variables.after
  wlog " Using the following vars :"
  cmd="comm --nocheck-order -3 $Tmp/variables.before $Tmp/variables.after"
  runCmdAndLog $cmd
  rm -f $Tmp/variables.before $Tmp/variables.after
  rm -f $Tmp/variables.before $Tmp/variables.before 
}
#eof function setVars


# parse the ini like $0.hostname.conf and set the variables
parseIniFile(){
 eval `sed -e 's/[[:space:]]*\=[[:space:]]*/=/g' \
     -e 's/;.*$//' \
     -e 's/[[:space:]]*$//' \
     -e 's/^[[:space:]]*//' \
     -e "s/^\(.*\)=\([^\"']*\)$/\1=\"\2\"/" \
    < $IniFile \
     | sed -n -e "/^\[$IniSection\]/,/^\s*\[/{/^[^;].*\=.*/p;}"`
}
#eof function parseIniFile


# run a command and log the call and its output to the LogFile
# usage: runCmdAndLog $cmd
runCmdAndLog(){
    cmd="$*" ; 
    wlog " DEBUG running cmd : \"$cmd\""
    Msg=$($cmd 2>&1)
        [ $? -eq 0 ]  || wlog "ERROR : Failed to run the following command \"$cmd\" with the following output \"$Msg\" !!!"
    wlog " DEBUG : cmdoutput : \"$Msg\""
}
#eof function runCmdAndLog


# run a command on failure exit with message
# usage: runCmdOrExit $cmd

runCmdOrExit(){
    cmd="$*" ; 
    wlog " DEBUG running cmd : \"$cmd\""
    Msg=$($cmd 2>&1)
    # if error occured during the execution exit with error
    [ $? -eq 0 ] || Exit "ERROR : FATAL : Failed to run the following command \"$cmd\" with the following output \"$Msg\" !!!"
    #if no error occured just log the message
    wlog " DEBUG : cmdoutput : \"$Msg\""
}
#eof function runCmdOrExit


# echo pass params and print them to a log file
wlog(){
  # check terminal if exists echo 
  test -t 1 && echo "`date +%Y.%m.%d-%H:%M:%S` [$$] $*"
  # check LogFile and 
  test -z $LogFile || {
    echo "`date +%Y.%m.%d-%H:%M:%S` [$$] $*" >> $LogFile
  } #eof test
 } 
# eof function wlog 


replicateSrcDirStructure(){
  
  cd $ProductVersionDir
  find sfw -type d -exec mkdir -p docs/html/src/{} \;
  

}
#eof func replicateSrcDirStructure


createSfwSrcDocs(){

  wlog " DEBUG START createSfwSrcDocs"
  cd "$ProductVersionDir"
  find "sfw" -type f -exec perl $CodeToHtml {} docs/html/src/{}.html \;
  cmd="find $ProductVersionDir/docs/html/src/perl/ -type f"
  runCmdAndLog $cmd
  wlog " DEBUG STOP createSfwSrcDocs"

}
#eof wlog " DEBUG createSfwSrcDocs"



# exit with passed status and message
Exit(){
  ExitStatus=0
  case $1 in
   [0-9]) ExitStatus="$1"; shift 1;;
 esac
  Msg="$*"
  test "$ExitStatus" = "0" || Msg=" ERROR: $Msg"
  wlog " $Msg"
  exit $ExitStatus
}
#eof function Exit


# the main function called 
main(){
 setVars
  replicateSrcDirStructure
  createSfwSrcDocs  
  Exit 0 "created the docs"
  }
#eof function main


# Action !!!
main


#
# Purpose:
# to produce the html files our of the perl source files into a single directory
# features: 
# - prints the set in the script variables
# - separation of host specific vars into $0.`hostname`.conf file
# - wlog function for both xterm and log file printing
# - for loop examples with head removal and inline find and replace 
# 
# Requirements
# - cygwin , perl , sh , code2html by 
# - 
# EOF File:create-perl-src-docs.sh
# VersionHistory: 
# 1.4.0 --- 2012-07-24 17:33:29 --- ysg --- Initial creation of create-perl-src-docs.sh
# 1.3.0 --- 2012-05-20 18:48:08 --- ysg --- replacing cmd with error output
# 1.2.4 --- 2012-05-02 20:41:11 --- ysg --- added for loop with pipes 
# 1.1.0 --- ysg --- add runcmd with erro
# 1.0.0 --- ysg --- Initial creation of sh_stub

---

syntax highlighted by Code2HTML, v. 0.9.1

a sh bash stub for HP-UX

#!/bin/bash

# File: sh_stub.sh v.1.1.0 docs at the end 

umask 000 ; 

# echo all the commands 

set -x

#exit on single error

set -e 

# Read the IniFile, which is host dependant and set the variables

# report the set variables 

setVars(){

        MyDir=`dirname $0`

        Tmp="$MyDir/tmp/tmp.$$"

        mkdir -p $Tmp                #create the tmp dir if it does not exist 

        set  >$Tmp/variables.before 

        MyName=`basename $0`

        IniFile="$MyDir/$MyName.`hostname`.conf"

        IniSection=MainSection

        LogFile="$MyDir/$MyName.log"

        # get the machine / host specific configuration 

        parseIniFile

        #source $0

        set > $Tmp/variables.after

        wlog " Using the following vars :"

        cmd="comm -13 $Tmp/variables.before $Tmp/variables.after"

        runCmdAndLog $cmd

        rm -f $Tmp/variables.before $Tmp/variables.after

        rm -f $Tmp/variables.before $Tmp/variables.before    

}

#eof function setVars

# parse the host dependant ini file

parseIniFile(){

    eval `sed -e 's/[[:space:]]*\=[[:space:]]*/=/g' \

        -e 's/;.*$//' \

        -e 's/[[:space:]]*$//' \

        -e 's/^[[:space:]]*//' \

        -e "s/^\(.*\)=\([^\"']*\)$/\1=\"\2\"/" \

       < $IniFile \

        | sed -n -e "/^\[$IniSection\]/,/^\s*\[/{/^[^;].*\=.*/p;}"`

}

#eof function parseIniFile

# call by runCmdAndLog $cmd

runCmdAndLog(){

                cmd="$*" ; 

                wlog "running cmd : \"$cmd\""

                Msg=$($cmd 2>&1)

                [ $? -eq 0 ]  || wlog "ERROR : Failed to run the following command \"$cmd\" with the following output \"$Msg\" !!!"

                wlog " DEBUG : cmdoutput : \"$Msg\""

}

#eof function runCmdAndLog

#call by runCmdOrExit $cmd

runCmdOrExit(){

                cmd="$*" ; 

                wlog "running cmd : \"$cmd\""

                Msg=$($cmd 2>&1)

                # if error occured during the execution exit with error

                [ $? -eq 0 ] || Exit "ERROR : FATAL : Failed to run the following command \"$cmd\" with the following output \"$Msg\" !!!"

                #if no error occured just log the message

                wlog " DEBUG : cmdoutput : \"$Msg\""

}

#eof function runCmdOrExit

# echo passed params and print them to a log file

wlog(){

        # check terminal if exists echo 

        test -t 1 && echo "`date +%Y.%m.%d-%H:%M:%S` [$$] $*"

        # check LogFile and 

        test -z $LogFile || {

          echo "`date +%Y.%m.%d-%H:%M:%S` [$$] $*" >> $LogFile

        } #eof test

 } 

# eof function wlog 

# exit with passed status and message

Exit(){

        ExitStatus=0

        case $1 in

            [0-9]) ExitStatus="$1"; shift 1;;

    esac

        Msg="$*"

        test "$ExitStatus" = "0" || Msg="ERROR: $Msg"

        wlog "$Msg"

        exit $ExitStatus

}

#eof function Exit

# copy this function in order to implement your own logic

exampleFunc(){

echo "This is example function"

wlog "calling exampleFunc"

}

#eof exampleFunc

# the main function called 

main(){

    setVars

    exampleFunc

}

#eof function main

# Action !!!

main

# Purpose:

# To provide an easy starting template for writing bash and sh scripts

# having the following features: 

# - prints the set in the script variables

# - separation of host specific vars into $0.`hostname`.conf file

# - wlog function for both xterm and log file printing

# Tested on HP-UX

# VersionHistory:

# 1.1.0 --- adapted to HP-UX

# 1.0.0 --- initial version for cygwin

# EOF File:sh_stub.sh

Sh Cheat Sheet

#File:ShCheatSheet.sh v.1.1.0 docs at the end 

#source:http://www.dartmouth.edu/~rc/classes/ksh/index.html#for loop example

for file in * ; do echo Processing $file ; done ; 

for file in  `ls -1` ; do echo Processing $file ; done ; 

#if example 

if [ -r $myfile ]

then

   cat $myfile

else

   echo $myfile not readable

fi

#case example 

case $filename in

*.dat)

echo Processing a .dat file

;;

*.sas)

echo Processing a .sas file

;;

*)

# catch anything else that doesn't match patterns

echo "Don't know how to deal with $filename"

;;

esac

*

Matches any zero or more characters. 

?

Matches any one character. 

[string]

Matches exactly one character that is a member of the string string. This is called a character class. As a shorthand, string may contain ranges, which consist of two characters with a dash between them. For example, the class ‘[a-z0-9_]’ matches a lowercase letter, a number, or an underscore. You can negate a class by placing a ‘!’ or ‘^’ immediately after the opening bracket. Thus, ‘[^A-Z@]’ matches any character except an uppercase letter or an at sign. 

\

Removes the special meaning of the character that follows it. This works even in character classes.

# while example 

count=0

max=10

while [[ $count -lt $max ]] ; do 

  echo $count ; 

  count=$((count + 1)) ; 

done ; 

echo "Value of count after loop is: $count"

wlog(){

        echo "`date +%Y.%m.%d-%H:%M:%S` [$$] $*" >> $LOGFILE

        test -t 1 && echo "$*"

}

send_mail(){

        # $1 = subject

        # $* = recipients

        # - = text

        test -z "$2" && {

                wlog "NOTICE: no mail recipients"

                return 0

        }

        _sm_s="$1"

        shift 1

        mailx -s "$_sm_s" $* || {

                wlog "ERROR: Failed to send mail to $*"

                return 1

        }

        return 0

}

#get a nice date

`date +%Y%m%d%H%M%S`

outgoing_dirs=`find $ROOTDIR -type d -name 'outgoing'`

for odir in $outgoing_dirs

do

        test -d "$odir" || continue

        find $odir -type f -mtime $MAXAGE -print0 | xargs --null -r $debug rm

done

#The ultimate find in files 

DirToSearch=/var/log/

FilesToSearch=`ls -rt $DirToSearch`

for file in $FilesToSearch

do

        file=$DirToSearch/$file

        test -f "$file" || continue 

        grep -nH 'sekauppi' $file  

done

find $DirToSearch -type f -exec grep -nH 'yogeorgi' {} \; | less 

today=`date +%Y%m%d`

yesterday=`date --date yesterday +%Y%m%d`

Help(){

        cat<<EOF

`basename $0` [-t filetype] [-f srcfile] [-o outfile] [-D outdir]

        [-u owner] [-g group] [-U srcurl] [-d day -d day2 ...]

        [-F] [-b daysback]

        filetype:       {userlist | auditlog}

        user:           $channel_user

        srcurl:         $BASE_URL

        daysback:       $DAYS_BACK

        -F to force download even if file was downloaded already

EOF

#Purpose: 

# Provide an easy copy paste resource for sh programming

# VersionHistory: 

# 1.1.0 --- ysg --- Updated docs , published 

# 1.0.0 --- ysg --- Initial version , see main source