X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Faccess_user.pm;h=70cef4a6a7ea27e7f6cfc8771a67dd89a75de4ae;hb=782c9989fba6332e28f25187da8d623bddaab466;hp=9f4c34ddb22dcf4ea542f8caf6f9628672b55c35;hpb=e07e59d2463eae2cdd421401a2d98f3879dc97f3;p=freeside.git

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 9f4c34ddb..70cef4a6a 100644
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -149,7 +149,16 @@ sub htpasswd_kludge {
   {
     return '';
   } else {
-    return 'htpasswd exited unsucessfully';
+
+    if ($? == -1) {
+      return "htpasswd failed to execute: $!";
+    } elsif ($? & 127) {
+      return sprintf("htpasswd died with signal %d, %s coredump",
+                     ($? & 127),  ($? & 128) ? 'with' : 'without' );
+    } else {
+      return sprintf("htpasswd exited with value %d", $? >> 8 );
+    }
+
   }
 }