Changeset 7cdd65d for client/bin/gutenbach-client-config

Timestamp:

Aug 14, 2010, 9:30:39 PM (14 years ago)

Author:

Kyle Brogle <broglek@…>

Branches:

master, debian, mac, no-cups

Children:

618236b, 9dee329

Parents:

55b24d1

git-author:

Kyle Brogle <broglek@…> (08/14/10 21:30:39)

git-committer:

Kyle Brogle <broglek@…> (08/14/10 21:30:39)

Message:

Implemented default queue in client scripts.
Queue argument now optional for gb{r,rm,q}, and also takes form of -q QUEUE
now.

gutenbach-client-config -sset-default QUEUE will set default queue

Updated manpages accordingly.

File:

• client/bin/gutenbach-client-config (modified) (2 diffs)

client/bin/gutenbach-client-config

@@ -19 +19 @@
 my $delete = "";
 my $host = "";
+my $default = "";
 
 GetOptions ('l|list' => \$list,
+            's|set-default=s' => \$default,
             'a|add=s' => \$add,
             'd|delete=s' => \$delete,
@@ -30 +32 @@
     mkdir "$configpath";
 }
+#set given queue to default
+if($default and !$add and !$delete and !$list) {
+    unless(-e "$configpath/$default") {
+        print "Error: queue '$default' doesn't exist yet...you should add it first.\n";
+        exit 1;
+    }
+    if( -e "$configpath/DEFAULT"){
+        unlink("$configpath/DEFAULT") or die "Couldn't remove config file '$configpath/DEFAULT'";
+    }
+    my $symlink_exists = eval { symlink("",""); 1 };
+    if ($symlink_exists){
+        symlink("$configpath/$default","$configpath/DEFAULT");
+        print "Changed default queue to $default.\n";
+    }
+    else
+    {
+        print "Error creating symlink to $configpath/$default";
+        exit 1;
+    }
+}
+    
+        
 
 # list the existing queues
-if ($list and !$add and !$delete) {
+elsif ($list and !$add and !$delete and !$default) {
     my @queues = glob("$configpath/*") or die "Couldn't find configuration files at '$configpath'";