Mr. fliticasone

Cool uses for Perl, I added two routers to my network, one to act as a gate, two to act as computer during the day and router or gate at night. Because I could not find code to make this router invisible to catch logins ONLY at night. I used a schedule sort of like a slave of the main router close to the modem T1 power up. I feel that I'm being "swiss army knife", becuase I could not stop trojans with NORTON'S Greatest. 

#!/usr/bin/perl

# checkportopening.pl

use strict;
use LWP::Simple;
use URI::Escape;

# MEncoder location
my $mencoder = "c:\\mplayer\mencoder.exe";

# Get the Port URL
print "paste in a URL and Press Enter. \n% ";
my $url = <STDIN>;

# Scrape the page
my $response = get($url);

# find the video file
While ($response =~ m!videoURL\u003d(.*?)\\"!gis) {
    my $videoURL = $1;
    $videoURL = uri_unescape($videoURL);
    $videoURl =~ s!\\u003d!=!gs;

# Find the site filename
my $head = head($videoURL);
my $filename = $head->{_headers}->{'content-disposition'};
$filename =~ s!attachment; filename||gis;

# Download the video file
print "Downloading $filename...\n";
getstore($videoURL,$filename);

# make sure downloaded file is there
if (-e $filename) {
    # change the extension
    my $newfilename = $filename;
    $newfilename =~ s!flv!avi!gis;
    print "Converting to $newfilename...\n";

# use MEncoder to convert to another file (rename intruder's site)
my $cmd = "$mencoder $filename -ofps 15";

[download]

Replies are listed 'Best First'.
Re: Network Outlet
by jwkrahn (Abbot) on Apr 28, 2012 at 03:21 UTC 
    #!/usr/bin/perl

# checkportopening.pl

use strict;
use LWP::Simple;
use URI::Escape;

    [download]

    You should also have the warnings pragma in there somewhere. 



    # MEncoder location
my $mencoder = "c:\\mplayer\mencoder.exe";

    [download]

    Interpolation will convert that string to: c:\mplayermencoder.exe 



    # Get the Port URL
print "paste in a URL and Press Enter. \n% ";
my $url = <STDIN>;

# Scrape the page
my $response = get($url);

    [download]

    You will probably need to chomp that $url variable before you use it. 



    # find the video file
While ($response =~ m!videoURL\u003d(.*?)\\"!gis) {
    my $videoURL = $1;
    $videoURL = uri_unescape($videoURL);
    $videoURl =~ s!\\u003d!=!gs;

# Find the site filename

    [download]

    You should probably put a } character somewhere at the end of that loop and the word 'While' is not valid Perl. 



    # make sure downloaded file is there
if (-e $filename) {
    # change the extension
    my $newfilename = $filename;
    $newfilename =~ s!flv!avi!gis;
    print "Converting to $newfilename...\n";

# use MEncoder to convert to another file (rename intruder's site)

    [download]

    You should probably put a } character somewhere at the end of that block.

[reply]
[d/l]
[select]
Re: Network Outlet
by Khen1950fx (Canon) on Apr 29, 2012 at 03:12 UTC
    I encountered problems with URI::Escape, so I reworked your script to make it a little simpler. I used LWP::UserAgent instead of LWP::Simple and used ":content_file => " to make a file. 
    #!/usr/bin/perl 

use strict;
use warnings;
use LWP::UserAgent;
use URI::Escape;

print "Enter an URL and Press Enter: \n";

my $url = <ARGV>;

my $ua = LWP::UserAgent->new;
my $response = $ua->get(
    $url,
    ':content_file' => '/root/Desktop/url.log',
);
die "Couldn't get $url" unless defined $response;

if ($response->is_success) {
    print $response->decoded_content;
}
else {
    die $response->status_line;
}

my $videoURL = uri_escape_utf8($url);
my $new_videoURL = uri_unescape($videoURL);
print $new_videoURL ;

    [download]
    This is only a skeleton, but I think that you could usefully build upon it.

    Updated: Revised. Thanks to jwkrahn for catching the mistake.

[reply]
[d/l]
[select]
      my $url = <ARGV>;

      [download]

      Why change STDIN to ARGV?    And either way you still have to chomp the value received. 

      while ($new_videoURL) {
    chomp;
    print $new_videoURL ;
}

      [download]

      Does $new_videoURL assign a value to $_?    And if not then why are you chomping the $_ variable?    And if the value in $new_videoURL doesn't change inside the loop then why are you using a loop at all?

[reply]
[d/l]
[select]

Back to Cool Uses for Perl