init
This commit is contained in:
253
code_depricated/instafeed.pl
Executable file
253
code_depricated/instafeed.pl
Executable file
@@ -0,0 +1,253 @@
|
||||
#!usr/bin/perl
|
||||
use strict;
|
||||
use warnings;
|
||||
use Data::Dumper;
|
||||
use JSON::XS qw(encode_json decode_json);
|
||||
use File::Slurp qw(read_file write_file);
|
||||
use Getopt::Long qw(GetOptions);
|
||||
use File::Basename;
|
||||
|
||||
my %config = (
|
||||
'profile' => undef,
|
||||
'SRCRoot' => './src/',
|
||||
'uploadPHP_CMD' => '/usr/bin/php ./vendor/mgp25/instagram-php/examples/uploadPhoto.php',
|
||||
'uploadPHP_debug' => 1,
|
||||
'uploadPHP_truncated_debug' => 1,
|
||||
);
|
||||
|
||||
my %profile = (
|
||||
'dreamyourmansion' => {
|
||||
'DBFilepath' => './src/db/db_dreamyourmansion.dat',
|
||||
'imageDir' => './src/images/dreamyourmansion',
|
||||
'filename_as_title' => 0,
|
||||
'uploadPHP' => {
|
||||
'username' => 'dreamyourmansion',
|
||||
'password' => 'nBLT!4H3aI@c',
|
||||
'truncated_debug' => 1,
|
||||
'proxy_user' => 'zino%40onlinehome.de',
|
||||
'proxy_password' => 'zinomedial33t',
|
||||
'proxy_ip' => 'de435.nordvpn.com',
|
||||
'proxy_port' => 80,
|
||||
'tags' => '#investment #immobilie #mansionhouse #dream #poolhouse #villa #realestate #loft #awesome #lifestyle #motivation #luxury',
|
||||
'description_add' => "The most beautiful real estates in the world!\n\nBenefit from the flourishing housing market in Germany. Contact us now by DM.\n\nVom Mieter zum Eigentümer! Exklusives Portfolio: Kontaktiere uns jetzt per DM.",
|
||||
},
|
||||
},
|
||||
'vstbestprices' => {
|
||||
'DBFilepath' => './src/db/db_vstbestprices.dat',
|
||||
'imageDir' => './src/images/vstbestprices',
|
||||
'filename_as_title' => 1,
|
||||
'uploadPHP' => {
|
||||
'username' => 'vstbestprices',
|
||||
'password' => 'Vst#1337vst#1337',
|
||||
'truncated_debug' => 1,
|
||||
'proxy_user' => 'zino%40onlinehome.de',
|
||||
'proxy_password' => 'zinomedial33t',
|
||||
'proxy_ip' => 'de435.nordvpn.com',
|
||||
'proxy_port' => 80,
|
||||
'tags' => '#Beats #FLStudio20 #Producer #Ableton #Beatmaker #Studio #ProTools #Music #DAW #LogicPro #FruityLoops #VST #VSTplugins #NativeInstruments #MIDI #Drums #AutoTune #Spectrasonics #Omnisphere #AutoTune #Plugins #Keyscape #Trilian #Logic',
|
||||
'description_add' => 'INSTALLATION SUPPORT is included in all prices so you can relax and focus on producing!',
|
||||
},
|
||||
},
|
||||
'vstbestprices_testing' => {
|
||||
'DBFilepath' => './src/db/db_vstbestprices.dat',
|
||||
'imageDir' => './src/images/vstbestprices',
|
||||
'filename_as_title' => 1,
|
||||
'uploadPHP' => {
|
||||
'username' => 'adobebestprices',
|
||||
'password' => 'vst#1337',
|
||||
'truncated_debug' => 1,
|
||||
'proxy_user' => 'zino%40onlinehome.de',
|
||||
'proxy_password' => 'zinomedial33t',
|
||||
'proxy_ip' => 'de435.nordvpn.com',
|
||||
'proxy_port' => 80,
|
||||
'tags' => '#Beats #FLStudio20 #Producer #Ableton #Beatmaker #Studio #ProTools #Music #DAW #LogicPro #FruityLoops #VST #VSTplugins #NativeInstruments #MIDI #Drums #AutoTune #Spectrasonics #Omnisphere #AutoTune #Plugins #Keyscape #Trilian #Logic',
|
||||
'description_add' => 'INSTALLATION SUPPORT is included in all prices so you can relax and focus on producing!',
|
||||
},
|
||||
},
|
||||
'adobebestprices' => {
|
||||
'DBFilepath' => './src/db/db_adobebestprices.dat',
|
||||
'imageDir' => './src/images/adobebestprices/',
|
||||
'filename_as_title' => 0,
|
||||
'uploadPHP' => {
|
||||
'username' => 'adobebestprices',
|
||||
'password' => 'vst#1337',
|
||||
'truncated_debug' => 1,
|
||||
'proxy_user' => 'zino%40onlinehome.de',
|
||||
'proxy_password' => 'zinomedial33t',
|
||||
'proxy_ip' => 'de435.nordvpn.com',
|
||||
'proxy_port' => 80,
|
||||
'tags' => '#adobe #photoshop #adobeillustrator #vector #illustrator #adobephotoshop #vectorart #graphicdesign #aftereffects #logo #cs6 #lightroom #graphic',
|
||||
'description_add' => 'Photoshop, Lightroom, Illustrator, Dreamviewer, Premiere for WIN & MAC | Installation support is included in all our prices!',
|
||||
},
|
||||
},
|
||||
);
|
||||
|
||||
my (%data, %db);
|
||||
my $dbKeysStart = 0;
|
||||
my $profile;
|
||||
|
||||
# MAIN
|
||||
&CheckParameter();
|
||||
&UndumpFromFile();
|
||||
#print Dumper \%db;
|
||||
&DirectoryListing();
|
||||
print Dumper \%data;
|
||||
&FindNewDataset();
|
||||
&Summary();
|
||||
|
||||
sub CheckParameter {
|
||||
&Delimiter((caller(0))[3]);
|
||||
|
||||
GetOptions ('profile=s' => \$config{'profile'}) or die "Usage: $0 --profile *name*\n";
|
||||
die "Usage: $0 --profile *name*\n" if !$config{'profile'} ;
|
||||
$profile = $config{'profile'};
|
||||
if (!exists $profile{$profile}) {
|
||||
print "Template for profile '$profile' does not exist. Following templates are available:\n";
|
||||
print "'$_' " for keys(%profile);
|
||||
print "\n";
|
||||
die;
|
||||
}
|
||||
}
|
||||
|
||||
sub UndumpFromFile {
|
||||
&Delimiter((caller(0))[3]);
|
||||
|
||||
if (-e $profile{$profile}{'DBFilepath'}) {
|
||||
my $json = read_file($profile{$profile}{'DBFilepath'}, { binmode => ':raw' });
|
||||
if (!$json) {
|
||||
warn "DB file $profile{$profile}{'DBFilepath'} is empty.\n";
|
||||
return;
|
||||
}
|
||||
%db = %{ decode_json $json };
|
||||
$dbKeysStart = scalar(keys(%db));
|
||||
print "INFO: $profile{$profile}{'DBFilepath'} has " . $dbKeysStart . " keys.\n";
|
||||
}
|
||||
elsif (!-e $profile{$profile}{'DBFilepath'}) {
|
||||
print "INFO: NO DB file found at $profile{$profile}{'DBFilepath'}. Creating now... ";
|
||||
write_file($profile{$profile}{'DBFilepath'}, '');
|
||||
print "done.\n";
|
||||
die "Please restart.";
|
||||
# &UndumpFromFile();
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
sub DirectoryListing {
|
||||
&Delimiter((caller(0))[3]);
|
||||
|
||||
# opendir(DIR, $profile{$profile}{'imageDir'});
|
||||
# my @files = grep(/\.jpg$|\.png$|\.jpeg$|/,readdir(DIR));
|
||||
# closedir(DIR);
|
||||
my @files = glob ( "$profile{$profile}{'imageDir'}/*" );
|
||||
%data = map { $_ => { 'FILEPATH' => "$_" } } @files;
|
||||
}
|
||||
|
||||
sub Summary {
|
||||
&Delimiter((caller(0))[3]);
|
||||
|
||||
print "$profile{$profile}{'DBFilepath'} has " . scalar(keys(%db)) . " keys (before $dbKeysStart).\n";
|
||||
}
|
||||
|
||||
sub FindNewDataset {
|
||||
&Delimiter((caller(0))[3]);
|
||||
|
||||
my $i = 0;
|
||||
for my $key (keys %data) {
|
||||
if (exists $db{$key}) {
|
||||
print "OLD: $key\n";
|
||||
}
|
||||
elsif (!exists $db{$key}) {
|
||||
print "NEW: $key\n";
|
||||
|
||||
my $success = &uploadPHP($data{$key}{'FILEPATH'});
|
||||
&AddToDB($key);
|
||||
&WipeData($key);
|
||||
last;
|
||||
# if ($success) {
|
||||
# print "success is $success\n";
|
||||
# &AddToDB($key);
|
||||
# &WipeData($key);
|
||||
# last;
|
||||
# }
|
||||
}
|
||||
$i++;
|
||||
}
|
||||
|
||||
if ($i == scalar(keys(%data))) {
|
||||
warn "\nNO NEW FILES AVAILABLE.\n";
|
||||
}
|
||||
}
|
||||
|
||||
sub uploadPHP {
|
||||
&Delimiter((caller(0))[3]);
|
||||
my $filepath = shift;
|
||||
|
||||
my $success = 1;
|
||||
my $captionText = "$profile{$profile}{'uploadPHP'}{'description_add'}\n\n$profile{$profile}{'uploadPHP'}{'tags'}";
|
||||
if ($profile{$profile}{'filename_as_title'}) {
|
||||
my $filename = basename($filepath);
|
||||
$filename =~ s/(NO INSTALL)|(SymLink Installer)//g;
|
||||
$filename =~ s/( , )|(\.[^.]+$)//g;
|
||||
$captionText = "$filename\n\n" . $captionText;
|
||||
# print Dumper $captionText;
|
||||
}
|
||||
open PHPOUT, "$config{'uploadPHP_CMD'} \'$filepath\' \'$captionText\' $profile{$profile}{'uploadPHP'}{'username'} $profile{$profile}{'uploadPHP'}{'password'} $config{'uploadPHP_debug'} $config{'uploadPHP_truncated_debug'} $profile{$profile}{'uploadPHP'}{'proxy_user'} $profile{$profile}{'uploadPHP'}{'proxy_password'} $profile{$profile}{'uploadPHP'}{'proxy_ip'} $profile{$profile}{'uploadPHP'}{'proxy_port'}|";
|
||||
while (<PHPOUT>) {
|
||||
print $_; # PRINT CURRENT PHP OUPUT LINE
|
||||
if ($_ =~ m/error/) {
|
||||
$success = 0;
|
||||
}
|
||||
}
|
||||
|
||||
return $success;
|
||||
}
|
||||
|
||||
sub WipeData {
|
||||
&Delimiter((caller(0))[3]);
|
||||
my $key = shift;
|
||||
|
||||
print "Deleting $data{$key}{'FILEPATH'}...";
|
||||
unlink($data{$key}{'FILEPATH'}) or die "Could not delete $data{$key}{'FILEPATH'}!\n";
|
||||
print " Done.\n";
|
||||
}
|
||||
|
||||
sub AddToDB {
|
||||
&Delimiter((caller(0))[3]);
|
||||
my $key = shift;
|
||||
|
||||
$data{$key}{'TIMESTAMP_UPLOADED'} = &GetTimestamp('YMDHMS');
|
||||
$db{$key} = $data{$key};
|
||||
my $json = encode_json \%db;
|
||||
write_file($profile{$profile}{'DBFilepath'}, { binmode => ':raw' }, $json);
|
||||
}
|
||||
|
||||
sub Delimiter {
|
||||
my $SubName = shift;
|
||||
print "\n" . "-" x 80 . "\nSUB " . $SubName . "\n" . '-' x 80 . "\n";
|
||||
}
|
||||
|
||||
sub GetTimestamp {
|
||||
#&Delimiter((caller(0))[3]);
|
||||
my $switch = shift;
|
||||
|
||||
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
|
||||
|
||||
my $nice_timestamp;
|
||||
if ($switch eq 'YMDHMS') {
|
||||
$nice_timestamp = sprintf ( "%04d%02d%02d_%02d%02d%02d", $year+1900,$mon+1,$mday,$hour,$min,$sec);
|
||||
}
|
||||
elsif ($switch eq 'YMD') {
|
||||
$nice_timestamp = sprintf ( "%04d%02d%02d", $year+1900,$mon+1,$mday);
|
||||
}
|
||||
elsif ($switch eq 'year') {
|
||||
$nice_timestamp = $year+1900;
|
||||
}
|
||||
elsif ($switch eq 'month') {
|
||||
$nice_timestamp = $mon+10;
|
||||
}
|
||||
else {
|
||||
print "Invalid/no switch detected. Use: 'YMDHMS' / 'YMD'\n";
|
||||
}
|
||||
|
||||
return $nice_timestamp;
|
||||
}
|
||||
Reference in New Issue
Block a user