File: check_netrc

package info (click to toggle)
tiger 2.2.4-22
  • links: PTS
  • area: main
  • in suites: woody
  • size: 2,188 kB
  • ctags: 240
  • sloc: sh: 8,388; ansic: 2,109; makefile: 141; perl: 106
file content (183 lines) | stat: -rwxr-xr-x 4,201 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
#!/bin/sh
#
#     tiger - A UN*X security checking system
#     Copyright (C) 1993 Douglas Lee Schales, David K. Hess, David R. Safford
#
#     Please see the file `COPYING' for the complete copyright notice.
#
# check_netrc - 06/14/93
#
# 04/28/93 dls  Added '-L' option to 'ls' to get the permissions from the
#               file instead of the symbolic link.
#
#               Complain if the .netrc is a symbolic link or directory.
#
#-----------------------------------------------------------------------------
#
TigerInstallDir='.'

#
# Set default base directory.
# Order or preference:
#      -B option
#      TIGERHOMEDIR environment variable
#      TigerInstallDir installed location
#
basedir=${TIGERHOMEDIR:=$TigerInstallDir}

for parm
do
   case $parm in
   -B) basedir=$2; break;;
   esac
done

#
# Verify that a config file exists there, and if it does
# source it.
#
[ ! -r $basedir/config ] && {
  echo "--ERROR-- [init002e] No 'config' file in \`$basedir'."
  exit 1
}

. $basedir/config

. $BASEDIR/initdefs
#
# If run in test mode (-t) this will verify that all required
# elements are set.
#
[ "$Tiger_TESTMODE" = 'Y' ] && {
  haveallcmds AWK CAT GEN_PASSWD_SETS JOIN LS RM || exit 1
  haveallfiles BASEDIR WORKDIR || exit 1
  haveallvars TESTLINK HOSTNAME || exit 1
  
  echo "--CONFIG-- [init003c] $0: Configuration ok..."
  exit 0
}

#------------------------------------------------------------------------
echo
echo "# Performing check of .netrc files..."

haveallcmds AWK CAT GEN_PASSWD_SETS JOIN LS RM || exit 1
haveallfiles BASEDIR WORKDIR || exit 1
haveallvars TESTLINK HOSTNAME || exit 1


check_file()
{
  user=$1
  file=$2
  
  $AWK '
   BEGIN  {
           LINE="";
          }
   /[ \t]*machine/ {
           print LINE;
           LINE="$0";
          }
          {
           LINE=LINE " " $0;
          }
   END    {
           print LINE;
          }
   ' < $file |
  $AWK '
   BEGIN  {
           BAD=0;
          }
          {
           username="";
           password="";
           for(i=0;i<NF;i++){
              if($i == "login"){
                  i++;
                  username=$i;
              }
              else if($i == "password"){
                  i++;
                  password=$i;
              }
           }
           if(username != "ftp" && username != "anonymous" && username != "")
               if(password != "")
                    BAD=1;
          }
   END    {
           if(BAD == 1)
             exit 1;
           else
             exit 0;
          }
  ' || {
    getpermit $file | {
      read _f owner group ur uw ux gr gw gx or ow ox suid sgid stk
      if [ "$gr$or" != "00" ]; then
	message FAIL nrc001f "" "User $user's .netrc file is readable and contains passwords for non-anonymous ftp accounts."
      else
	message WARN nrc002w "" "User $user's .netrc file contains passwords for non-anonymous ftp accounts."
      fi
    }
  }
}

process_passwd()
{
  while read user homedir host
  do
    [ "$host" = "$HOSTNAME" -a -r "$homedir/.netrc" ] && {
      if [ $TESTLINK $homedir/.netrc ]; then
	message WARN nrc003w "" "User $user's .netrc file is a symbolic link:"
	$LS -l $homedir/.netrc
	$LS $LSGROUP $LSLINK $homedir/.netrc
	[ -s $homedir/.netrc ] && 
	  check_file $user $homedir/.netrc
      elif [ -d $homedir/.netrc ]; then
	message ALERT nrc004a "" "User $user's .netrc file is a directory:"
	$LS $LSGROUP -Rla $homedir/.netrc
	echo
      else
	check_file $user $homedir/.netrc
      fi
    }
  done
}

saveifs="$IFS"

{
  if [ -n "$Tiger_PasswdFiles" ]; then
    $CAT "$Tiger_PasswdFiles" > $WORKDIR/pass.list.$$
  else
    $GEN_PASSWD_SETS $WORKDIR/pass.list.$$
  fi
}

while read passwd_set
do
  echo
  echo "# Checking accounts from `$CAT $passwd_set.src`..."

  $AWK -F: '{print $1, $6}' $passwd_set |
  $BASEDIR/util/${GETFSHOST:=getfs-std} > $WORKDIR/home.hosts.$$

  $AWK -F: '{printf("%s %s\n", $1, $6); }' $passwd_set |
  $JOIN -o 1.1 1.2 2.3 - $WORKDIR/home.hosts.$$ |
  process_passwd
  
  [ ! -n "$Tiger_PasswdFiles" ] && delete $passwd_set $passwd_set.src
  delete $WORKDIR/home.hosts.$$
done < $WORKDIR/pass.list.$$ |
$OUTPUTMETHOD

delete $WORKDIR/pass.list.$$
#
exit 0
#
exit 0
#
exit 0