Changeset 1798 for trunk

Timestamp:

Apr 2, 2011, 3:50:07 AM (14 years ago)

Author:

adehnert

Message:

Useful error with unknown git vhost (Trac: #166)

File:

• trunk/server/common/oursrc/execsys/ldapize.pl (modified) (2 diffs)

trunk/server/common/oursrc/execsys/ldapize.pl

@@ -6 +6 @@
 use Net::LDAP;
 use Net::LDAP::Filter;
+
+sub report_error
+{
+    my $proto = shift;
+    my $mesg = shift;
+
+    if ($proto eq 'git') {
+        $mesg = "ERR \n  " . $mesg . "\n";
+        my $len = length($mesg)+4;
+        printf "%04x%s", $len, $mesg;
+    } else {
+        print $mesg;
+    }
+    exit 0;
+}
 
 my $url = $ARGV[0];
@@ -31 +46 @@
 
 my $vhostEntry = $mesg->pop_entry;
+if (!$vhostEntry)
+{
+    report_error($proto, "Could not find Host $hostname");
+}
 my $vhostDirectory = $vhostEntry->get_value('scriptsVhostDirectory');