Changeset 85a1ac1 for gutenbach-client/debian/bin

Timestamp:

Jun 26, 2010, 6:50:43 PM (14 years ago)

Author:

Jessica B. Hamrick <jhamrick@…>

Branches:

master, debian, mac, no-cups, web

Children:

0deef9e

Parents:

283d2737

git-author:

Jessica B. Hamrick <jhamrick@…> (06/26/10 18:50:43)

git-committer:

Jessica B. Hamrick <jhamrick@…> (06/26/10 18:50:43)

Message:

Create .gutenbach directory if it does not exist
Add more error checking for the gb* scripts

Location:

gutenbach-client/debian/bin

Files:

• gbq (modified) (1 diff)
• gbr (modified) (1 diff)
• gbrm (modified) (1 diff)
• gutenbach-client-config (modified) (1 diff)

gutenbach-client/debian/bin/gbq

@@ -19 +19 @@
 
 my $configpath = "$ENV{'HOME'}/.gutenbach/$q";
+if (! -e $configpath) {
+    print "Queue '$q' does not exist!\n";
+    exit 1;
+}
+
 my ($host, $queue);
 

gutenbach-client/debian/bin/gbr

@@ -17 +17 @@
 
 my $configpath = "$ENV{'HOME'}/.gutenbach/$q";
+if (! -e $configpath) {
+    print "Queue '$q' does not exist!\n";
+    exit 1;
+}
+
 my ($host, $queue);
 

gutenbach-client/debian/bin/gbrm

@@ -17 +17 @@
 
 my $configpath = "$ENV{'HOME'}/.gutenbach/$q";
+if (! -e $configpath) {
+    print "Queue '$q' does not exist!\n";
+    exit 1;
+}
+
 my ($host, $queue);
 

gutenbach-client/debian/bin/gutenbach-client-config

@@ -26 +26 @@
 
 my $configpath = "$ENV{'HOME'}/.gutenbach";
+
+if (! -e $configpath) {
+    mkdir "$configpath";
+}
 
 # list the existing queues