src/hwinfo/src/ids/update_x11

   1 #! /usr/bin/perl
   2
   3 mkdir "tmp", 0755;
   4
   5 system "./cdb_x11";
   6
   7 unlink "tmp/x11.hwinfo.all", "tmp/x11.hwinfo.s390";
   8
   9 chdir "tmp";
  10
  11 for (<x11.hwinfo.*>) {
  12   chomp;
  13   $in = $_;
  14   s/hwinfo\.//;
  15   $out = $_;
  16   system "../convert_hd $in";
  17   system "../check_hd --sort --check --join-keys-first --split --log=$out.log --out=$out hd.ids";
  18   rename $out, "../src/$out";
  19 }
  20
  21 chdir "..";
  22
  23 system "rm -rf tmp";