Re: Fw: shell script ?
This is a nawk (new awk) script. Everything that is needed is in the script, no additional functions are being defined or called. You can use print from the command line just like you would echo (print 'hello' or echo 'hello' both do basically the same thing).
--- "Denmark B. Weatherburn" <dweatherb@btl.net>
> wrote:
>> Below is a script that I got from a posting on this informix users list:
>>
>> I can recognize some c constructs, but this code is evidently interpreted
>by
>> the shell. I would appreciate some feedback from you listers.
>
>> Where can the "getline" and "print" functions be found?
> Where are the definitions of the arrays or functions?
>
>> Regards,
>>
>> DW
>==================================================>
>> #!/bin/sh
>>
>> ########################################################################
>> ########
>> #
>> # Shell Script: lockrep
>> #
>> # Description: Program to find out tables which is locked by users.
>> #
>> # Author: Jayakumar George Date: 12/08/97
>> #
>> # Ver 1.1 Modified the script(31/10/97) to access the database
>> once
>> for
>> # each database since the script is very slow and also
>> lists
>> # user created temp tables if it is locked.
>> # Ver 1.2 Modified output for just released locks to fix output
>> bug
>> # 08/14/2000 Gary Quiring
>>
>> ########################################################################
>> ########
>>
>> onstat -u | nawk ' BEGIN {
>> getline;getline;getline;getline;getline;ctr = 1
>> }
>> { if ( $2 == "active,")
>> {
>> while(getline)
>> }
>> else
>> {
>> if ($8 1)
>> {
>> username[ctr]=$4
>> sessionid[ctr]=$3
>> useraddr[ctr]=$1
>> ctr++
>> }
>> }
>> tmpctr=1>>
>> while("onstat -g sql"|getline)
>> {
>> if(tmpctr 5)
>> databases[$1]=substr($0,22,18)
>> tmpctr++
>> }
>> close("onstat -g sql ")
>> }
>> END {
>> if (ctr == 1)
>> {
>> print "No User(s) Has a lock"
>> exit 1
>> }
>> print "The following User(s) has lock(s)"
>> print "User ID TTY Host/IP Sess.
>> ID
>> Database Table(s) "
>> print "------- --- ------------- -------
>> -
>> -------- ----------------"
>> for(forctr=1;forctr< ctr;forctr++)
>> {
>> cmd="onstat -g ses " sessionid[forctr]
>> while(cmd | getline)
>> {
>> if($1 == "partnum")
>> {
>> while(cmd | getline)
>> {
>> tmptabname[$1]=$2
>> }
>> break
>> }
>> }
>> close(cmd)
>> cmd=""
>> "listusers|grep " username[forctr] | getline
>> uname
>> printf "%-36s%8d %-15s",uname
>> ,sessionid[forctr],substr(databases[sessionid[forctr]],1,15)
>> close("listusers")
>> cmd = "onstat -k | grep " useraddr[forctr]
>> dbtabflag = 0
>> printnull = 0
>> while(cmd | getline)
>> {
>> if($4 != 0)
>> {
>> if(tmptabname[$6])
>> tmptabs_locked[$6]=tmptabname[$6]
>> else
>> {
>> dbtabflag++
>> hextoint($6)
>>
>> select_tablename(databases[sessionid[forctr]])
>>
>> tabname_arr[res]=dbtab_arr[databases[sessionid[forctr]],res]
>> }
>> }
>> }
>> close(cmd)
>> ctrcmd2=1
>> if(dbtabflag)
>> {
>> for (tabname in tabname_arr)
>> {
>> if(ctrcmd2 == 1)
>> printf "%-18s",tabname_arr[tabname]
>> else
>> printf "%60c%-18s",32,tabname_arr
>> [tabname]
>> ctrcmd2++
>> printf "\\n"
>> printnull = 1
>> delete tabname_arr[tabname]
>> }
>> }
>> for(tmptabvar in tmptabs_locked)
>> {
>> if(ctrcmd2 == 1)
>> printf "(T) %-18s",tmptabs_locked
>> [tmptabvar]
>> else
>> printf "%60c(T)
>> %-18s",32,tmptabs_locked[tmptabvar]
>> ctrcmd2++
>> printf "\\n"
>> printnull = 1
>> delete tmptabs_locked[tmptabvar]
>> }
>> if (printnull == 0)
>> printf "Lock just released\\n"
>> }
>> }
>>
>> function hextoint(a)
>> {
>> res=0
>> base=16
>> expn=0
>> for(i=length(a);i0;i--)
>> {
>> val1=substr(a,i,1)
>> if(match(val1,"[Aa]"))
>> val1 = 10
>> if(match(val1,"[Bb]"))
>> val1 = 11
>> if(match(val1,"[Cc]"))
>> val1 = 12
>> if(match(val1,"[Dd]"))
>> val1 = 13
>> if(match(val1,"[Ee]"))
>> val1 = 14
>>