← Back to branch summary

~mafix/mod-ldap-cfg/main

« back to all changes in this revision

Viewing changes to build-tree/mod_ldap_cfg/schema/utils/test.pl

  • Committer: felix
  • Date: 2009-02-23 23:32:28 UTC
  • Revision ID: felix@fixflop-20090223233228-u1p1mmz2qn7yqy55
initial import from http://modldapcfg.bayour.com/ version 1.0.7

Show diffs side-by-side

added added

removed removed

Lines of Context:
build-tree/mod_ldap_cfg/schema/utils/test.pl
 
1
while( <STDIN> )
 
2
{
 
3
    if( m|<li>| )
 
4
    {
 
5
        while( ! m|</li>| )
 
6
        {
 
7
            chomp;
 
8
            $_ .= <STDIN>;
 
9
        }
 
10
        # print "Trying: $_";
 
11
 
 
12
        m|href="(\w+)|;
 
13
        my $mod = $1;
 
14
        m|">(.+)</a>|;
 
15
        my $dir = $1;
 
16
        $dir =~ s|&lt;|<|;
 
17
        $dir =~ s|&gt;|>|;
 
18
        push( @{ $a{ $mod } }, $dir);
 
19
    }
 
20
}
 
21
 
 
22
print map( "[$_]\n" . join( "\n", sort @{ $a{ $_ } } ) . "\n\n", sort keys %a );