[linux] Upload www stranok

[Marian Cavojsky]

Dňa Ut, 02 jan 2001 ste (Michal Zimen) napísali:
> On Sat, 30 Dec 2000, Marian Cavojsky wrote:
> > 
> > Pouzivam nieco taketo:
> > 
> > #!/bin/sh
> > 
> > ftp -p -n ftp.server.sk << EOF
> > user meno heslo
> > cd html
> > mput *
> > bye
> > EOF
> > 
> 
> Ok to je dobre, ale ja este potrebujem rekurzivne zobrat vsetky podadresare.!
> A toto mi zatial robi problemy.
> 
> V man. stranke ku ftp sa nieco pise ze by sa to malo najskor zabalit tar-om
> a potom by sa to malo na vzdialenej masine autoamticky 'neviem ako' rozbalit.
> 

S tym tar-om nepomozem, nemam skusenosti, ani neviem, kde by som to hadal.
Mohlo by fungovat nieco taketo:

<file name="upload.sh">
#!/bin/sh

ls -lR | ftptree.pl | ftp -p -n ftp.server.sk
</file>

pricom ftptree.pl je tu:

<file name="ftptree.pl">
#!/usr/bin/perl

$subadr="html";
$actadr="";
print "user meno heslo\n";
while( <STDIN>){
  if( /^(\S+.*):$/){ $actadr=$1;}
  if( /^-\S{9}\s+\d+\s+\S+\s+\S+\s+\d+\s+\S+\s+\S+\s+\S+\s+(.+)/){ print "put $actadr/$1 $subadr/$actadr/$1\n";}
  if( /^d\S{9}\s+\d+\s+\S+\s+\S+\s+\d+\s+\S+\s+\S+\s+\S+\s+(.+)/){ print "mkdir $subadr/$actadr/$1\n";}
}
print "bye\n";
</file>

Odskusajte. v pripade nejasnosti sa mi mozete ozvat sukromne.

-- 
Marian Cavojsky
cavojsky @ soria-grey.sk
Spravca siete
Soria & Grey s.r.o
Reklamna Agentura