commit 4f99f93

au is no more

 1@@ -1,25 +0,0 @@
 2-#!/usr/bin/perl
 3-
 4-use strict;
 5-use warnings;
 6-
 7-my $donesth = 0;
 8-my $format = '.opus';
 9-
10-for(@ARGV){
11-	my $new = $_;
12-	next unless $new =~ s/\.flac$//;
13-	$new =~ tr/A-Z _/a-z\--/;
14-	$new =~ s/['()?!.&,]//g;
15-	$new =~ s/-+/-/g;
16-	$new =~ s/^-//;
17-	$new =~ s/-$//;
18-	$new .= $format;
19-	print "$_ -> $new\n";
20-	my @cmd = ('ffmpeg', '-i', $_, '-loglevel', 'error', '-map_metadata', '-1', $new);
21-	system @cmd and die "ffmpeg failed\n";
22-	unlink $_ or die $!;
23-	$donesth = 1;
24-}
25-
26-die "accomplished nothing\n" unless $donesth;