OTHER: Update perl tutorials.

Author: dsvensson

perl/tut5.pl

@@ -49,7 +49,7 @@
 # First we retrieve the config values stored in the server and print them out.
 # This is a normal dict.
 
-my $result = $xmms->configval_list;
+my $result = $xmms->config_list_values;
 $result->wait;
 my $value = $result->value;
 
@@ -64,10 +64,10 @@
 $result = $xmms->medialib_get_info( 1 );
 $result->wait;
 
-my $source_hash = $result->value->source_hash;
+my $propdict = $result->value;
 
-for my $source (keys %{ $source_hash }) {
-    while (my ($key, $val) = each %{ $source_hash->{$source} }) {
-        print "$source:$key = $val\n";
+while (my ($key, $values) = each %{ $propdict } ) {
+    while (my ($source, $val) = each %{ $values }) {
+        print "[$source] $key = $val\n";
     }
 }

perl/tut6.pl

@@ -18,14 +18,14 @@
 # program first before returning here.
 
 sub my_current_id {
-    my ($result, $xmms) = @_;
+    my ($value, $xc) = @_;
 
     # At this point the result instance is filled with the answer and we can
     # now extract it as normal.  The second argument is our connection object
     # which was passed in as the userdata.
 
-    printf "Current id is %d\n", $result->value;
-    $xmms->quit_loop;
+    printf "Current id is %d\n", $value;
+    $xc->quit_loop;
 }
 
 # Let's ask for the current id in an async way instead of the sync way as we
@@ -35,7 +35,8 @@ sub my_current_id {
 # my $request = $xmms->playback_current_id;
 # $request->notifier_set( \&my_current_id, $xmms );
 
-$xmms->request( playback_current_id => \&my_current_id, $xmms );
+#$xmms->request( playback_current_id => \&my_current_id );
+$xmms->request( playback_current_id => sub { my_current_id (@_, $xmms) } );
 
 # As you see we do it pretty much the same way that we did in tut2, but instead
 # of being able to access the current id directly (as we would have if we where