projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b6c28c0
)
fix for non-file auth
author
ivan
<ivan>
Wed, 6 Feb 2002 14:58:05 +0000
(14:58 +0000)
committer
ivan
<ivan>
Wed, 6 Feb 2002 14:58:05 +0000
(14:58 +0000)
FS/bin/freeside-adduser
patch
|
blob
|
history
diff --git
a/FS/bin/freeside-adduser
b/FS/bin/freeside-adduser
index
7fc5830
..
9d42463
100644
(file)
--- a/
FS/bin/freeside-adduser
+++ b/
FS/bin/freeside-adduser
@@
-1,6
+1,6
@@
#!/usr/bin/perl -w
#
#!/usr/bin/perl -w
#
-# $Id: freeside-adduser,v 1.
3 2001-10-30 13:47:07
ivan Exp $
+# $Id: freeside-adduser,v 1.
4 2002-02-06 14:58:05
ivan Exp $
use strict;
use vars qw($opt_h $opt_c $opt_s);
use strict;
use vars qw($opt_h $opt_c $opt_s);
@@
-12,10
+12,12
@@
getopts("ch:s:");
die &usage if $opt_c && ! $opt_h;
my $user = shift or die &usage;
die &usage if $opt_c && ! $opt_h;
my $user = shift or die &usage;
-my @args = ( 'htpasswd' );
-push @args, '-c' if $opt_c;
-push @args, $opt_h, $user;
-system(@args) == 0 or die "htpasswd failed: $?";
+if ( $opt_h ) {
+ my @args = ( 'htpasswd' );
+ push @args, '-c' if $opt_c;
+ push @args, $opt_h, $user;
+ system(@args) == 0 or die "htpasswd failed: $?";
+}
my $secretfile = $opt_s || 'secrets';
my $secretfile = $opt_s || 'secrets';