X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/33edf1fb89d0b4ef7493d3753a2ed12568c46d90..be626dd5fa368d4adb39458af61a877e100e5b4e:/bin/disorder-autoplay?ds=sidebyside

diff --git a/bin/disorder-autoplay b/bin/disorder-autoplay
index 0ab0051..7b0eca3 100755
--- a/bin/disorder-autoplay
+++ b/bin/disorder-autoplay
@@ -59,9 +59,10 @@ EOF
 
 defined (my $op = shift @ARGV) or die_usage;
 if ($op eq "get") {
-  defined (my $conf = shift @ARGV) or die_usage;
+  defined (my $cf = shift @ARGV) or die_usage;
   !@ARGV or die_usage;
-  my $sk = connect_to_server $conf;
+  my $conf = load_config $cf;
+  my $sk = connect_to_server %$conf;
   my ($root, $list) = grobble_root $sk;
 
   for my $f (sort @$list) {
@@ -70,13 +71,14 @@ if ($op eq "get") {
   }
   close $sk;
 } else {
-  defined (my $conf = shift @ARGV) or die_usage;
+  defined (my $cf = shift @ARGV) or die_usage;
   my $fh;
   if (defined (my $list = shift @ARGV)) { open $fh, "<", $list; }
   else { $fh = \*STDIN; }
   my %black = ();
   while (<$fh>) { chomp; $black{$_} = 1; }
-  my $sk = connect_to_server $conf;
+  my $conf = load_config $cf;
+  my $sk = connect_to_server %$conf;
   my ($root, $list) = grobble_root $sk;
 
   FILE: for my $f (sort @$list) {