#!/usr/bin/perl
#
# Image/Script Ninja by Pete
# Takes URLs and prints the locations of images (and optionally downloads the
# images) and the scripts found on the pages. 'isninja.pl --help' for more information.
# Use it while you can, for tomorrow it will be illegal.
print "Starting Image/Script Ninja...\n\n\n";

# Make sure the user supplied the correct arguments and didn't specify '--help'.
if ( @ARGV < 1 || "@ARGV" =~ /--help/ ) {
    print "Usage:\nisninja.pl [--getimages] url1 [url2, url3...]\n";
    print "URL(s) must end in a filename (*.html, etc.) or a trailing slash.\n";
    print "--getimages downloads the image instead of only printing its URL.\n";
    exit;
}

# See if user wanted to save the images
if ( "@ARGV" =~ /--getimages/ ) {
    $getimages = 1;
}
else {
    $getimages = 0;
}

# Go through each URL
for ( $loop = 0 ; $loop < @ARGV ; $loop++ ) {

    # Make sure it's not the argument!
    if ( $ARGV[$loop] eq "--getimages" ) {
        next;
    }

    # Grab the file
    @file = `wget $ARGV[$loop] --output-document=-`;

    # To keep everything seperate
    print "\n\nResults from $ARGV[$loop]...\n";
    $scrnum = 0;
    $imgnum = 0;

    # Check each line
    for ( $line = 0 ; $line < @file ; $line++ ) {

        # Is there an image?
        if ( $file[$line] =~ /<img/i ) {

            # If so, parse the line in a sloppy manner
            @fs = split( /[<>]/, $file[$line] );
            for ( $loop2 = 0 ; $loop2 < @fs ; $loop2++ ) {
                if ( $fs[$loop2] =~ /scr/i ) {
                    @top = split( /\"/, $fs[$loop2] );
                    for (
                        $loop3 = 1 ;
                        $top[ $loop3 - 1 ] !~ /src/i ;
                        $loop3++
                      )
                    {
                        ;
                    }
                    $tmp  = $ARGV[$loop];
                    $tmp2 = chop($tmp);
                    while ( $tmp2 ne "/" ) {
                        $tmp2 = chop($tmp);
                    }
                    $imgurl = $tmp . '/' . $top[$loop3];
                    $imgnum++;
                    print "Image #$imgnum; $imgurl\n";
                    if ($getimages) {
                        system("wget $imgurl");
                    }
                }
            }
        }

        # Is there a script?
        if ( $file[$line] =~ /<script/i ) {

            # If so, print the code from <script> to </script>
            $scrnum++;
            print "===Script #$scrnum===\n";

            # The nested stuff is here in case anyone uses a script
            # to print otu another script or something.
            $nested = 0;
            while ( $line < @file ) {
                print $file[$line];
                if ( $file[$line] =~ /<script/i ) {
                    $nested++;
                }
                if ( $file[$line] =~ /\/script/i ) {
                    if ( !($nested) ) {
                        last;
                    }
                    $nested--;
                }
                $line++;
            }
            print "===End Script #$scrnum===\n";
        }
    }
}
print "Finished.\n";