script to add schedual content download automatically

dear sir
i want to make a script which take from a text file an address
http://www.yahoo.com
http://www.msn.com
http://www.sms.ac
http://www.cnn.com
etc
and add it to a schedual content download to isa server
any language can do that ?
xodosAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

 
InteractiveMindCommented:
> and add it to a schedual content download to isa server.
Excuse my ignorance, but how is this done? Do you know? (..because I don't).

As for the rest of it, a simple Batch script can do this:


@echo off
title URL Schedular

set inputFile=filename.txt

for /f "delims=" %%U in ("%inputFile%") do call :process "%%U"
goto :eof

:process
set line=%~1
:: Schedule the download of the '%line%' variable here.
exit /b

:eof


HTH :-)
Rob.
0
 
xodosAuthor Commented:
it will open isa server and add a schedual content download for each line it takes from the text file ,
the script must take a line from the text file and add it as a schedual content download .
look what i want to do :
i have a dns cache only server and isa server on the same computer
in dns server there are many site addresses ,
i want to take the address from the dns and add it to the schedual content download in isa server to be downloaded daily at 1:00 am ,
i can do it manually but there are millions of sites
so a script is very usable here
hope you can help me
thank you very much


0
 
srikpenCommented:
--------------------------------snip for getwebpg.pl------------------------------------
#!/usr/bin/perl

## Create a user agent object
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
$ua->proxy('http', "http://www.company.com:80");


#Opens the urlfile.txt to get the URLS.
open(HND, "./urlfile.txt") || die " Can't open file : $!";
chomp(@arr = <HND>);
close(HND);

# print all the URLS content.
my $url;
for$url ( @arr) {
        print "Getting $url =======================================\n";
        print "====================================================\n";
        my $res = $ua->post($url);

        if( $res->is_success ) {
                print $res->content;
        } else {
                print "Unable to get $url\n";
        }

        print "\n";
}
--------------------------------snip------------------------------------


example urlfile.txt for above contains:
----------------------------------snip for urlfile.txt-------------------
http://www.yahoo.com
http://www.book.com
http://www.car.com
http://www.bookpool.com
http://www.monster.com
----------------------------------snip ----------------------------------
0

Experts Exchange Solution brought to you by ConnectWise

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
 
srikpenCommented:
you can comment
$ua->proxy('http', "http://www.company.com:80");

if you dont' have any proxy in between like:
#   $ua->proxy('http', "http://www.company.com:80");
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.