🐪 install_kino_burning.pl (Perl) 31.8 KB 2013-08-19
Perl module for install kino burning
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### 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
###########################
use strict;
no strict "subs";
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"'
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags); # perl -MCPAN -e 'force install "HTML::StripTags"'
use Data::Dumper;
use POSIX qw(strftime);
use Regexp::Common qw(time);
use File::Basename;
use LWP::Simple;
use LWP::UserAgent;
use HTML::LinkExtor;
use HTML::LinkExtractor;
use URI::URL;
use LWP::UserAgent;
use HTTP::Status ();
my $count = 0;
my $SourceFolder = 'E:\Working 2012\www.moviestreamz.com\mirror\streaming\www.burning-seri.es\serie';
my $SourceFolder1 = '';
my $SourceFolder2 = '';
my $CopySrcFolder = 'E:\Working 2012\www.moviestreamz.com\crawler\backup';
my $string1;
my $html;
my $title;
my $text;
my $catg;
my $string;
my $lastlength = "";
my $rcount = 0;
... [truncated, 826 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "install_kino_burning.pl",
"description": "Perl module for install kino burning",
"dateModified": "2013-08-19",
"dateCreated": "2025-03-23",
"contentSize": "31.8 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/streamingwebsites/crawler/install_kino_burning.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/streamingwebsites/crawler/"
}
🐪 install_kino_burning_linux.pl (Perl) 31.7 KB 2013-08-19
Perl module for install kino burning linux
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### 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
###########################
use strict;
no strict "subs";
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"'
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags); # perl -MCPAN -e 'force install "HTML::StripTags"'
use Data::Dumper;
use POSIX qw(strftime);
use Regexp::Common qw(time);
use File::Basename;
use LWP::Simple;
use LWP::UserAgent;
use HTML::LinkExtor;
use HTML::LinkExtractor;
use URI::URL;
use LWP::UserAgent;
use HTTP::Status ();
my $count = 0;
my $SourceFolder = '/home/streaming/www.burning-seri.es/serie';
my $SourceFolder1 = '';
my $SourceFolder2 = '';
my $CopySrcFolder = '/server/backup';
my $string1;
my $html;
my $title;
my $text;
my $catg;
my $string;
my $lastlength = "";
my $rcount = 0;
... [truncated, 826 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "install_kino_burning_linux.pl",
"description": "Perl module for install kino burning linux",
"dateModified": "2013-08-19",
"dateCreated": "2025-03-23",
"contentSize": "31.7 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/streamingwebsites/crawler/install_kino_burning_linux.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/streamingwebsites/crawler/"
}
🐪 install_kino_movie2k.pl (Perl) 33.3 KB 2013-08-20
Perl module for install kino movie2k
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### 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
###########################
use strict;
no strict "subs";
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"'
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags); # perl -MCPAN -e 'force install "HTML::StripTags"'
use Data::Dumper;
use POSIX qw(strftime);
use Regexp::Common qw(time);
use File::Basename;
use LWP::Simple;
use LWP::UserAgent;
use HTML::LinkExtor;
use HTML::LinkExtractor;
use URI::URL;
use LWP::UserAgent;
use HTTP::Status ();
my $count = 0;
my $SourceFolder = 'E:\Working 2012\www.moviestreamz.com\mirror\www.movie2k.to';
my $SourceFolder1 = '';
my $SourceFolder2 = '';
my $CopySrcFolder = 'E:\Working 2012\www.moviestreamz.com\crawler\backup';
my $e2;
my $string1;
my $html;
my $title;
my $text;
my $catg;
my $string;
my $lastlength = "";
... [truncated, 855 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "install_kino_movie2k.pl",
"description": "Perl module for install kino movie2k",
"dateModified": "2013-08-20",
"dateCreated": "2025-03-23",
"contentSize": "33.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/streamingwebsites/crawler/install_kino_movie2k.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/streamingwebsites/crawler/"
}
🐪 install_kino_movie2k_linux.pl (Perl) 33.2 KB 2013-08-20
Perl module for install kino movie2k linux
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### 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
###########################
use strict;
no strict "subs";
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
# use File::Remove qw(remove); # perl -MCPAN -e 'force install "WordPress::XMLRPC"'
use WordPress::API::Post; # perl -MCPAN -e 'force install "WordPress::API::Post"'
use Data::Random qw(:all); # perl -MCPAN -e 'force install "Data::Random"' # perl -MCPAN -e 'force install "Date::Calc"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use HTML::StripTags qw(strip_tags); # perl -MCPAN -e 'force install "HTML::StripTags"'
use Data::Dumper;
use POSIX qw(strftime);
use Regexp::Common qw(time);
use File::Basename;
use LWP::Simple;
use LWP::UserAgent;
use HTML::LinkExtor;
use HTML::LinkExtractor;
use URI::URL;
use LWP::UserAgent;
use HTTP::Status ();
my $count = 0;
my $SourceFolder = '/home/streaming/www.movie2k.to';
my $SourceFolder1 = '';
my $SourceFolder2 = '';
my $CopySrcFolder = '/server/backup';
my $e2;
my $string1;
my $html;
my $title;
my $text;
my $catg;
my $string;
my $lastlength = "";
... [truncated, 855 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "install_kino_movie2k_linux.pl",
"description": "Perl module for install kino movie2k linux",
"dateModified": "2013-08-20",
"dateCreated": "2025-03-23",
"contentSize": "33.2 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/streamingwebsites/crawler/install_kino_movie2k_linux.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/streamingwebsites/crawler/"
}