Hei,

Vi står overfor en merkelig problem i vårt prosjekt. må vi sende noen xml & lydfiler til en ekstern FTP-server fra en Linux-boks, vi gjør dette i Perl Skriptet bruker Nettmapper:: FTP->. Problemet her er .. når FTPed filene bruker Perl scripts, bare tomme filer (0 byte) blir opprettet på den eksterne serveren, og data ikke får skrevet ut på serveren. Men det er mulig å manuelt overføre filer til FTP-server via en FTP verktøyet men mislykkes når vi forsøker å gjøre det samme gjennom Perl skriptet. Vi sjekket på den eksterne serveren, og det er mye ledig plass på serveren.

Våre skriptet er retur 'Bad Fil beskrivelse feilmelding der som det fungerer greit for alle resten av de andre 50 FTP servere vi har.

Any help / innganger anser dette problemet vil bli verdsatt.

Takk

Hei, du har gjort den fisrt gode trinn for feilsøking av problemet. Det virker som bare det perl Skriptet kan ikke kommunisere ordentlig med FTP-server, og dette OS, ekstern en. Gi oss beskjed versjonene av operativsystemet, ftpd og etter noen perl kode, hvis mulig. Ser ut som en kompatibilitetspakke, siden skriptet arbeider mot andre OSes og noen andre FTP-servere. Det er viktig å svare på følgende spørsmål i tillegg - Har jeg endret manuset, hva OSes og FTP-servere mine script arbeider med, og hva er forskjellen på fjernkontrollen slutt i denne oppgaven. Kan du utføre den samme oppgaven mot annen maskin? Er det noen spesielle tegn eller Windows-lignende baner i manuset? Jeg har sett "dårlig filen beskrivelse" med enten ødelagt test kildefilen eller mot Windows FTP - Jeg mangler riktig Windows banen represenation. HTH.

Hei, Thaks for rask respons.

Våre Linux boksen OS ---> Red Hat Enterprise Linux 2.4.21-47.0.1 (release 3)
Ekstern FTP-server OS ---> Ubuntu 6.06.1

Nedenfor er Perl koden, som vi bruker til å koble til eksterne FTP-server og til å overføre filer.

eval ($ ftp \u003d Net:: FTP-> new ($ remoteServerIP, Debug \u003d> 0) eller $ exitModule \u003d "TRUE");
if ($ @ eller $ exitModule eq 'TRUE') (

log_error ( "FEIL: Kunne ikke koble til");
eval ($ ftp-> close ())

) else (
eval ($ ftp -> login ($ User, $ pwd) eller $ exitModule \u003d "TRUE");
if ($ @ eller $ exitModule eq 'TRUE') (
log_error ( "FEIL: (". $ ftp-> meldingen. ") mislyktes login");
eval ($ ftp-> close ())
) else (
eval ($ ftp-> putte ($ sourceFile, $ targetFile) eller $ status \u003d "Feil");
my $ ftp_message \u003d $ ftp-> melding;
if ($ @ eller $ status eq "Feil") (
log_error ( "ADVARSEL: (". $ ftp_message. ") Feil under overføring");
)
)
);


Vi får feilmeldingen "ADVARSEL: Kunne ikke overføre filen. Feil under overføring " (når du prøvde å skyve-filer ved hjelp av over Perl code) siden to måneder før det var vi i stand til å overføre filer. Vi har ikke gjort noen endringer på vår server og eksterne severt for de siste 12 månedene. Vi er ikke i stand til å finne ut hva plutselig forårsaker problemet.

Takk.