#!/usr/bin/perl require("cgi-lib.pl"); print "Content-type:text/html\n\n"; if (&ReadParse) { # Processamento dos dados @months = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); # Escreve dados no ficheiro members.dat # open (DATA, ">>members.dat"); #or die "Can't write: $!"; print DATA "($months[$mon]/$mday/$year)\n"; print DATA "Nombre: "; print DATA $in{'name'}; print DATA "Institución: "; print DATA $in{'institution'}; print DATA "Posición: "; print DATA $in{'position'}; print DATA "\ne-mail: "; print DATA $in{'email'}; print DATA "\nHomepage: "; print DATA $in{'homepage'}; print DATA "\nInteresses de Investigacao:\n"; print DATA $in{'interests'}; print DATA "\n\n"; close DATA; # A pagina de confirmacao comeca aqui # print < strings\@ar

strings\@ar Bienvenido a la Red

Sus datos serán incluídos en la lista de miembros de la red y su dirección electrónica será adjuntada a la lista. Recibirá un mensaje de confirmacián a la brevedad. Para corregir o actualizar sus datos contáctenos o vuelva a llenar el formulario.
Nombre: $in{'name'}
Institución: $in{'institution'}
Posición: $in{'position'}
E-mail: $in{'email'}
Homepage: $in{'homepage'}
Intereses de Investigación:
$in{'interests'} Papers Seleccionados:
$in{'papers'}
INICIAR # La pagina de confirmacion termina aqui # Envia email con datos a la direccion de strings@ar # $receiver_email = "strings\@fisica.unlp.edu.ar"; $sender_email = "$in{'email'}"; $subject = "\"strings\@ar - Nuevo Miembro\""; open (COMM, "| mail -s $subject $receiver_email"); print COMM "From: $sender_email\n\n"; print COMM "Nombre: "; print COMM $in{'name'}; print COMM "Institución: "; print COMM $in{'institution'}; print COMM "\nPosición: "; print COMM $in{'position'}; print COMM "E-mail: "; print COMM $in{'email'}; print COMM "Homepage: "; print COMM $in{'homepage'}; print COMM "Intereses de Investigación: "; print COMM $in{'interests'}; print COMM "Papers Seleccionados: "; print COMM $in{'papers'}; close COMM; # Envia email de confirmacion al miembro # $sender_email = "strings\@ar"; $receiver_email = "$in{'email'}"; $subject = "\"strings\@ar - No responda a este e-mail\""; open (COMM, "| mail -s $subject $receiver_email"); print COMM "From: $sender_email\n\n"; print COMM "Querido nuevo miembro de la red strings\@ar,\n"; print COMM " Sus datos seran incluidos en la lista de miembros de la red y su direccion electronica sera adjuntada a la lista."; print COMM " Para corregir o actualizar sus datos contactenos a traves de la pagina de la red (direccion indicada mas abajo).\n\n"; print COMM "Nombre: "; print COMM $in{'name'}; print COMM "\nInstitucion: "; print COMM $in{'institution'}; print COMM "\nPosicion: "; print COMM $in{'position'}; print COMM "\nE-mail: "; print COMM $in{'email'}; print COMM "\nHomepage: "; print COMM $in{'homepage'}; print COMM "\nIntereses de Investigacion: "; print COMM $in{'interests'}; print COMM "\nPapers Seleccionados: "; print COMM $in{'papers'}; print COMM "\n ************************* strings\@ar: http://www.fisica.unlp.edu.ar/strings/"; close COMM; } exit;