add drakx-update-background tool to replace perl one-liner using Xconfig::xfree in bootsplash/scripts/switch-themes

1 files changed, 10 insertions, 0 deletions

diff --git a/tools/drakx-update-background b/tools/drakx-update-background
new file mode 100755
index 0000000..2ba3293
--- /dev/null
+++ b/tools/drakx-update-background
@@ -0,0 +1,10 @@
+#!/usr/bin/perl
+
+use lib qw(/usr/lib/libDrakX);
+use common;
+use Xconfig::xfree;
+use Xconfig::resolution_and_depth;
+
+require_root_capability();
+
+Xconfig::resolution_and_depth::set_default_background(Xconfig::xfree->read->get_resolution);