Removed unnecessary files.

[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
deleted file mode 100755 (executable)
index 9b7dcab..0000000
--- a/service/system/config/library/system_manager_config/last2order/tool/mklast2ordertbl.pl
+++ /dev/null
@@ -1,107 +0,0 @@
-#!/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");
-
-