$cursos = array(
array(
n => 'Introducción a Perl - Viernes de 19:30 a 21:00',
f => '2005-perl.csv',
v => 25 - contarLineas('2005-perl.csv') ),
array(
n => 'Curso intensivo GNU/Linux - Viernes de 21:00 a 22:30',
f => '2005-intensivo.csv',
v => 25 - contarLineas('2005-intensivo.csv') ),
);
function contarLineas($filename)
{
$handle = fopen ($filename, "r");
$contents = '';
while (!feof($handle)) {
$contents .= fread($handle, 8192);
}
fclose ($handle);
return strpos_count($contents,"\n");
}
function strpos_count($haystack, $needle, $i = 0) {
while (strpos($haystack,$needle) !== false) {
$haystack = substr($haystack, (strpos($haystack,$needle) + 1));
$i++;
}
return $i;
}
?>
Inscripción a Cursos de GNU/Linux
if (!$nombre) {
$carreras = array('Ing. Electrónica', 'Ing. Informática', 'Lic. Sistemas',
'Ing. Civil', 'Ing. Industrial', 'Ing. Mecánica',
'Ing. Naval', 'Ing. Electricista', 'Agrimensura',
'Ing. Química', 'Ing. en Alimentos');
?>
Vacantes
$quedan = 0;
for ($i=0; $i
=$cursos[$i]["n"]?>: =$cursos[$i]["v"]?> vacantes.
if ($cursos[$i]["v"] > 0)
$quedan = 1;
}
if ($quedan) { ?>
Formulario de Inscripción
Para inscribirte, llená los datos a continuación.
Por favor, antes de enviar tus datos, tené en cuenta que las vacantes son
muy limitadas y que si te inscribís y después no venís estás quitándole el
lugar a otra persona.
}
} else {
if ($carrera_ext) {
$carrera = $carrera_ext;
$padron = $univ_ext;
}
// abrir el archivo
$filename = $cursos[$curso]["f"];
$handle = fopen ($filename, "a");
fwrite($handle, $nombre . "," . $email . ","
. $carrera . "," . $padron . "\n" );
fclose ($handle);
// Mandar mail a gnuservers
$subject = "Inscripción automática desde la web";
$to = "cursos@gnuservers.com.ar";
$data = "\n Nombre: $nombre \n Email: $email \n ";
if ($carrera_ext) {
$data .= "Carrera: $carrera \n Facultad: $padron \n";
} else {
$data .= "Carrera: $carrera \n Padrón: $padron \n";
}
$data .= " Curso: " . $cursos[$curso]["n"] . "\n";
$from = "From: " . '"' . $nombre . '"' . "<$email>\n";
$from .= "X-Mailer: PHP/" . phpversion();
mail ($to, $subject, $data, $from);
// Mandar mail al inscripto
$subject = "Confirmacion de inscripción";
$to = '"' . $nombre . '"' . "<$email>";
$data = "\n Este mensaje es para confirmar la inscripción \n";
$data .= " realizada desde la web de gnuservers.com.ar. \n\n";
$data .= " Estos son los datos recibidos: \n";
$data .= "Nombre: $nombre \n Email: $email \n ";
if ($carrera_ext) {
$data .= "Carrera: $carrera \n Facultad: $padron \n";
} else {
$data .= "Carrera: $carrera \n Padrón: $padron \n";
}
$data .= " Curso: " . $cursos[$curso]["n"] . "\n\n";
$data .= " Te esperamos! \n";
$from = "From: Cursos de GNU/Linux \n";
$from .= "X-Mailer: PHP/" . phpversion();
mail ($to, $subject, $data, $from);
?>
Inscripción Exitosa
=$nombre?> estás inscripto/a para el curso =$cursos[$curso]["n"]?>.
Te estamos enviando un mail confirmando tu inscripción. No es necesario que lo
contestes.
Cualquier duda, escribinos a curso@gnuservers.com.ar.
} ?>
Cursos