JezK
Edit File: foomatic-kitload
#!/usr/bin/perl use Foomatic::Defaults; die "No \$libdir defined in Foomatic::Defaults!?" unless $libdir; use Getopt::Std; getopts("d:hk:lf"); help() if $opt_h; list() if $opt_l; if (! -d $opt_k) { warn "No such directory `$opt_k'\n"; help(); } # Only overwrite existing files if the "-f" ("force") flag is set. my $dontoverwrite; if ($opt_f) { $dontoverwrite = ""; } else { $dontoverwrite = "k"; } # OK, now sanity check and import my $destdir = $opt_d; my $dir = $opt_k; if (!(-d "$dir/printer" or -d "$dir/driver" or -d "$dir/opt")) { die "No printer, driver, and/or opt directory in $dir; invalid kit?\n"; } die "That's the library directory!\n" if ($dir =~ m"$destdir$libdir/db/source/?"); open FILES, "find $dir -type f -print |" or die "Cannot run find!?"; while (<FILES>) { chomp; next if (m/^CVS$/); die "Non-xml file $_!\n" if (! m/\.xml$/); } close FILES or die "Cannot close pipe from find!"; # OK, we think it's valid now. die "Foomatic library directory '$destdir$libdir/db' is not writable!\n" if (! (-d "$destdir$libdir/db" and -w "$destdir$libdir/db")); # Make "tar" giving english output $ENV{'LC_ALL'} = "C"; $ENV{'LANG'} = "C"; # Copy the files my $retval = system("( cd $dir ; tar cf - --exclude CVS . ) | tar xv${dontoverwrite}Cf $destdir$libdir/db/source - 2> $destdir$libdir/kitload2.log | tee $destdir$libdir/kitload.log"); #$retval = $retval / 256; #if ($retval) { # die "Error copying files to $destdir$libdir/db/source: $?"; #} # Clean up log file from files which could not be copied. open STDOUTLOG, "< $destdir$libdir/kitload.log" or die "Cannot read $destdir$libdir/kitload.log!"; my @stdoutlog = <STDOUTLOG>; close STDOUTLOG; open STDERRLOG, "< $destdir$libdir/kitload2.log" or die "Cannot read $destdir$libdir/kitload2.log!"; my $all_ok = 1; while ($eline = <STDERRLOG>) { for $oline (@stdoutlog) { $choline = $oline; chomp($choline); next if ($choline !~ m!.xml$!); if ($eline =~ m!$choline!) { $oline = ""; $all_ok = 0; } } } my $newlog = join("", @stdoutlog); close STDERRLOG; if ($newlog !~ m!.xml$!m) { show_errors(); warn "\nNo file written into the database, probably this kit is already installed\nor it is empty!\n"; unlink "$destdir$libdir/kitload.log" or die "Cannot delete $destdir$libdir/kitload.log!"; } else { if (!$all_ok) { show_errors(); warn "\nSome files of the kit could not be written! The list of actually written\nfiles you find in $destdir$libdir/kitload.log.\n"; } else { print "\nKit successfully installed! The list of written files you find in\n$destdir$libdir/kitload.log.\n"; } open STDOUTLOG, "> $destdir$libdir/kitload.log" or die "Cannot write $destdir$libdir/kitload.log!"; print STDOUTLOG $newlog; close STDOUTLOG; } unlink "$destdir$libdir/kitload2.log" or die "Cannot delete $destdir$libdir/kitload2.log!"; exit 0; sub list { print STDOUT "$libdir/db/source\n"; exit(0); } sub help { print STDERR "Usage: foomatic-kitload -k kit-dir [-d destination prefix] [-l] [-f]\n"; exit(0); } sub show_errors { warn "\nError messages of the copying process:\n\n"; print STDERR `cat $destdir$libdir/kitload2.log`; }