slightly better bootstrapping for htpasswd kludge... hopefully that will go away...

[freeside.git] / FS / FS / access_user.pm

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index d325dd6..37b3b2f 100644 (file)
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -104,6 +104,7 @@ sub insert {
 
 sub htpasswd_kludge {
   my $self = shift;
+  unshift @_, '-c' unless -e $htpasswd_file;
   if ( 
        system('htpasswd', '-b', @_,
                           $htpasswd_file,