redirect dal formmail

[mauro99]

Salve io ho un form e quando sono stati riempiti i campi vorei che il sito sia rindirizzato alla home page mi potete dire quale è il comando in cgi per far apparire la home grazie

[Mich_]

Stai facendo una gran confusione.
Sembra che non sai cosa sia un CGI e come si relaziona ad una pagina Web.

Un CGI e` un programmino lato server che acquisisce dei dati, li elabora e genera una nuova pagina.
Un CGI si puo` realizzare in molti modi diversi, il piu` usato e` uno script in Perl.

FormMail e` un CGI che oltre a quanto detto sopra invia una e-mail contenente alcuni dei dati trasmessi dal form.
Anzi con FormMail ormai si indica tutta una categoria di prodotti, alcuni realizzati come CGI, ma altri realizzati tramite ASP o PHP o altre interfacce.

Se parli di FormMail orginale (quello di Matt's Script, CGI in Perl), ha la possibita` di un reindirizzamento ad una pagina particoalre. Sul sito di Shishii, puoi trovare anche le istruzioni (io lo ho dimenticato; sono anni che non lo uso).

[mauro99]

questo è il codice del form alla fine vorei rendirizzamento alla home

#!/usr/bin/perl

use CGI;
#use HTML::Template;

$docpath = '/usr/www/lamirarreda.it/file/';

$q = new CGI;
print $q->header;

$email = $q->param('sendemail');
$from = $q->param('E-mail');
#$reply = $q->param('reply');
$subject = 'Form web';
$body = $q->param('body');
my $messaggio = 'Messaggio inviato 

';

@nomeparam = $q->param;
my %hash_param = ();
foreach $nomeparametro (@nomeparam) {
 	$hash_param{$nomeparametro} = $q->param($nomeparametro);	
}

foreach $chiave (keys(%hash_param)) {
	if ($hash_param{$chiave}) {
		$body .=  $chiave.': '.$hash_param{$chiave}."\n\n";	
		$messaggio.= $chiave.': '.$hash_param{$chiave}.'

';
	}	
}




open MAIL,"|sendmail -t";
print MAIL "To: $email\n";
print MAIL "From: $from\n";
print MAIL "Reply-To: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$body\n"; 
close MAIL;

$filename = $q->param('txtImg');

print $filename;
@nomefile = split(/\\+/,$filename);
$dim = @nomefile;
$solonomefile = $nomefile[$dim-1];
print $solonomefile;

$filedoc = $docpath.$solonomefile;

unlink $filedoc;				# cancella il vecchio file se esiste
open (FILE, ">$filedoc");			# crea il file
while (read($filename, my $buffer, 1024)) 
{
	$fileok = 1;
	print FILE $buffer;
} 
close (FILE); 
chmod (0777,$filedoc);				# modifica i permessi

print $messaggio;

print "File Trasmesso";

$q = new CGI;
print $q->redirect($redirect);
print "Location: http://www.conceptfbo.it\n\n";

[Mich_]

Questa e` una piccola parte di FormMail (per come lo ricordo io).
Ma ci sono altre parti che nel caso del redirect diventano importanti.
Se ricordo bene, c'e` un'opzione da settare nei parametri da inviare al server per far fare il redirect ad una pagina specifica. Non occorre mettere mano al codice Perl.

[shishii]

Non puoi fare un redirect dopo avere dichiarato un header HTTP