sub readProcessFile {
my $self = shift;
my $doc;
my $file = shift;
#my $content;
if(-e "$self->{PROCESSDIR}/$file"){
my $parser = new XML::DOM::Parser;
$doc = $parser->parsefile("$self->{PROCESSDIR}/$file");
if(! $doc){
return 0;
}
my $processes = $doc->getElementsByTagName('process');
my $n = $processes->getLength();
my @processes_array = ();
#read all processes
for(my $i=0;$i <$n ; $i++){
my %process_data = undef;
my $process = $processes->item($i);
my $process_attr = $process->getAttributes();
my $procid = $process_attr->getNamedItem("id");
$process_data{"id"} = $procid->getValue;
$process_data{"profile"} = "default";
if($process_attr->getNamedItem("profile")){
$process_data{"profile"} = $process_attr->getNamedItem("profile")->getValue;
}

if($process->hasChildNodes()){
#read process parameters
for my $parameter ($process->getChildNodes){
-LINE-105- my $tag_name = $parameter->getTagName();
# get file by tag Name
if(lc($tag_name) eq "file"){
$process_data{$tag_name} = $parameter->getFirstChild->toString();
next;
}
#get parameters
elsif(lc($tag_name) eq "parameter"){
my $param_name = $parameter->getAttribute("name") || undef;
if($parameter->getFirstChild && defined($param_name)){
$process_data{$param_name} = $parameter->getFirstChild->toString();

}
}
}
}
if(%process_data){
push(@processes_array,\%process_data);
}
}
return @processes_array;
}
return 0;
}

<ffencoderd><process id="1"> <file>IAmLegend-Trailer.mp4</file>
<profile>default</profile>
</process>
</ffencoderd>