youtube-mp3-converter - wwwroot - convert - SOURCE CODE

#!/usr/bin/perl

#print "\033[2J";    #clear the screen
#print "\033[0;0H"; #jump to 0,0

###########################
### Autor: Sebastian Enger / B.Sc. 
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1  - 28-10-2013@16.20.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################

## http://search.cpan.org/~mizzy/FFmpeg-Command-0.07/lib/FFmpeg/Command.pm
	
#use List::Util qw(min);
#use Data::Dumper;
use Getopt::Long;
no strict "refs";
use DBI;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use POSIX ();
#use FFmpeg::Command; # perl -MCPAN -e 'force install "FFmpeg::Command"'
 
GetOptions ("video_url=s" => \$video_url) or die("Error in command line arguments\n");

my $store_path 	= "/home/wwwyoutube/storeMP3save2014";
my $tmp_path 	= "/home/wwwyoutube/tmp"; # change in python script too
my $ffmpeg_bin 	= "/usr/local/bin/ffmpeg";
my $java 		= "/usr/bin/java";
my $java_script = "/home/wwwyoutube/convert/YoutubeDownloader.jar";
my $python 		= "/usr/bin/python";
my $python_script = "/home/wwwyoutube/exec/convert_simple.py";
my $error 		= "";
my $query_update = "";
my $path 		= "";
my $tmp_file	= "";
my $logfile 	= "/home/wwwyoutube/convert/LOGconverting.log";

my $dbh 		= DBI->connect("dbi:mysql:dbname=youtube","root","rouTer99", {
    AutoCommit 	=> 1,#0=$dbh->commit(); 
    RaiseError 	=> 1,
  });

open(W,"+>>$logfile");
# LOOP THROUGH RESULTS
my $mp3_id 	 	= md5_hex($video_url.$$.$java_script.$java.$dbh.$title.$fmt.$hash.rand(8094).rand(8094));
my @args 		= ("$java","-cp", "$java_script", "YoutubeDownloader", "$video_url", "$tmp_path");
#print W time() ." --> @args\n";

... [truncated, 65 more lines] ...

#!/usr/bin/perl

use strict;
use Net::Amazon;
use LWP::UserAgent;
use HTTP::Cookies;

my $lwpua = LWP::UserAgent->new();
my $amzua = Net::Amazon->new(token => '14NV3Q57Y02CD41HF2G2',
							 secret_key    => 'm1rWyBK7yTop5Cbw6SDqkXJ2efgckwjv7li2OCn4');

my $artist;
my $album;
my $path = $ARGV[0];
my $artist = "DVBBS Borgeous";
my $album = "Tsunami";


if($album =~ /(.+?) disc.+/i) {
    $album = $1;
}

# Get a request object
my $response = $amzua->search(artist => $artist,
                              mode => 'music',
                              keywords => $album);

my $result;
my $img;
if ($response->is_success()) {
    foreach $result ($response->properties) {
        my $fartist = $result->artist();
        my $falbum = $result->album();

        if($artist =~ /$fartist/i && $album =~ /$falbum/i) {
            printf("Found %s by %s\n", $falbum, $fartist);

            if(defined $result && exists $result->{'ImageUrlLarge'}) {
                $img = $lwpua->get($result->{'ImageUrlLarge'});
            } elsif(defined $result && exists $result->{'ImageUrlMedium'}) {
                $img = $lwpua->get($result->{'ImageUrlMedium'});
            } elsif(defined $result && exists $result->{'ImageUrlSmall'}) {
                $img = $lwpua->get($result->{'ImageUrlSmall'});
            } else {
                print("No images.\n");
                next;
            }

            if($img->is_success()) {
                unlink("$path/cover.jpg");

... [truncated, 11 more lines] ...