|
Este es el primero de una serie de tutoriales donde mostraremos las bases para crear un foro de discusión TOTALMENTE en perl y sin la necesidad de ningun sistema de database, pues se hará todo con puro texto.
Introducción
Todos conocemos varios scripts de foros de discusión, por ejemplo el Yabb. Pero al implementar estos scripts pre-fabricados, se nos podría dificulta la realización de cambios que querramos hacerle.
Por ser scripts ya programados, generalmente tienen muchas opciones lo cual hace que el código fuente se nos sea complicado de entender.
Con esta serie de tutoriales sentaremos las bases para hacer un foro de discusión enteramente en PERL y sin la necesidad de ningún motor de base de datos (p.ej: MySQL,Oracle,etc) ya que los mensajes se almacenaran en archivos de texto .TXT De esta manera es muy fácil su implementación y administración por parte de cualquier programador que recién esté empezando a programar.
Flujo del script
Para entender bien como será el script vamos a mostrar como será la cabecera del script en donde tomamos los datos de rutina, loggeamos al usuario y evaluamos la variable ACTION que viene desde el navegador para saber que es lo que desea hacer el usuario.
#!c:/perl/bin/perl.exe
use strict;
require 'monodata.pl';
my $msdb_foros_url = 'msdb';
my $contador_url = 'contador';
# Definición de Variables
my $system = 'windows';
my %input_data = &input_data();
my %cookie_data = &get_cookie();
my $date = &get_date();
my @d_a_t_e = &get_d_a_t_e();
my %logger_data = &logger();
# Devuelve 3 valores
#$logger_data{'user_name'} = 'monoswim';
#$logger_data{'seguridad'} = 7;
#$logger_data{'fecha'} = '2004-09-03 11:12:20';
###### Opciones del Script
print "Content-type: text/html\n\n";
if ($input_data{'action'} eq 'temas_listar') {
&temas_listar();
}elsif ($input_data{'action'} eq 'form_new_tema') {
&form_new_tema();
} elsif ($input_data{'action'} eq 'save_new_tema') {
&save_new_tema();
}
#######
elsif ($input_data{'action'} eq 'mensajes_listar') {
&mensajes_listar();
} elsif ($input_data{'action'} eq 'form_new_msg') {
&form_new_msg();
} elsif ($input_data{'action'} eq 'save_new_msg') {
&save_new_msg();
}
#######
else {
&foros_listar()
}
exit(1);
####### Fin Opciones del Script
Como verán hasta ahora viene todo muy fácil, temenos básicamente 7 funciones, mostrar, y agregar mensajes, las demás opciones las veremos más adelante...
|
PerL
Microsoft explorer 6.0 
