/[pdpsoft]/trunk/nl.nikhef.ndpf.tools/mkgroup-sshlpk/mkgroup-sshlpk
ViewVC logotype

Diff of /trunk/nl.nikhef.ndpf.tools/mkgroup-sshlpk/mkgroup-sshlpk

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3095 by davidg, Sun Jun 19 09:41:10 2016 UTC revision 3096 by davidg, Fri Sep 2 13:18:32 2016 UTC
# Line 10  my $verb=0; Line 10  my $verb=0;
10  my $force=0;  my $force=0;
11  my $exit_on_error=0;  my $exit_on_error=0;
12  my $uid=0;  my $uid=0;
13    my $commentuid=0;
14  my $display_help;  my $display_help;
15  my $ldapurl="ldaps://ldap.nikhef.nl/";  my $ldapurl="ldaps://ldap.nikhef.nl/";
16  my $defldapbase="dc=farmnet,dc=nikhef,dc=nl";  my $defldapbase="dc=farmnet,dc=nikhef,dc=nl";
# Line 35  my $def_uidldapfilter = '(objectclass=*) Line 36  my $def_uidldapfilter = '(objectclass=*)
36    "gfilter=s" => \$groupldapfilter,    "gfilter=s" => \$groupldapfilter,
37    "help|h" => \$display_help,    "help|h" => \$display_help,
38    "exit-on-error" => \$exit_on_error,    "exit-on-error" => \$exit_on_error,
39    "force|f" => \$force    "force|f" => \$force,
40      "uidc|U" => \$commentuid
41  );  );
42    
43  defined $ldapbase or $ldapbase = $defldapbase;  defined $ldapbase or $ldapbase = $defldapbase;
# Line 228  sub writeUidLines($$) { Line 230  sub writeUidLines($$) {
230                $keyAttrib=~s/^.* (\d+\s+\d+\s+)/$1/;                $keyAttrib=~s/^.* (\d+\s+\d+\s+)/$1/;
231                $keyAttrib="$cmd $keyAttrib";                $keyAttrib="$cmd $keyAttrib";
232              };              };
233                $commentuid and $keyAttrib=$keyAttrib." ## ".$uidentry->get_value('uid')." (".$uidentry->get_value('uidNumber').")";
234              push @lines,$keyAttrib;              push @lines,$keyAttrib;
235        };        };
236    

Legend:
Removed from v.3095  
changed lines
  Added in v.3096

grid.support@nikhef.nl
ViewVC Help
Powered by ViewVC 1.1.28