search for: exist_in_tab

Displaying 1 result from an estimated 1 matches for "exist_in_tab".

2007 May 25
0
[new script] smbldap-userlist
...rshow. Kind regards, Tarjei -------------- next part -------------- #!/usr/bin/perl -w # Created by P.Wieleba@iem.pw.edu.pl in 2004 use strict; use Getopt::Std; use FindBin; use FindBin qw($RealBin); use lib "$RealBin/"; use smbldap_tools; use Date::Format; # function declaration sub exist_in_tab; my %Options; my $ok = getopts('dmug?', \%Options); if ( (!$ok) || ($Options{'?'}) ) { print "Usage: $0 []\n"; exit (1); } my $user; my $pass; if ( $< != 0 ) { my $current_user = getpwuid($<); if ($current_user and $ARGV[0] and $current_user ne $ARGV[0] )...