FTP via perl

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();