Advanced Search

Return to Snippet

Revision: 42447
at March 5, 2011 09:18 by alfirth
Initial Code 
if ( m|SAM_production/(SAM_Server_(\w+_(\w+?))_(\d{4}))/java/|g ) {
 my $jboss_dir = $1;
 my $db_name = $2; #not used 
 $dir_ref->{$jboss_dir}->{UCN} = $3;
 $dir_ref->{$jboss_dir}->{jboss_port} = $4;
}
Initial URL 









Initial Description














Initial Title





parse jboss instances









Initial Tags














Initial Language





Perl