>> my @all_svn;
>> #my $WW = '<p> <img alt="" src="
>> http://192.168.1.25/template/ajax-loader.gif"; /></p>'; ### cant sem to
>> make this work!!
>
> What are you trying to do here.
i am trying to display a loader image, until the page finishes
loading, i think this is bet done with Javascript ..will stick to that
.
>
>> @all_svn = qx(svn list -R $verticals{$sitei}{svnurl}) ;
>>
>> s/\s+$// for @all_svn;
>>
>> my %allsus = map {$_ => 1 } @all_svn;
>>
>> my (@allgood,@notgood,%hash1 ) ;
>>
>> foreach (@filesi){
>> if ( defined $allsus{$_} ){
>> push (@allgood , $_);
>> } elsif ( !defined $allsus{$_}) {
>> push (@notgood, $_ ) ;
>> }
>>
>>
>> }
>> if ( @notgood ) {
>> %hash1 = ( 'ireturn' => 1 , notgood => \@notgood ) ;
>> return (\%hash1) ;
>> } elsif (@allgood){
>> %hash1 = ( 'ireturn' => 0 , allgood => \@allgood ) ;
>> return (\%hash1) ;
>> }
>>
>
> Here you should use the Subversion API.
>
What happens if i do not use a API like SVN ::Client, would my server
be loaded or calling a shell command within a perl script is not the
way to go ?? why is it not a good idea .to call shell command within
a perl script , system() provides for this use only ?
--
Regards
Agnello D'souza
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
![http://192.168.1.25/template/ajax-loader.gif"](http://192.168.1.25/template/ajax-loader.gif"){kind=link}