From mfmclean00@yahoo.com

To whom it may concern​:
The following program is extremely crude, but I've
inherited it. This installation does not currently
use NIS and the system admins need a way to determine
whether or not a user has a password on a given
machine. The basic algorythm loops through a list of
users. Within this loop there is a loop of hosts.
Each user is checked in the hosts password file and if
they exist we create an output file for that user.
The general output file is user.ostype. Where ostype
is HP-UX, SOLARIS 4.xx or SOLARIS 5.xx. The program
seems to run fine through 10 - 15 users and then spits
out errors;
Use of unitialized value at clear.user.mm line ###
Since receiving this error I've added the following to
all variables;
$variable="something" if !defined($variable);
Yet it doesn't appear that I should need this where
it's been added.
The NAMELIST file has 218 entries. (users)
The LIST file has 379 entries. (hosts)

perl -V​:
Summary of my perl5 (5.0 patchlevel 5 subversion 3)
configuration​:
  Platform​:
  osname=solaris, osvers=2.7, archname=sun4-solaris
  uname='sunos sa1 5.7 generic_106541-07 sun4u sparc
sunw,ultra-1 '
  hint=recommended, useposix=true,
d_sigaction=define
  usethreads=undef useperlio=undef d_sfio=undef
  Compiler​:
  cc='cc', optimize='-xO4 -xtarget=ultra',
gccversion=
  cppflags='-I/usr/local/include'
  ccflags ='-I/usr/local/include'
  stdchar='char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8,
d_longdbl=define, longdblsize=16
  alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags ='-L/usr/local/lib
-R/usr/local/lib -L/usr/ucblib -R/usr/ucblib'
  libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
/usr/ucblib
  libs=-lsocket -lnsl -lgdbm -ldbm -ldb -ldl -lm
-lposix4 -lc -lcrypt
  libc=/lib/libc.so, so=so, useshrplib=true,
libperl=libperl.so
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef,
ccdlflags=' -R
/usr/local/lib/perl5/5.00503/sun4-solaris/CORE'
  cccdlflags='-KPIC', lddlflags='-G -L/usr/local/lib
-R/usr/local/lib -L/usr/ucblib -R/usr/ucblib'

Characteristics of this binary (from libperl)​:
  Built under solaris
  Compiled at Oct 22 1999 16​:41​:54
  @​INC​:
  /usr/local/lib/perl5/5.00503/sun4-solaris
  /usr/local/lib/perl5/5.00503
  /usr/local/lib/perl5/site_perl/5.005/sun4-solaris
  /usr/local/lib/perl5/site_perl/5.005

Thanks for your help.
Mark McLean

The following is the program;

#!/usr/bin/perl -w

####################################################################
# This script checks all the machines in the
/etc/hosts.snmu file #
# for accounts specified by the user. At this time,
the best #
# way to check for all possible accounts, is to enter
the #
# person last name, because some users may have more
than one #
# username or may not be registered with EIS, in
which case, #
# how do we know what username to look for?
  #
####################################################################

system 'clear';

$SIG{ ALRM } = \&timed_out;

