FTP via perl

Jag vill via ett formulär på server1 välja en fil som laddas upp via FTP till server2.

Går detta?

Anledningen till att jag vill ha det så här är att jag vill ha fler formulärfält som ska behandlas med asp som server1, men inte server2 har, dessutom tror jag inte server2 har stöd för perl. (Har telia det?)

Tack på förhand!

------------------

if user="David Altefur" then
  Response.write "Tack på förhand"
End if

Hej,

Allting går att lösa med perl ;)

Du kanske vill kika på följande moduler CGI.pm och NET::FTP.

CGI.pm för att skapa formulär och behandla forulärdata.
NET::FTP för ftp klienten.

Dessa borde vara installerade redan om du har en nyare verision av perl, tror att det är 5.004 och senare.

Jag är inte riktigt med på vad du vill göra, kanske du kan utveckla/förtydliga det lite?

SERVER1 = OS/PERL/ASP ?
SERVER2 = OS/PERL/ASP ?

SERVER1 -> FTP -> SERVER2 ?

------------------
Hansen
c.h@ngmedia.com

Hej!!

Vad jag vill göra är att lägga upp stora filer på en server som i princip bara har FTP. Det vill jag göra från min standardserver där jag även vill ha ett register över de filerna som jag laddar upp. Det jag vill göra är ett script där man högst upp i koden kan skriva in ftp-adress, användarnamn, lösenord och startup-katalog. Sedan lägger den upp den (en enda fil) på den platsen jag specificerat. Sedan skickar den vidare datat till min asp-fil, ex. fil.asp?filnamn=XXX&Beskrivning=YYY

Hoppas att detta är bättre förklarat!

------------------

if user="David Altefur" then
  Response.write "Tack på förhand"
End if

Server med script:

w2k, asp, perl, Access.

Den andra servern vet jag ingenting om utom att den har FTP.

------------------

if user="David Altefur" then
  Response.write "Tack på förhand"
End if

Ett FTP-skript kan se ut så här.

#!/usr/bin/perl

use Net::FTP;

# FTP-kontot för webbservern
$host = "IP-adress";
$username = "användarnamn";
$password = "lösenord";

# Startmapp på webbservern
$startDir = "/www/public_html/user/dir/";

# Sökväg till filen som ska laddas upp
$file = "filen";

##############################
# Skicka filen till webbservern

$ftp = Net::FTP->new("$host");
$ftp->login("$username", "$password");

$ftp->cwd("$startDir");
$ftp->put("$file");

$ftp->quit();