]>
Commit | Line | Data |
---|---|---|
93afd047 MT |
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"; |