#open(NAMELIST,"/u/sa/accounts/clear9999");
open(NAMELIST,"/home/markm/people");
#open(NOREPLY,">>userdb/000328.NO.PING.REPLY");
open(NOREPLY,">>
/home/markm/perl/000328.NO.PING.REPLY");
#open(DEAD,">>userdb/000328.TIMED.OUT");
open(DEAD,">> /home/markm/perl/000328.TIMED.OUT");

while(<NAMELIST>){ # 1. While list of users

  chomp($inputname=$_);
  chomp($login=$inputname);
  $login="markm" if !defined($login);

open(LIST,"/home/markm/perl/hosts.all.000204");
# open(HP,">userdb/000328.$inputname.hp");
  open(HP,">
/home/markm/perl/000328.$inputname.hp");
#
open(SOLARIS,">userdb/000328.$inputname.solaris");
  open(SOLARIS,">
/home/markm/perl/000328.$inputname.solaris");
# open(SUNOS,">userdb/000328.$inputname.sunos");
  open(SUNOS,">
/home/markm/perl/000328.$inputname.sunos");
# open(HPLST,">userdb/000328.$inputname.hp.lst");
  open(HPLST,">
/home/markm/perl/000328.$inputname.hp.lst");
#
open(SOLLST,">userdb/000328.$inputname.solaris.lst");
  open(SOLLST,">
/home/markm/perl/000328.$inputname.solaris.lst");
#
open(SUNLST,">userdb/000328.$inputname.sunos.lst");
  open(SUNLST,">
/home/markm/perl/000328.$inputname.sunos.lst");

  print `date`;

  print "\n Searching for ${login}'s accounts​:\n";
  print
"\n***************************************************\n";

  while(<LIST>) { # 2. While list of hosts
  chomp($mach=$_);
  $mach="nothing" if !defined($mach);

  #verify machine is online
  $pingresult=`ping $mach`;
  $pingresult="nothing" if
!defined($pingresult);

  unless ($pingresult =~ /alive/) { # no
response from host
  print NOREPLY "$mach\n";
  print "$login : NOREPLY FROM $mach AT
THIS TIME.\n";
  } # no response from host

  else { # 4. host is alive
  print "Checking $mach.....\n";
  $@​=""; # clear possible error from
last loop
  eval{
  alarm(7);
  $ostype = `rsh $mach uname -a`;
  chomp($ostype);
  alarm(0);
  };

  $@​="" if !defined($@​);
  $ostype="" if !defined($ostype);

  if ($@​ =~ /Got TIRED of Waiting/){
  print DEAD "Timed out on $mach.
\n";
  print "$mach TIMED OUT.\n";
  }

  else{ # 5. rsh <host> was successful
  if($ostype eq ""){
  ();
  }
  else { # 6. <host> OSTYPE exists
  if($ostype =~ /\s5\.\d*/){ #
Sol 5.##
  $acctexist = `rsh $mach
grep -i $login /etc/passwd`;
  chomp($acctexist);
  $acctexist="" if
!defined($acctexist);
  if($acctexist ne ""){
  print "$login :
ACCTEXIST​:$acctexist\n";
  print SOLARIS
"$mach​:$acctexist\n\n";
  print SOLLST
"$mach\n";
  }
  }
  elsif($ostype =~ /\s4\.\d*/){
# Sol 4.##
  $acctexist = `rsh $mach
grep -i $login /etc/passwd`;
  chomp($acctexist);
  $acctexist="" if
!defined($acctexist);
  if($acctexist ne ""){
  print
"SUNACCTEXIST​:$acctexist\n";
  print SUNOS
"$mach​:$acctexist\n\n";
  print SUNLST
"$mach\n";
  }
  }
  elsif($ostype =~ /HP-UX/){
  $acctexist = `rsh $mach
grep -i $login /etc/passwd`;
  chomp($acctexist);
  $acctexist="" if
!defined($acctexist);
  if($acctexist ne ""){
  print HP
"$mach​:$acctexist\n\n";
  print HPLST "$mach\n";
  }
  }
  } # 6. OSTYPE exists
  } # 5. rsh <host> was successful
  } # 4. host is alive
  } # 2. While list of hosts

  close(LIST);
  close(HP);
  close(HPLST);
  close(SOLARIS);
  close(SOLLST);
  close(SUNOS);
  close(SUNLST);

  print
"***************************************************\n";

} # 1. While list of users

close(NAMELIST);
close(NOREPLY);
close(DEAD);

`sort -u /home/markm/perl/000328.NO.PING.REPLY

/home/markm/perl/000328.NO.PING.REPLY.SORTED`;
`sort -u /home/markm/perl/000328.TIMED.OUT
/home/markm/perl/000328.TIMED.OUT.SORTED`;

sub timed_out {
  die "Got TIRED of Waiting";
}

__________________________________________________
Do You Yahoo!?
Send instant messages & get email alerts with Yahoo! Messenger.
http​://im.yahoo.com/

@smpeters - Status changed from 'open' to 'stalled'

p5p@spam.wizbit.be - Status changed from 'stalled' to 'rejected'