From fe2caefcaa1ece2e7b163741184c3fc834440a48 Mon Sep 17 00:00:00 2001
From: ToshikazuOhiwa <toshikazu_ohiwa@mail.toyota.co.jp>
Date: Mon, 30 Mar 2020 09:31:31 +0900
Subject: ns-backupmanager branch

---
 backup_manager/config/uniqcheck.pl | 46 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100755 backup_manager/config/uniqcheck.pl

(limited to 'backup_manager/config/uniqcheck.pl')

diff --git a/backup_manager/config/uniqcheck.pl b/backup_manager/config/uniqcheck.pl
new file mode 100755
index 00000000..1470d7c8
--- /dev/null
+++ b/backup_manager/config/uniqcheck.pl
@@ -0,0 +1,46 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my @checkxpath = ('//item/@name', '//item/@id', '//category/@name');
+
+sub uniqcheck($$)
+{
+  my $xpath = shift(@_);
+  my $list = shift(@_);
+  my %u = ();
+  foreach my $key (@{$list}) {
+    if (exists($u{$key})) {
+      print "detect duplicate $xpath $key\n";
+      exit 1;
+    }
+    $u{$key} = 1;
+  }
+}
+
+sub getlist($$)
+{
+  my $xmlfile = shift(@_);
+  my $xpath = shift(@_);
+
+  $xmlfile =~ s/([\[\]\*\(\)])/\\$1/g;
+
+  open(my $rs, "xmllint --xpath \"$xpath\" $xmlfile |") or die "Cannot open $xmlfile:$!";
+  my $result = join('', <$rs>);
+  close $rs;
+  $result =~ s/^ +//;
+  my @result_array = split(/ +/, $result);
+  return @result_array;
+}
+
+if ($#ARGV < 0 || !(-f $ARGV[0])) {
+  print "No such file or directory.\n";
+  exit 1;
+}
+
+foreach my $xpath (@checkxpath) {
+  my @result_array = getlist($ARGV[0], $xpath);
+  uniqcheck($xpath, \@result_array);
+}
+
+0;
-- 
cgit 1.2.3-korg