|
@@ -143,6 +143,9 @@ if ($ENV{'DEBUG'}) {
|
|
|
if (scalar(@ARGV) < 1) {
|
|
if (scalar(@ARGV) < 1) {
|
|
|
die('Usage: ' . basename($0) . " output_directory\n");
|
|
die('Usage: ' . basename($0) . " output_directory\n");
|
|
|
}
|
|
}
|
|
|
|
|
+if (!defined($API_KEY) || length($API_KEY) < 1) {
|
|
|
|
|
+ die("No API key provided\n");
|
|
|
|
|
+}
|
|
|
my $SUBSCRIPTIONS = 0;
|
|
my $SUBSCRIPTIONS = 0;
|
|
|
if ($0 =~ /subscription/i) {
|
|
if ($0 =~ /subscription/i) {
|
|
|
$SUBSCRIPTIONS = 1;
|
|
$SUBSCRIPTIONS = 1;
|