Changeset 3 in mp3-find for trunk/lib/MP3/Find
- Timestamp:
- 01/30/06 02:05:25 (19 years ago)
- Location:
- trunk/lib/MP3/Find
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/lib/MP3/Find/DB.pm
r1 r3 47 47 # module return 48 48 1; 49 50 =head1 NAME 51 52 MP3::Find::DB - SQLite database backend to MP3::Find 53 54 =head1 SYNOPSIS 55 56 use MP3::Find::DB; 57 my $finder = MP3::Find::DB->new; 58 59 my @mp3s = $finder->find_mp3s( 60 dir => '/home/peter/music', 61 query => { 62 artist => 'ilyaimy', 63 album => 'myxomatosis', 64 }, 65 ignore_case => 1, 66 ); 67 68 =head1 REQUIRES 69 70 L<DBI>, L<DBD::SQLite>, L<SQL::Abstract> 71 72 =head1 DESCRIPTION 73 74 This is the SQLite database backend for L<MP3::Find>. 75 76 B<Note:> I'm still working out some kinks in here, so this backend 77 is currently not as stable as the Filesystem backend. 78 79 =head2 Special Options 80 81 =over 82 83 =item C<db_file> 84 85 The name of the SQLite database file to use. Defaults to F<~/mp3.db>. 86 87 The database should have at least one table named C<mp3> with the 88 following schema: 89 90 CREATE TABLE mp3 ( 91 mtime INTEGER, 92 FILENAME TEXT, 93 TITLE TEXT, 94 ARTIST TEXT, 95 ALBUM TEXT, 96 YEAR INTEGER, 97 COMMENT TEXT, 98 GENRE TEXT, 99 TRACKNUM INTEGER, 100 VERSION NUMERIC, 101 LAYER INTEGER, 102 STEREO TEXT, 103 VBR TEXT, 104 BITRATE INTEGER, 105 FREQUENCY INTEGER, 106 SIZE INTEGER, 107 OFFSET INTEGER, 108 SECS INTEGER, 109 MM INTEGER, 110 SS INTEGER, 111 MS INTEGER, 112 TIME TEXT, 113 COPYRIGHT TEXT, 114 PADDING INTEGER, 115 MODE INTEGER, 116 FRAMES INTEGER, 117 FRAME_LENGTH INTEGER, 118 VBR_SCALE INTEGER 119 ); 120 121 =back 122 123 =head1 TODO 124 125 Move the database/table creation code from F<mp3db> into this 126 module. 127 128 Database maintanence routines (e.g. clear out old entries) 129 130 =head1 SEE ALSO 131 132 L<MP3::Find>, L<MP3::Find::DB> 133 134 =head1 AUTHOR 135 136 Peter Eichman <peichman@cpan.org> 137 138 =head1 COPYRIGHT AND LICENSE 139 140 Copyright (c) 2006 by Peter Eichman. All rights reserved. 141 142 This program is free software; you can redistribute it and/or 143 modify it under the same terms as Perl itself. 144 145 =cut -
trunk/lib/MP3/Find/Filesystem.pm
r1 r3 73 73 # module return 74 74 1; 75 76 =head1 NAME 77 78 MP3::Find::Filesystem - File::Find-based backend to MP3::Find 79 80 =head1 SYNOPSIS 81 82 use MP3::Find::Filesystem; 83 my $finder = MP3::Find::Filesystem->new; 84 85 my @mp3s = $finder->find_mp3s( 86 dir => '/home/peter/music', 87 query => { 88 artist => 'ilyaimy', 89 album => 'myxomatosis', 90 }, 91 ignore_case => 1, 92 ); 93 94 =head1 REQUIRES 95 96 L<File::Find>, L<MP3::Info>, L<Scalar::Util> 97 98 =head1 DESCRIPTION 99 100 This module implements the C<search> method from L<MP3::Find::Base> 101 using a L<File::Find> based search of the local filesystem. 102 103 =head2 Special Options 104 105 There are no special options for B<MP3::Find::Filesystem>. See 106 L<MP3::Find> for the description of the general options. 107 108 =head1 SEE ALSO 109 110 L<MP3::Find>, L<MP3::Find::DB> 111 112 =head1 AUTHOR 113 114 Peter Eichman <peichman@cpan.org> 115 116 =head1 COPYRIGHT AND LICENSE 117 118 Copyright (c) 2006 by Peter Eichman. All rights reserved. 119 120 This program is free software; you can redistribute it and/or 121 modify it under the same terms as Perl itself. 122 123 =cut
Note: See TracChangeset
for help on using the changeset viewer.