

while (defined ($line = <STDIN>))
    {
    if ($line =~ /=head2\s+\*CFG\s+(.*?)$/)
        {
        my ($obj, $cfgname, $method, $version, $modify, $default, $see) = split (/\s*\/\s+/, $1) ;

        $cfgname = ucfirst (lc($cfgname)) ;
        $cfgname =~ s/(_.)/uc($1)/eg ;

        $modfiy = ($modify eq 'no' || $modfiy =~ /^\s*$/)?0:1 ;

        print "=head2 $cfgname\n\n" ;

        print "=over\n\n" ;

        print "=item Env:\n\n", uc ($cfgname) . "\n\n" ;

        print "=item Method:\n\n$obj -> config -> $method " . ($modfiy?'':'I<[read only]>') . "\n\n" if ($method) ;


        print "=item Available since:\n\n$version\n\n" if ($since) ;

        print "=item Default:\n\n$default\n\n" if ($default) ;

        print "=item Since:\n\n$version\n\n" if ($version) ;

        print "=item See also:\n\n$see\n\n" if ($see) ;

        print "=back\n\n" ;
        }
    else
        {
        print $line ;
        }
    }

