Changeset 1823 for trunk/server/common/oursrc
- Timestamp:
- Apr 29, 2011, 9:15:02 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/server/common/oursrc/execsys/ldapize.pl
r1822 r1823 11 11 my $mesg; 12 12 13 my $vhostName = $hostname; 14 15 vhost: 13 16 # oh my gosh Net::LDAP::Filter SUCKS 14 17 my $filter = bless({and => … … 17 20 {or => 18 21 [{equalityMatch => {attributeDesc => 'scriptsVhostName', 19 assertionValue => $ hostname}},22 assertionValue => $vhostName}}, 20 23 {equalityMatch => {attributeDesc => 'scriptsVhostAlias', 21 assertionValue => $ hostname}}]}]},24 assertionValue => $vhostName}}]}]}, 22 25 'Net::LDAP::Filter'); 23 26 … … 31 34 32 35 my $vhostEntry = $mesg->pop_entry; 36 if (!defined $vhostEntry) { 37 $vhostName ne '*' or die 'No vhost for *'; 38 $vhostName =~ s/^(?:\*\.)?[^.]*/*/; # Try next wildcard 39 goto vhost; 40 } 41 33 42 my $vhostDirectory = $vhostEntry->get_value('scriptsVhostDirectory'); 34 43
Note: See TracChangeset
for help on using the changeset viewer.