youtube-mp3-converter - wwwroot - exec - SOURCE CODE

#!/usr/bin/perl

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

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

my $store_path 	= "/home/www/mp3/store";
my $tmp_path 	= "/home/www/mp3/tmp";
my $ffmpeg_bin 	= "/usr/local/bin/ffmpeg";

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

 print "PREPARE QUERY \n";
# PREPARE THE QUERY
my $query 			= "SELECT video_url,video_author,video_title,video_category FROM converter WHERE mp3_ready='0' AND video_id='$video_id' LIMIT 1;";
my $query_handle 	= $dbh->prepare($query);
#open(W,"+>>out.txt");
#   print W "$query";
#close W;

# EXECUTE THE QUERY
$query_handle->execute();

# BIND TABLE COLUMNS TO VARIABLES
$query_handle->bind_columns(\$video_url,\$video_author,\$video_title,\$video_category);

 print "LOOP THROUGH RESULTS \n";
# LOOP THROUGH RESULTS

... [truncated, 62 more lines] ...

#!/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 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 $python 		= "/usr/bin/python";
my $python_script = "/home/wwwyoutube/exec/convert_simple.py";
my $error 		= "";
my $query_update = "";

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

# LOOP THROUGH RESULTS
my $mp3_id 	 	= md5_hex($video_url.$$.$client.$query.$dbh.$title.$fmt.$hash.rand(8094).rand(8094));
my @args 		= ("$python", "$python_script", "$video_url", "$mp3_id");
my $returnCodeDownload = system(@args);# == 0 or warn "system @args failed: $?"; # later give back error occurred
#print "@args --> returnCodeDownload=$returnCodeDownload\n\n"; exit;
if ($returnCodeDownload != 0) {
	$error = "E100: Video could not be downloaded."; # PyTube PRoxy Support einbauen
	$query_update = "UPDATE converter SET mp3_ready = '0', mp3_error = '$error' WHERE video_url = '$video_url';";
	eval { $dbh->do($query_update) };
	exit(1);
}

... [truncated, 33 more lines] ...

#!/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 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/www/mp3/store";
my $tmp_path 	= "/home/www/mp3/tmp";
my $ffmpeg_bin 	= "/usr/local/bin/ffmpeg";
my $python 		= "/usr/bin/python";
my $python_script = "/home/www/mp3/exec/convert_simple.py";
my $error 		= "";
my $query_update = "";

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

# LOOP THROUGH RESULTS
my $mp3_id 	 	= md5_hex($video_url.$$.$client.$query.$dbh.$title.$fmt.$hash.rand(8094).rand(8094));
my @args 		= ("$python", "$python_script", "$video_url", "$mp3_id");
my $returnCodeDownload = system(@args);# == 0 or warn "system @args failed: $?"; # later give back error occurred
if ($returnCodeDownload != 0) {
	$error = "E100: Video could not be downloaded."; # PyTube PRoxy Support einbauen
	$query_update = "UPDATE converter SET mp3_ready = '0', mp3_error = '$error' WHERE video_url = '$video_url';";
	eval { $dbh->do($query_update) };
	exit(1);
}

... [truncated, 33 more lines] ...

#!/usr/bin/perl -w
# Copyright © 2007-2013 Jamie Zawinski <jwz@jwz.org>
#
# Permission to use, copy, modify, distribute, and sell this software and its
# documentation for any purpose is hereby granted without fee, provided that
# the above copyright notice appear in all copies and that both that
# copyright notice and this permission notice appear in supporting
# documentation.  No representations are made about the suitability of this
# software for any purpose.  It is provided "as is" without express or 
# implied warranty.
#
# Given a YouTube or Vimeo URL, downloads the corresponding MP4 file.
# The name of the file will be derived from the title of the video.
#
#  --title "STRING"  Use this as the title instead.
#  --progress        Show a textual progress bar for downloads.
#  --suffix          Append the video ID to each written file name.
#  --size            Instead of downloading it all, print video dimensions.
#		     This requires "mplayer" and/or "ffmpeg".
#
# For playlists, it will download each video to its own file.
#
# You can also use this as a bookmarklet: put it somewhere on your web server
# as a .cgi, then bookmark this URL:
#
#   javascript:location='http://YOUR_SITE/youtubedown.cgi?url='+location
#
# or, the same thing but using a small popup window,
#
#   javascript:window.open('http://YOUR_SITE/youtubedown.cgi?url='+location.toString().replace(/%26/g,'%2526').replace(/%23/g,'%2523'),'youtubedown','width=400,height=50,top=0,left='+((screen.width-400)/2))
#
#
# When you click on that bookmarklet in your toolbar, it will give you
# a link on which you can do "Save Link As..." and be offered a sensible
# file name by default.
#
# Make sure you host that script on your *local machine*, because the entire
# video content will be proxied through the server hosting the CGI, and you
# don't want to effectively download everything twice.
#
# Created: 25-Apr-2007.

require 5;
use diagnostics;
use strict;
use Socket;

my $progname0 = $0;
my $progname = $0; $progname =~ s@.*/@@g;
my $version = q{ $Revision: 1.237 $ }; $version =~ s/^[^0-9]+([0-9.]+).*$/$1/;

... [truncated, 2151 more lines] ...