#!/usr/bin/perl #use DBI; use CGI; use Digest::MD5 qw(md5_hex); use strict; #use constant DBI_SOURCE => 'dbi:SQLite:zombiebot.db'; use constant PASSWORD => '63292e049dfb27c550fa1cb143be510d'; print "Content-Type: application/xhtml+xml; charset=UTF-8\n\n"; my $query=new CGI; my $task=$query->param("task"); my $password=$query->param("pass"); if(!$task) { show_quotes(); exit 0; } if(md5_hex($password) ne PASSWORD) { message("Clave incorrecta."); exit 0; } if($task eq "post") { my $id = $query->param("id"); my $quote = $query->param("quote"); my $by=$query->param("by"); my $time=$query->param("time"); if($id and $quote and $by and $time) { post_quote($id, $quote, $by, $time); } else { message("Ingrese ID y quote."); } } elsif($task eq "remove") { my $id = $query->param("id"); if($id) { remove_quote($id); } else { message("Ingrese ID."); } } else { message("Tarea inválida."); } #sub post_quote($$$$) { # my ($id, $quote, $by, $time) = @_; # my $dbh = DBI->connect(DBI_SOURCE, "", "") || die "$DBI::errstr"; # $dbh->do("INSERT INTO quotes VALUES (".$dbh->quote($id).", ".$dbh->quote($quote).", ".$dbh->quote($by).", ".$dbh->quote($time).")"); # message("Listo."); #} #sub remove_quote($) { # my ($id) = @_; # my $dbh = DBI->connect(DBI_SOURCE, "", "") || die "$DBI::errstr"; # $dbh->do("DELETE FROM quotes WHERE qid = ".$dbh->quote($id)); # message("Listo."); #} sub message($) { my ($errstr) = @_; print q{ Zombiebot@B.a.I.

}; print "$errstr"; print q{

}; } sub show_quotes() { print q{ Zombiebot@B.a.I.
Bienvenido a Internet BBS/IB
Quotes de Zombiebot
}; #my $dbh = DBI->connect(DBI_SOURCE, "", "") || die "$DBI::errstr"; #$dbh->do("INSERT INTO test VALUES (NULL, 'Holi')"); print "
"; #my $cur = $dbh->selectall_arrayref("SELECT qid, qtext, qby, qtime FROM quotes ORDER BY qid DESC"); #foreach my $row (@$cur) { # my ($id, $quote, $by, $time) = @$row; # print "\n"; #} open FILE, "; foreach my $li (@lines) { my ($f, $user, $quote) = split(/,/, $li, 3); my ($id, $time) = split(/:/, $f); $time = scalar localtime($time); $id =~ s/^0*//; $quote =~ s/^"?'//; $quote =~ s/'"?$//; $quote =~ s/\&/\&/g; $quote =~ s/\/\>/g; print "\n"; } close FILE; print "
IDTiempoQuote
$id$time$quote
$id$time$quote
"; print q{

}; #$dbh->disconnect(); }