Re-organized sub-directory by category

[staging/basesystem.git] / service / system / config / library / system_manager_config / last2order / tool / mklast2ordertbl.pl

diff --git a/service/system/config/library/system_manager_config/last2order/tool/mklast2ordertbl.pl b/service/system/config/library/system_manager_config/last2order/tool/mklast2ordertbl.pl
new file mode 100755 (executable)
index 0000000..9b7dcab
--- /dev/null
+++ b/service/system/config/library/system_manager_config/last2order/tool/mklast2ordertbl.pl
@@ -0,0 +1,107 @@
+#!/usr/bin/perl 
+use strict;
+
+use XML::XPath;
+
+my $LOCAL_XML = "./last2order.xml.tmp";
+my $LOCAL_DTD = "./last2order.dtd";
+
+my $DTD = <<'EODTD';
+<!ELEMENT last2order_tbl (last2order*) >
+
+<!ELEMENT  last2order EMPTY>
+<!ATTLIST last2order
+  front_video     CDATA "EMPTY"
+  front_sub_video CDATA "EMPTY"
+  front_audio     CDATA "EMPTY"
+  rear_video      CDATA "EMPTY"
+  rear_audio      CDATA "EMPTY"
+  ordername       CDATA #REQUIRED
+>
+EODTD
+
+sub usage(){
+  print STDERR "USAGE:$0 *.xml *.cfo\n";
+}
+
+#==== MAIN ====
+my $ret=system("which xmllint > /dev/null");
+if($ret != 0){
+  die("xmllint is not installed \n");
+}
+
+if(2 != @ARGV){
+  usage();
+  exit 1;
+}
+
+my $inXmlFile= $ARGV[0];
+my $outCfgXmlFile= $ARGV[1];
+
+
+#ARG CHECK
+if(! -e $inXmlFile){
+  die("$inXmlFile not found");
+} 
+
+
+system("cp $inXmlFile $LOCAL_XML");
+
+open FOUT,'>',$LOCAL_DTD or die("can't open $LOCAL_DTD");
+print FOUT $DTD;
+close FOUT;
+
+$ret=system("xmllint --noout --valid $LOCAL_XML ");
+if($ret != 0){
+  die("$inXmlFile is NOT VAILD");
+}
+
+my $xml = XML::XPath->new(filename=>$LOCAL_XML);
+
+my $last2order_tbl = $xml->find('/last2order_tbl/last2order');
+
+my @nodelist = $last2order_tbl->get_nodelist;
+my $numOfElement = @nodelist;
+
+printf("num of element :$numOfElement\n");
+
+my $writeValue;
+open FOUT,'+>',$outCfgXmlFile or die("can't open $outCfgXmlFile");
+binmode(FOUT);
+
+$writeValue = pack("A4","CTOO"); print FOUT $writeValue; 
+$writeValue = pack("L",$numOfElement); print FOUT $writeValue; 
+
+foreach my $last2order( @nodelist ) {
+  $writeValue = $last2order->findvalue('@front_video');
+  printf("FV:$writeValue  ");
+  $writeValue = pack("a128",$writeValue); print FOUT $writeValue; 
+
+  $writeValue = $last2order->findvalue('@front_sub_video');
+  printf("FSV:$writeValue  ");
+  $writeValue = pack("a128",$writeValue); print FOUT $writeValue; 
+
+  $writeValue = $last2order->findvalue('@front_audio');
+  printf("FA:$writeValue  ");
+  $writeValue = pack("a128",$writeValue); print FOUT $writeValue; 
+
+  $writeValue = $last2order->findvalue('@rear_video');
+  printf("RV:$writeValue  ");
+  $writeValue = pack("a128",$writeValue); print FOUT $writeValue; 
+
+  $writeValue = $last2order->findvalue('@rear_audio');
+  printf("RA:$writeValue  ");
+  $writeValue = pack("a128",$writeValue); print FOUT $writeValue; 
+
+  $writeValue = $last2order->findvalue('@ordername');
+  printf("ON:$writeValue  ");
+  $writeValue = pack("a64",$writeValue); print FOUT $writeValue; 
+
+  printf("\n");
+}
+
+close(FOUT);
+
+system("rm $LOCAL_XML $LOCAL_DTD");
+
+