Avoid requiring root access

Make temporary folder generation lazy to postpone requiring root access
until needed.

1 files changed, 6 insertions, 1 deletions

diff --git a/sboconfig b/sboconfig
index b245d24..c7ea9b0 100755
--- a/sboconfig
+++ b/sboconfig
@@ -13,7 +13,7 @@
 use 5.16.0;
 use strict;
 use warnings FATAL => 'all';
-use SBO::Lib qw/ slurp usage_error script_error $tempdir open_fh %config $conf_dir $conf_file show_version /;
+use SBO::Lib qw/ _ERR_USAGE slurp usage_error script_error open_fh %config $conf_dir $conf_file show_version /;
 use File::Basename;
 use Getopt::Long qw(:config no_ignore_case_always);
 use File::Copy;
@@ -136,6 +136,11 @@ if (exists $changes{SLACKWARE_VERSION}) {
 	usage_error("$warn -V") unless $changes{SLACKWARE_VERSION} =~ m/^(\d+\.\d+|FALSE)$/;
 }
 
+unless ($< == 0) {
+	warn "This script requires root privileges.\n";
+	exit _ERR_USAGE;
+}
+
 sub config_write {
 	script_error('config_write requires at least two arguments.') unless @_ >= 2;