blob: a3347ab6832456f811fd64ae0d082f57f96c3fe5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!/usr/bin/perl -w
#
# Sorts your MP3s into directories based on the sort pattern specified
# in ampache
use FindBind qw($Bin);
require "$Bin/init";
use Data::Dumper;
use Getopt::Long;
Getopt::Long::Configure('bundling','no_ignore_case');
GetOptions
("h|help" => \$usage,
"t|test" => \$pretend,
"a|all" => \$all,
"s|sort" => \$sort,
"c|clean" => \$clean,
"v|verbose" => \$verbose);
if ($help) {
usage();
}
#
# Pull in Data from Ampache
#
|
