view release on metacpan or  search on metacpan

t/039XML-DOM2.t  view on Meta::CPAN

    
<log4perl:appender name="jabbender" class="\${jabberclass}">
          <param-nested name="\${paramnestedname}">
                <param name="\${hostname}" value="\${hostnameval}"/>
                <param name="\${password}" value="\${passwordval}"/>
                <param name="port" value="5222"/>
                <param name="resource" value="logger"/>
                <param name="username" value="bobjones"/>
         </param-nested>
         <param name="to" value="bob\@a.jabber.server"/>
         <param-text name="to">\${topcdata}</param-text>
          <layout class="Log::Log4perl::Layout::SimpleLayout"/>
         
</log4perl:appender>
<log4perl:appender name="DBAppndr2" class="Log::Log4perl::Appender::DBI">
          <param name="warp_message" value="0"/>
          <param name="datasource" value="DBI:CSV:f_dir=$WORK_DIR"/>
          <param name="bufferSize" value="2"/>
          <param name="password" value="sub { \$ENV{PWD} }"/>
           <param name="username" value="bobjones"/>
          

t/039XML-DOM2.t  view on Meta::CPAN

</log4perl:configuration>
EOL

$ENV{onemsgperappnder} = 'true';
$ENV{jabberclass} = 'Log::Dispatch::Jabber';
$ENV{paramnestedname} = 'login';
$ENV{hostname} = 'hostname';
$ENV{hostnameval} = 'a.jabber.server';
$ENV{password} = 'password';
$ENV{passwordval} = '12345';
$ENV{topcdata} = 'mary@another.jabber.server';
$ENV{tablename} = $table_name;
$ENV{cspecname} = 'G';
$ENV{perlcode} = 'return "UID $< GID $(";';

my $varsubstdata = Log::Log4perl::Config::config_read(\$varsubstconfig);

ok(Compare($xmldata, $propsdata)) || 
        do {
          if ($dump_available) {
              print STDERR "got: ",Data::Dump::dump($xmldata),"\n================\n";