Changeset 1798 for trunk/server/common/oursrc
- Timestamp:
- Apr 2, 2011, 3:50:07 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/server/common/oursrc/execsys/ldapize.pl
r849 r1798 6 6 use Net::LDAP; 7 7 use Net::LDAP::Filter; 8 9 sub report_error 10 { 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 } 8 23 9 24 my $url = $ARGV[0]; … … 31 46 32 47 my $vhostEntry = $mesg->pop_entry; 48 if (!$vhostEntry) 49 { 50 report_error($proto, "Could not find Host $hostname"); 51 } 33 52 my $vhostDirectory = $vhostEntry->get_value('scriptsVhostDirectory'); 34 53
Note: See TracChangeset
for help on using the changeset viewer.