Displaying 1 result from an estimated 1 matches for "dmug".
Did you mean:
dbug
2007 May 25
0
[new script] smbldap-userlist
...rt --------------
#!/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] ) {
die "Only root can change other...