Changeset a5cf43b

Timestamp:

Oct 2, 2010, 9:32:56 PM (14 years ago)

Author:

Jessica B. Hamrick <jhamrick@…>

Branches:

master, debian, mac, no-cups

Children:

addd785

Parents:

fc8707b

git-author:

Jessica B. Hamrick <jhamrick@…> (10/02/10 21:32:56)

git-committer:

Jessica B. Hamrick <jhamrick@…> (10/02/10 21:32:56)

Message:

Add a randomization option to gbr (Trac #30)

File:

• client/bin/gbr (modified) (4 diffs)

client/bin/gbr

@@ -11 +11 @@
 use Getopt::Long;
 use Image::ExifTool qw(ImageInfo);
+use List::Util 'shuffle';
 
 # the usage for this script
@@ -18 +19 @@
         -q, --queue             Specify a queue other than the default
         -d, --dryrun            Just list what would be done
+        -r, --random            Randomize the order that the songs are queued in
         -h, --help              Print this message
 USAGE
@@ -25 +27 @@
 my $dryrun = 0;
 my $help = 0;
+my $random = 0;
 
 # parse the options
 GetOptions ('q|queue=s' => \$q,
             'd|dryrun' => \$dryrun,
-            'h|help' => \$help);
+            'h|help' => \$help,
+            'r|random' => \$random);
 
 # if the -h flag was passed, then print the usage and exit
@@ -37 +41 @@
 }
 
+# get the files to print from the arguments
 my @files = @ARGV[0 .. $#ARGV];
+
+# if the random flag was passed, then randomize the order of the files
+if ($random) {
+    @files = shuffle(@files);
+}
 
 # if the -q option is not specified, then assume we're using the