############################################################
# Written and copyright 2002 by 
# Jacqueline D. Hamilton (kira@cgi101.com)
#
# This code is excerpted from "CGI Programming 201"
# (http://www.cgi101.com/advanced)
#
# You may use this code on your own website, however
# you may not publish or sell any copy or derivative work
# without permission of the author.
############################################################
package MyBoard;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(dienice do_header do_footer dbdie $dbh $cgi $url $btitle linkify smiliefy);
@EXPORT_OK = qw(delete);
use strict;
use DBI;
use CGI;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

our $dbh = DBI->connect("dbi:mysql:cgiblog", "bloguser", "fnord", { RaiseError => 1, AutoCommit => 1 }) or &dienice("Can't connect to database: $DBI::errstr");

# create the instance of CGI.pm
our $cgi = CGI->new;

# URL 
our $url = "http://www.cgi101.com/advanced/blog";

our $btitle = "Test Blog";

our $has_header = 0;

sub do_header {
    my($page_title) = @_;
    if ($has_header == 0) {
       print $cgi->header;
       print $cgi->start_html(-title=>$page_title,
                     -bgcolor=>"#ffffff",
		     -text=>"#000000");
       $has_header = 1;
     }
}

sub do_footer{
    print $cgi->end_html;
}

sub dienice {
    my($msg) = @_;
    &do_header("Error");
    print qq(<h2>Error</h2>\n);
    print qq($msg\n);
    &do_footer;
    exit;
}

sub dbdie {
    my($package, $filename, $line) = caller;
    my($errmsg) = "Database error: $DBI::errstr<br>\n called from $package 
    $filename line $line";
    &dienice($errmsg);
}
sub delete {
    my($msgid) = @_;
    my($sth, $rv, $f);
    $sth = $dbh->prepare("delete from messages where id=?") or &dbdie;
    $rv = $sth->execute($msgid);
    $sth = $dbh->prepare("select * from messages where thread_id=? limit 
1") or &dbdie;
    $rv = $sth->execute($msgid);
    if ($f = $sth->fetchrow_hashref) {
        $dbh->do("update messages set thread_id=0 where id=$f->{'id'}") or 
&dbdie;
        $dbh->do("update messages set thread_id=$f->{'id'} where 
thread_id=$msgid") or &dbdie;
    }       
}

sub linkify {
    my($str, $link) = @_;
    if ($link =~ /[\w\-]+\@[\w\-]+\.[\w\-]+/) {
       return qq(<a href="mailto:$link">$str</a>);
    } elsif ($link =~ /^(http:\/\/)*([\w\-\.]+\.[\w\-]+)/ ) {
       return qq(<a href="http://$2">$str</a>);
    } else {
       return $str;
    }
}

sub smiliefy {
    my($str) = @_;
    my($smile) = qq(<img src="img/smile.gif" 
                width="18" height="18">);
    my($frown) = qq(<img src="img/frown.gif" 
                width="18" height="18">);
    my($wink) = qq(<img src="img/wink.gif" 
                width="18" height="18">);
        # remember that ()'s have to be escaped with
        # a backslash in regexes
    $str =~ s/:\)/$smile/g;
    $str =~ s/:\(/$frown/g;
    $str =~ s/;\)/$wink/g;
    return $str;
}


1;