Audio-DB

 view release on metacpan or  search on metacpan

bin/album_distribution.PLS  view on Meta::CPAN

=head1 AUTHOR

 Todd Harris (harris@cshl.org);
 $Id: album_distribution.PLS,v 1.1 2005/02/27 16:56:25 todd Exp $

=cut

!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;

bin/albums_below_threshold.PLS  view on Meta::CPAN

=head1 AUTHOR

 Todd Harris (harris@cshl.org);
 $Id: albums_below_threshold.PLS,v 1.1 2005/02/27 16:56:25 todd Exp $

=cut

!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;

bin/artists_with_multiple_genres.PLS  view on Meta::CPAN

=head1 AUTHOR

 Todd Harris (harris@cshl.org);
 $Id: artists_with_multiple_genres.PLS,v 1.1 2005/02/27 16:56:25 todd Exp $

=cut

!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;

bin/create_database.PLS  view on Meta::CPAN

=head1 AUTHOR

 Todd Harris (harris@cshl.org);
 $Id: create_database.PLS,v 1.1 2005/02/27 16:56:25 todd Exp $

=cut

!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;

bin/create_schema.PLS  view on Meta::CPAN

=head1 AUTHOR

 Todd Harris (harris@cshl.org);
 $Id: create_schema.PLS,v 1.1 2005/02/27 16:56:25 todd Exp $

=cut

!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;

bin/generate_album_list.PLS  view on Meta::CPAN

=head1 AUTHOR

 Todd Harris (harris@cshl.org);
 $Id: generate_album_list.PLS,v 1.1 2005/02/27 16:56:25 todd Exp $

=cut

!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;

bin/genre_statistics.PLS  view on Meta::CPAN

=head1 AUTHOR

Todd Harris (harris@cshl.org);
$Id: genre_statistics.PLS,v 1.1 2005/02/27 16:56:25 todd Exp $

=cut


!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;

bin/library_statistics.PLS  view on Meta::CPAN

=head1 AUTHOR

 Todd Harris (harris@cshl.org);
 $Id: library_statistics.PLS,v 1.1 2005/02/27 16:56:25 todd Exp $

=cut

!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;

bin/song_distribution.PLS  view on Meta::CPAN

=head1 AUTHOR

 Todd Harris (harris@cshl.org);
 $Id: song_distribution.PLS,v 1.1 2005/02/27 16:56:25 todd Exp $

=cut

!NO!SUBS!
close OUT or die "Can't close $file: $!";
chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
chdir $origdir;