add ogg rating support, fix random tracks ignoreing randomartist setting

Author: carnager

clerk.pl

@@ -311,9 +311,9 @@ sub random_tracks {
 	for (my $i=1; $i <= $rvar{songs}; $i++) {
 		my @artists = $mpd->list($rvar{randomartist});
 		my $artist_r = $artists[rand @artists];
-		my @albums = $mpd->list('album', 'artist', $artist_r);
+		my @albums = $mpd->list('album', $rvar{randomartist}, $artist_r);
 		my $album_r = $albums[rand @albums];
-		my @tracks = $mpd->find('artist', $artist_r, 'album', $album_r);
+		my @tracks = $mpd->find($rvar{randomartist}, $artist_r, 'album', $album_r);
 		my $track_r = $tracks[rand @tracks];
 		my $foo = $track_r->{uri};
 		$mpd->add($foo);

clerk_rating_client

@@ -109,7 +109,19 @@ sub tag_mp3s {
 }
 
 sub tag_oggs {
-	print STDERR "!! OGG files not supported, yet\n";
+	my ($uri, $mode, $rating, $artist, $albumartist, $title, $album) = @_;
+	my @values = `vorbiscomment $uri`;
+	if ($mode eq "rating") {
+		print ":: tagging track \"${title}\" by \"${artist}\" with rating of \"${rating}\"\n";
+		@values = map {/^RATING/? "RATING=$rating" : $_ } @values;
+	} elsif ($mode eq "albumrating") {
+		print ":: tagging track \"${title}\" by \"${albumartist}\" with albumrating of \"${rating}\"\n";
+		@values = map {/^ALBUMRATING/? "ALBUMRATING=$rating" : $_ } @values;
+	}
+	system('vorbiscomment', '-c', '/dev/null', '-w', $uri);
+	for my $vorbiscomment (@values) {
+		system('vorbiscomment', '-a', '-t', $vorbiscomment, $uri);
+	}
 }
 
 sub sync_ratings {