q

   1 #!/usr/bin/perl
   2 ############################################################################
   3 # soepkiptng (c) copyright 2000 Eric Lammerts <eric@lammerts.org>.
   4 ############################################################################
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License, version 2, as
   7 # published by the Free Software Foundation.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # A copy of the GNU General Public License is available on the World Wide Web
  15 # at `http://www.gnu.org/copyleft/gpl.html'.  You can also obtain it by
  16 # writing to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17 # Boston, MA 02111-1307, USA.
  18 ############################################################################
  19
  20 use integer;
  21 use Cwd 'abs_path';
  22 use DBI;
  23 use Socket;
  24 use Getopt::Std;
  25
  26 # find program directory
  27 $_ = $0;
  28 while(-l) {
  29         my $l = readlink or die "readlink $_: $!\n";
  30         if($l =~ m|^/|) { $_ = $l; } else { s|[^/]*$|/$l|; }
  31 }
  32 m|(.*)/|;
  33 my $progdir = abs_path($1);
  34
  35 require "$progdir/soepkiptng.lib";
  36
  37 getopts('avnc:gt:');
  38
  39 read_configfile(\%conf, $opt_c);
  40
  41 eval "use Term::ReadKey;";
  42 if($@) {
  43         warn "Term::ReadKey not found; assuming 80-column terminal.\n";
  44         $screen_width = 80;
  45 } else {
  46         if(-t) {
  47                 ($screen_width) = GetTerminalSize();
  48         } else {
  49                 $screen_width = 80;
  50         }
  51 }
  52
  53 sub albumtrack($$) {
  54         my ($album, $track) = @_;
  55
  56         if($track) {
  57                 my $nr = "[$track]";
  58                 $album = substr($album, 0, $w_al - length($nr));
  59                 if(length($album) != $w_al - length($nr)) { $album .= " "; }
  60                 $album .= $nr;
  61         } else {
  62                 $album = substr($album, 0, $w_al);
  63         }
  64         $album;
  65 };
  66
  67 sub splitrange($$) {
  68         my ($val, $max) = @_;
  69         my @ret;
  70
  71         $val =~ s/\b\s+\b/,/g;
  72         s/\s//g;
  73         foreach(split /,/, $val) {
  74                 if(/(\d*)-(\d*)/) {
  75                         my ($b, $e, $i);
  76                         $b = $1;
  77                         $e = $2 || $max;
  78                         for($i = $b; $i <= $e; $i++) {
  79                                 push @ret, $i;
  80                         }
  81                 } else {
  82                         push @ret, $_;
  83                 }
  84         }
  85         @ret;
  86 }
  87
  88 sub killit($) {
  89         my ($killid) = @_;
  90         ($song_id) = kill_song('', $killid);
  91         if(!defined($song_id)) {
  92                 print "not killing (song $killid not playing anymore)\n";
  93                 return undef;
  94         }
  95         ($t, $a, $al, $tr) = $dbh->selectrow_array(
  96                 "SELECT song.title,artist.name,album.name,song.track" .
  97                 " FROM song,artist,album" .
  98                 " WHERE song.id=$song_id" .
  99                 " AND song.artist_id=artist.id AND song.album_id=album.id"
 100         );
 101         printf "next: %s - %02d. %s [%s]\n", $a, $tr, $t, $al;
 102 }
 103
 104 $| = 1;
 105
 106 $dbh = connect_to_db(\%conf);
 107
 108 if($opt_n) {
 109         open F, $conf{statusfile} or exit;
 110         $nowplaying = <F>;
 111         close F;
 112
 113         my $user = (getpwuid $<)[6] || getpwuid $< || "uid $<";
 114         $user =~ s/,.*//;
 115         my $song = add_song_next($dbh, "queue", $nowplaying, $user)
 116                 or die "No next song.\n";
 117
 118         print "Adding next song ($song->{track}, $song->{title}).\n";
 119         exit;
 120 }
 121
 122 $screen_width = 80 if $screen_width == 0; # just in case
 123 $w_a = $screen_width * 25 / 100;
 124 $w_t = $screen_width * 45 / 100;
 125 $w_al = $screen_width - $w_a - $w_t - 7;
 126 $w_a > 0 && $w_t > 0 && $w_al > 0 or die "screen size too small.\n";
 127
 128 if($0 =~ /qr$/ || @ARGV) {
 129         my @a;
 130         foreach(@ARGV) {
 131                 $q = '';
 132                 if(s/^-//) { $q = " NOT"; }
 133                 my $a = $_;
 134                 $a =~ s/^\w+=//;
 135                 $a =~ s/^\^// or $a = "%$a";
 136                 $a =~ s/\$$// or $a .= "%";
 137
 138                 if($0 =~ /qa$/ || s/^ar=//) {
 139                         $q .= " (artist.name LIKE ?)";
 140                         push @a, $a;
 141                 }
 142                 if($0 =~ /qa$/ || s/^f=//) {
 143                         $q .= " (song.filename LIKE ?)";
 144                         push @a, $a;
 145                 }
 146                 elsif($0 =~ /ql$/ || s/^al=//) {
 147                         $q .= " (album.name LIKE ?)";
 148                         push @a, $a;
 149                 }
 150                 elsif($0 =~ /qt$/ || s/^t=//) {
 151                         $q .= " (song.title LIKE ?)";
 152                         push @a, $a;
 153                 }
 154                 else {
 155                         $q .= " (song.title LIKE ? OR artist.name LIKE ? OR album.name LIKE ?)";
 156                         push @a, $a, $a, $a;
 157                 }
 158                 push @q, $q;
 159         }
 160         if($opt_g) {
 161                 push @q, "track > 0";
 162         }
 163         if($opt_t) {
 164                 push @q, "track <= $opt_t";
 165         }
 166         if($0 =~ /qr$/) {
 167                 push @q, " last_played=0 AND (unix_timestamp(now()) - unix_timestamp(time_added)) < 7*86400";
 168         }
 169         $q = "SELECT title,artist.name as artist,album.name as album,song.id as id,track,filename,length,encoding" .
 170              " FROM song,artist,album" .
 171              " WHERE song.artist_id=artist.id AND song.album_id=album.id" .
 172              " AND present AND filename LIKE '/%' AND " . join(" AND ", @q) .
 173              " ORDER BY artist.name,album.name,song.track,song.title";
 174 #warn $q;
 175         $sth = $dbh->prepare($q);
 176         $sth->execute(@a);
 177
 178         $head = sprintf("\n    %-${w_a}s %-${w_t}s %-${w_al}s\n    %s %s %s\n",
 179                 'Artist', 'Song', 'Album', '-'x$w_a, '-'x$w_t, '-'x$w_al);
 180
 181         $i = 1;
 182         while($_ = $sth->fetchrow_hashref) {
 183                 if($opt_g) {
 184                         my $f = $_->{filename};
 185                         $f =~ s|//+|/|g;
 186                         $f =~ s|^(.*)/|| or die;
 187                         my $d = $1;
 188                         $d =~ s|^.*/|| or die;
 189                         $f =~ s|\.[^.]+$||;
 190                         $f =~ /([^-\w])/ and die "\nERROR: invalid character ($1) in filename ($f)!\n";
 191                         if(defined($dirname)) {
 192                                 $dirname eq $d or die "\nERROR: inconsistent dirname ($dirname, $d)\n";
 193                         } else {
 194                                 $dirname = $d;
 195                                 $g_output .= ">$dirname\n";
 196                         }
 197                         $_->{title} =~ s/^(\W+)/<$1>/;
 198                         $g_artist = $_->{artist} unless $g_artist;
 199                         $g_album = $_->{album} unless $g_album;
 200                         $g_output .=  "-$_->{track}\n" if $_->{track};
 201                         $g_output .=  "/$f\n";
 202                         $g_output .=  ":$_->{artist}\n" unless $_->{artist} eq $g_artist;
 203                         $g_output .=  "$_->{title}\n";
 204                         next;
 205                 }
 206                 print STDERR $head;
 207                 $head = '';
 208 #               $sep = ($i % 5) == 4? "_":" ";
 209 #               printf STDERR "%-3s$sep%-${w_a}.${w_a}s$sep%-${w_t}.${w_t}s$sep%-${w_al}.${w_al}s\n",
 210 #                       "$i.", $_->{artist}, $_->{title}, albumtrack($_->{album}, $_->{track});
 211                 my $s = sprintf "%-3s %-${w_a}.${w_a}s %-${w_t}.${w_t}s %-${w_al}.${w_al}s\n",
 212                         "$i.", $_->{artist}, $_->{title}, albumtrack($_->{album}, $_->{track});
 213                 $s =~ s/ /_/g if $i % 5 == 0;
 214                 print STDERR $s;
 215                 $opt_v and printf STDERR "%d:%02d %s %s\n", $_->{length} / 60, $_->{length} % 60,
 216                         $_->{encoding}, $_->{filename};
 217                 $id[$i] = $_->{id};
 218                 $i++;
 219         }
 220         if($opt_g) {
 221                 print "$g_artist-$g_album\n";
 222                 print $g_output;
 223                 exit 0;
 224         }
 225         exit 1 if $i == 1;
 226         if($opt_a) {
 227                 $i == 2 or die "More than 1 hit\n";
 228                 $_ = 1;
 229         } else {
 230                 print STDERR "\nAdd (a=all): ";
 231                 $_ = <STDIN>;
 232                 exit unless /\S/;
 233         }
 234
 235         my $user = (getpwuid $<)[6] || getpwuid $< || "uid $<";
 236         $user =~ s/,.*//;
 237         if(/^a/i) {
 238                 for($n = 1; $n < $i; $n++) {
 239                         add_song($dbh, "queue", $user, $id[$n]) or warn "can't add song.\n";
 240                 }
 241         } else {
 242                 foreach(splitrange($_, $i)) {
 243                         add_song($dbh, "queue", $user, $id[$_]) or warn "can't add song.\n"
 244                                 if $id[$_];
 245                 }
 246         }
 247 }
 248
 249 printf "\n    %-${w_a}s %-${w_t}s %-${w_al}s\n    %s %s %s\n",
 250         'Artist', 'Song', 'Album', '-'x$w_a, '-'x$w_t, '-'x$w_al;
 251
 252 $i = 1;
 253 if($_ = get_nowplaying($dbh)) {
 254         printf "1.* %-${w_a}.${w_a}s %-${w_t}.${w_t}s %-${w_al}.${w_al}s\n",
 255                 $_->{artist}, $_->{title}, albumtrack($_->{album}, $_->{track});
 256         if($_->{id}) { $delid[$i++] = $_->{id}; }
 257         $nowid = $_->{id};
 258 }
 259
 260 $query = "SELECT song.title,artist.name,album.name,song.id,song.track" .
 261         " FROM song,artist,album,queue" .
 262         " WHERE song.id=queue.song_id" .
 263         " AND song.artist_id=artist.id AND song.album_id=album.id" .
 264         " ORDER BY queue.song_order";
 265 $sth = $dbh->prepare($query);
 266 $rv = $sth->execute;
 267 while(@q = $sth->fetchrow_array) {
 268         printf "%-3s %-${w_a}.${w_a}s %-${w_t}.${w_t}s %-${w_al}.${w_al}s\n",
 269                 "$i.", $q[1], $q[0], albumtrack($q[2], $q[4]);
 270         $delid[$i] = $q[3];
 271         $i++;
 272 }
 273
 274 $opt_a and exit;
 275 print STDERR "\nDelete (a=all): ";
 276 $_ = <STDIN>;
 277 exit unless /\S/;
 278 if(/^S/) {
 279         shuffle_table($dbh, "queue");
 280 } elsif(/^a/i) {
 281         $sth = $dbh->prepare("DELETE FROM queue");
 282         $sth->execute();
 283         killit($nowid);
 284 } else {
 285         foreach(splitrange($_, $i)) {
 286                 if($_ == 1) { killit($nowid); }
 287                 else { del_song($dbh, "queue", $delid[$_]) if $delid[$_]; }
 288         }
 289 }
 290
 291 $sth->finish;
 292 $dbh->disconnect;
 293