| #!/usr/bin/perl -w |
| |
| # |
| # Author: Artem B. Bityutskiy <dedekind@oktetlabs.ru> |
| # |
| # A small scrip which creates UBI device nodes in /dev. UBI allocates |
| # major number dynamically, so the script looks at /proc/devices to find |
| # out UBI's major number. |
| # |
| |
| |
| my $proc = '/proc/devices'; |
| my $regexp = '(\d+) (ubi\d+)$'; |
| |
| |
| open FILE, "<", $proc or die "Cannot open $proc file: $!\n"; |
| my @file = <FILE>; |
| close FILE; |
| |
| foreach (@file) { |
| next if not m/$regexp/g; |
| print "found $2\n"; |
| |
| system("rm -rf /dev/$2"); |
| system("mknod /dev/$2 c $1 0"); |
| |
| for (my $i = 0; $i < 128; $i += 1) { |
| system("rm -rf /dev/$2_$i"); |
| my $j = $i + 1; |
| system("mknod /dev/$2_$i c $1 $j"); |
| } |
| } |
