Front page | perl.beginners |
Postings from April 2011
Hi
I am trying my hand in CGI , i have script that runs svn list on-submit
which obviously takes 30 to 40 secs for the page to load , i plan to use a
ajax loader to be printed untill those 30 to 40 seconds. But even after the
page has finished loading i can still see the image. I am not good in java
script but can this be done using perl only .. here is a snip of my code ..
my @all_svn;
unless (@all_svn) {
print '<p> <img alt="" src="http://192.168.1.25/template/ajax-loader.gif"
/></p>';
}
@all_svn = qx(svn list -R $virticals{$sitei}{svnurl}) ;
s/\s+$// for @all_svn;
my %allsus = map {$_ => 1 } @filesi;
my @allgood = grep {defined $allsus{$_ } } @all_svn ;
print "@allgood";
}
print " html part ...
Your inputs will be of great value .
--
Regards
Agnello D'souza
Thread Next