Changeset 1821 for trunk/server/common
- Timestamp:
- Apr 29, 2011, 9:14:49 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/server/common/oursrc/execsys/ldapize.pl
r1818 r1821 6 6 use Net::LDAP; 7 7 use Net::LDAP::Filter; 8 9 sub report_error10 {11 my $proto = shift;12 my $mesg = shift;13 14 if ($proto eq 'git') {15 $mesg = "ERR \n " . $mesg . "\n";16 my $len = length($mesg)+4;17 printf "%04x%s", $len, $mesg;18 } else {19 print $mesg;20 }21 exit 0;22 }23 8 24 9 my $url = $ARGV[0]; … … 46 31 47 32 my $vhostEntry = $mesg->pop_entry; 48 if (!$vhostEntry)49 {50 report_error($proto, "Could not find Host $hostname");51 }52 33 my $vhostDirectory = $vhostEntry->get_value('scriptsVhostDirectory'); 53 34
Note: See TracChangeset
for help on using the changeset viewer.