00000000 00000018 00000030 00000048 00000060 00000078 00000090 000000A8 000000C0 000000D8 000000F0 00000108 00000120 00000138 00000150 00000168 00000180 00000198 000001B0 000001C8 000001E0 000001F8 00000210 00000228 00000240 00000258 00000270 00000288 000002A0 000002B8 000002D0 000002E8 00000300 00000318 00000330 00000348 00000360 00000378 00000390 000003A8 000003C0 000003D8 000003F0 00000408 00000420 00000438 00000450 00000468 00000480 00000498 000004B0 000004C8 000004E0 000004F8 00000510 00000528 00000540 00000558
| 23 21 2F 75 73 72 2F 62 69 6E 2F 70 65 72 6C 0A 23 20 2D 2A 2D 20 70 65 72 6C 20 2D 2A 2D 0A 0A 23 20 54 68 69 73 20 69 73 20 66 6F 6F 6D 61 74 69 63 2D 63 6C 65 61 6E 75 70 64 72 69 76 65 72 73 2E 20 49 74 20 72 65 6D 6F 76 65 73 20 61 6C 6C 20 64 72 69 76 65 72 20 58 4D 4C 20 66 69 6C 65 73 0A 23 20 77 68 69 63 68 20 68 61 76 65 20 61 6E 20 65 6D 70 74 79 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 2E 20 53 6F 20 6F 6E 65 20 63 61 6E 20 61 76 6F 69 64 20 74 68 61 74 20 22 75 6E 75 73 61 62 6C 65 22 0A 23 20 70 72 69 6E 74 65 72 2F 64 72 69 76 65 72 20 63 6F 6D 62 6F 73 20 61 72 65 20 73 68 6F 77 6E 20 69 6E 20 66 72 6F 6E 74 65 6E 64 73 2E 20 54 68 69 73 20 70 72 6F 67 72 61 6D 20 61 6C 73 6F 20 72 75 6E 73 0A 23 20 77 68 65 6E 20 46 6F 6F 6D 61 74 69 63 20 69 73 20 6E 6F 74 20 69 6E 73 74 61 6C 6C 65 64 2E 0A 0A 75 73 65 20 46 6F 6F 6D 61 74 69 63 3A 3A 44 65 66 61 75 6C 74 73 3B 0A 69 66 20 28 24 23 41 52 47 56 20 3E 20 2D 31 29 20 7B 0A 20 20 20 20 24 6C 69 62 64 69 72 20 3D 20 24 41 52 47 56 5B 30 5D 3B 0A 7D 20 65 6C 73 69 66 20 28 24 45 4E 56 7B 46 4F 4F 4D 41 54 49 43 44 42 7D 29 20 7B 0A 20 20 20 20 24 6C 69 62 64 69 72 20 3D 20 24 45 4E 56 7B 46 4F 4F 4D 41 54 49 43 44 42 7D 3B 0A 7D 20 65 6C 73 69 66 20 28 21 24 6C 69 62 64 69 72 29 20 7B 0A 20 20 20 20 24 6C 69 62 64 69 72 20 3D 20 22 2F 75 73 72 2F 73 68 61 72 65 2F 66 6F 6F 6D 61 74 69 63 22 3B 0A 7D 0A 0A 23 20 52 65 61 64 20 6F 75 74 20 74 68 65 20 70 72 6F 67 72 61 6D 20 6E 61 6D 65 20 77 69 74 68 20 77 68 69 63 68 20 77 65 20 77 65 72 65 20 63 61 6C 6C 65 64 2C 20 62 75 74 20 64 69 73 63 61 72 64 20 74 68 65 20 70 61 74 68 0A 24 30 20 3D 7E 20 6D 21 2F 28 5B 5E 2F 5D 2B 29 5C 73 2A 24 21 3B 0A 24 70 72 6F 67 6E 61 6D 65 20 3D 20 24 31 3B 0A 0A 23 20 52 65 61 64 20 74 68 65 20 64 69 72 65 63 74 6F 72 79 20 77 69 74 68 20 74 68 65 20 64 72 69 76 65 72 27 73 20 58 4D 4C 20 65 6E 74 72 69 65 73 0A 6F 70 65 6E 64 69 72 20 44 52 49 56 45 52 44 49 52 2C 20 22 24 6C 69 62 64 69 72 2F 64 62 2F 73 6F 75 72 63 65 2F 64 72 69 76 65 72 22 20 7C 7C 0A 20 20 20 20 64 69 65 20 22 43 61 6E 6E 6F 74 20 6F 70 65 6E 20 64 72 69 76 65 72 20 58 4D 4C 20 64 69 72 65 63 74 6F 72 79 21 5C 6E 22 3B 0A 6D 79 20 24 64 72 69 76 65 72 3B 0A 77 68 69 6C 65 20 28 24 64 72 69 76 65 72 20 3D 20 72 65 61 64 64 69 72 28 44 52 49 56 45 52 44 49 52 29 29 20 7B 0A 20 20 20 20 6F 70 65 6E 20 44 52 49 56 45 52 45 4E 54 52 59 2C 20 22 3C 20 24 6C 69 62 64 69 72 2F 64 62 2F 73 6F 75 72 63 65 2F 64 72 69 76 65 72 2F 24 64 72 69 76 65 72 22 20 7C 7C 20 64 69 65 20 22 20 20 20 44 61 74 61 62 61 73 65 20 65 6E 74 72 79 20 66 6F 72 20 74 68 65 20 64 72 69 76 65 72 20 24 64 72 69 76 65 72 20 63 61 6E 6E 6F 74 20 62 65 20 72 65 61 64 21 5C 6E 22 3B 0A 20 20 20 20 6D 79 20 40 64 72 69 76 65 72 65 6E 74 72 79 66 69 65 6C 64 20 3D 20 3C 44 52 49 56 45 52 45 4E 54 52 59 3E 3B 0A 20 20 20 20 63 6C 6F 73 65 20 44 52 49 56 45 52 45 4E 54 52 59 3B 0A 20 20 20 20 6D 79 20 24 64 72 69 76 65 72 65 6E 74 72 79 20 3D 20 6A 6F 69 6E 20 28 27 27 2C 20 40 64 72 69 76 65 72 65 6E 74 72 79 66 69 65 6C 64 29 3B 0A 20 20 20 20 6E 65 78 74 20 75 6E 6C 65 73 73 20 24 64 72 69 76 65 72 65 6E 74 72 79 3B 0A 20 20 20 20 69 66 20 28 28 24 64 72 69 76 65 72 65 6E 74 72 79 20 3D 7E 20 6D 21 3C 70 72 6F 74 6F 74 79 70 65 3E 5C 73 2A 3C 2F 70 72 6F 74 6F 74 79 70 65 3E 21 73 67 29 20 7C 7C 0A 09 28 24 64 72 69 76 65 72 65 6E 74 72 79 20 3D 7E 20 6D 21 3C 70 72 6F 74 6F 74 79 70 65 5C 73 2A 2F 5C 73 2A 3E 21 73 67 29 20 7C 7C 0A 09 28 24 64 72 69 76 65 72 65 6E 74 72 79 20 21 7E 20 6D 21 3C 70 72 6F 74 6F 74 79 70 65 5B 3E 2F 5C 73 5D 21 73 67 29 29 20 7B 0A 09 75 6E 6C 69 6E 6B 28 22 24 6C 69 62 64 69 72 2F 64 62 2F 73 6F 75 72 63 65 2F 64 72 69 76 65 72 2F 24 64 72 69 76 65 72 22 29 20 7C 7C 0A 09 20 20 20 20 64 69 65 20 22 43 61 6E 6E 6F 74 20 64 65 6C 65 74 65 20 24 64 72 69 76 65 72 21 5C 6E 22 3B 0A 09 70 72 69 6E 74 20 22 24 64 72 69 76 65 72 20 68 61 73 20 61 6E 20 65 6D 70 74 79 20 63 6F 6D 6D 61 6E 64 20 6C 69 6E 65 2C 20 64 65 6C 65 74 65 64 21 5C 6E 22 3B 0A 20 20 20 20 7D 0A 7D 0A 63 6C 6F 73 65 64 69 72 20 44 52 49 56 45 52 44 49 52 3B 0A | #!/usr/bin/perl # -*- pe rl -*- # This is foomat ic-cleanupdrivers. It re moves all driver XML fil es # which have an empty command line. So one ca n avoid that "unusable" # printer/driver combos are shown in frontends. This program also runs # when Foomatic is not in stalled. use Foomatic:: Defaults; if ($#ARGV > - 1) { $libdir = $ARGV [0]; } elsif ($ENV{FOOMA TICDB}) { $libdir = $ENV{FOOMATICDB}; } elsi f (!$libdir) { $libd ir = "/usr/share/foomati c"; } # Read out the pr ogram name with which we were called, but discar d the path $0 =~ m!/([^/ ]+)\s*$!; $progname = $1 ; # Read the directory with the driver's XML en tries opendir DRIVERDIR, "$libdir/db/source/driv er" || die "Cannot o pen driver XML directory !\n"; my $driver; while ($driver = readdir(DRIVE RDIR)) { open DRIVER ENTRY, "< $libdir/db/sou rce/driver/$driver" || d ie " Database entry fo r the driver $driver can not be read!\n"; my @driverentryfield = <DRI VERENTRY>; close DRI VERENTRY; my $driver entry = join ('', @drive rentryfield); next u nless $driverentry; if (($driverentry =~ m!< prototype>\s*</prototype >!sg) || ($driverentry =~ m!<prototype\s*/\s*>! sg) || ($driverentry !~ m!<prototype[>/\s]!sg)) { unlink("$libdir/db/s ource/driver/$driver") | | die "Cannot delet e $driver!\n"; print "$ driver has an empty comm and line, deleted!\n"; } } closedir DRIVERDI R; |