cleanup, wip for eventual release

1 files changed, 6 insertions, 4 deletions

diff --git a/mkslackinfo b/mkslackinfo
index db11244..c4d99ce 100755
--- a/mkslackinfo
+++ b/mkslackinfo
@@ -1,18 +1,20 @@
 #!/usr/bin/perl -w
 
-# Create a SB.o compliant .info file
+# Create a SBo compliant .info file
 # (and a .SlackBuild from a template, if one doesn't already exist,
 # and a slack-desc if a README exists)
 
+($SELF = $0) =~ s,.*/,,;
+
 # Fill in your name and email address here:
-$name = 'B. Watson';
-$email = 'yalhcru@gmail.com';
+$name  = $ENV{SBO_NAME}  || die "$SELF: please source ~/.sbostuff.cfg";
+$email = $ENV{SBO_EMAIL} || die "$SELF: please source ~/.sbostuff.cfg";
 
 use LWP::Simple;
 use Digest::MD5 'md5_hex';
 
 sub usage {
-	die "usage: mkslackinfo url [homepage] [version]\n";
+	die "usage: $SELF url [homepage] [version]\n";
 }
 
 $url = shift || &usage;