q

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