package Ubersite;

#  $Id: Ubersite.pm,v 1.8 2000/03/24 08:05:21 bart Exp $

use strict;

use HTML::Entities;
use Image::Size;

use lib "/home/bart/www/ubersite.com/lib";
use Common;
use Category;

my $script_submit = "/cgi-bin/message_submit.cgi";
my $script_review = "/cgi-bin/message_review.cgi";
my $script_attach = "/cgi-bin/message_get_attach.cgi";
my $script_view_s = "/cgi-bin/message_get.cgi";
my $script_view_a = "/cgi-bin/message_get.cgi";


$Ubersite::anonymous_id = 0;

@Ubersite::stylesheets = ( "/styles/classic.css", "/styles/classic.css" );
@Ubersite::logos       = ( "/images/uber_small.gif", "/images/uber_small.gif" );


sub process_part {

    my $ctype       = shift || "text/plain";
    my $cname       = shift;
    my $body        = shift;
    my $message_id  = shift;
    my $part_number = shift;
    my $source      = shift;

    my $body_length = length($body);

    my ($img_width,$img_height,$err);
    ($img_width,$img_height,$err) = imgsize( \$body ) if ( $ctype =~ /^image\//i );

    if( !defined $img_width || !defined $img_height) {
      $img_width  = "NULL";
      $img_height = "NULL";
    }

    $cname = &stripdosdir($cname);

    $ctype = &Common::dbquote( $ctype );
    $cname = &Common::dbquote( $cname );
    $body  = &Common::dbquote( $body );

    my $sql = "INSERT INTO message_parts (message_id,number,content_type,content_name,content,datasource) VALUES($message_id,$part_number,$ctype,$cname,$body,$source)";

    my $sth = &Common::dosql( $sql );
    $sth->finish;

    $sql = "INSERT INTO message_parts_aux (message_id,number,content_length,width,height) VALUES( $message_id, $part_number, $body_length, $img_width, $img_height )";
    $sth = &Common::dosql( $sql );
    $sth->finish;
}


sub generate_message_id {
    return time() . int(rand(10000)) . $$;
}


sub process_message {
    my $subject = shift || "No subject";
    my $sender  = shift || "Bob";
    my $to      = shift;
    my $message_id = shift;
    my $category   = shift;
    my $sender_id  = shift;
    my $source_id  = shift;
    my $template   = shift;

    my $ip = $ENV{'REMOTE_ADDR'};

    chomp $subject;
    chomp $sender;
    chomp $to;

    my $recipient_id = &get_recipient_id($to);

    if( $recipient_id == 0 )
    {
      $recipient_id = "NULL";
    }

    $subject   = &Common::dbquote( $subject );
    $sender    = &Common::dbquote( $sender  );
    $to        = &Common::dbquote( $to      );
    $ip        = &Common::dbquote( $ip      );
    $sender_id = int($sender_id);
    $source_id = int($source_id);
    $template  = &Common::dbquote( $template);

    my $sql = <<SQL;
INSERT 
INTO messages 
   ( id,
     recipient_id,
     recipient,
     subject,
     sender,
     category,
     sender_id,
     source,
     modified,
     created,
     ip,
     template_code ) 
VALUES
   ( $message_id,
     $recipient_id,
     $to,
     $subject,
     $sender,
     $category,
     $sender_id,
     $source_id,
     NOW(),
     NOW(),
     $ip,
     $template )
SQL

    my $sth = &Common::dosql( $sql );
    $sth->finish;
}


sub update_message {
    my $subject  = shift;
    my $sender   = shift;
    my $to       = shift;
    my $id       = shift;
    my $category = shift;
    my $user_id  = shift;

    chomp $subject;
    chomp $sender;
    chomp $to;

    $subject = &Common::dbquote( $subject );
    $sender  = &Common::dbquote( $sender  );
    $to      = &Common::dbquote( $to      );

    my $sth = &Common::dosql( "UPDATE messages SET subject=$subject, sender=$sender, recipient=$to, category=$category, sender_id=$user_id, modified=NOW() WHERE id=$id" );
    $sth->finish;
}


sub delete_message {
    my $id = shift;

    my $sth = &Common::dosql( "DELETE FROM messages WHERE id=$id" );
    $sth->finish;
    my $sth = &Common::dosql( "DELETE FROM message_parts WHERE message_id=$id" );
    $sth->finish;
    my $sth = &Common::dosql( "DELETE FROM message_reviews WHERE message_id=$id" );
    $sth->finish;
}


#  This takes a username and returns a hash containing all the info for that user.
#  If no such user exists, undef is returned
sub getuserinfo {
    my $user = shift;

    my $sql = "SELECT id, user, external_name, ve_id, eligibility, is_uberblessed, is_hiding_ads FROM users WHERE user='$user'";
    my $sth = &Common::dosql( $sql );

    my $userinfo = $sth->fetchrow_hashref;
    if( $userinfo ) {
	$userinfo->{name} = $userinfo->{first_name} . ' ' . $userinfo->{last_name};
    }

    $sth->finish;

    return $userinfo;
}


#  This takes a user ID and returns a hash containing all the info for that user.
#  If no such user exists, undef is returned
sub getuserinfo_meta_id {
    my $id = shift;

    $id = int($id);

    my $sql = "SELECT id, user, registered, tot_messages, tot_reviews, tot_reviewed, hits, tot_avg_status FROM users WHERE id = $id";
    my $sth = &Common::dosql( $sql );

    my $userinfo = $sth->fetchrow_hashref;

    $sth->finish;

    return $userinfo;
}


#  This takes a user name and returns a hash containing all the info for that user.
#  If no such user exists, undef is returned
sub getuserinfo_meta_user {
    my $user = shift;

    $user = &Common::dbquote($user);

    my $sql = "SELECT id, user, registered, tot_messages, tot_reviews, tot_reviewed, hits, tot_avg_status FROM users WHERE user = $user";
    my $sth = &Common::dosql( $sql );

    my $userinfo = $sth->fetchrow_hashref;

    $sth->finish;

    return $userinfo;
}


#  This takes a user ID and returns a hash containing all the info for that user.
#  If no such user exists, undef is returned
sub getuserinfo_pref {
    my $user = shift;

    my $sql = "SELECT id, user, email, external_name, registered, password, first_name, last_name, city, state, zip, country, ve_id, is_hiding_ads, timezone_id FROM users WHERE user = '$user'";
    my $sth = &Common::dosql( $sql );

    my $userinfo = $sth->fetchrow_hashref;

    $sth->finish;

    return $userinfo;
}


#  Take the given string and format it so that it looks the way you think it should
sub magical_encode
{
    my $ref   = \$_[0];
    my $nobr  =  $_[1];
    my $notag =  $_[2];

    my $val = $$ref;

    $val =~ s/\&\#8211\;/\-/g;
    $val =~ s/\&\#8216\;/\'/g;
    $val =~ s/\&\#8217\;/\'/g;
    $val =~ s/\&\#8220\;/\"/g;
    $val =~ s/\&\#8221\;/\"/g;
    $val =~ s/\&\#8230\;/\.\.\./g;
    encode_entities($val);
    $val =~ s/\n/\n<BR>/g unless $nobr;
    $val =~ s/\&\#13\;//g;

    $val =~ s/((http|https|ftp):\/\/[\&\;\@\=\%\#\.\+\,\/\~\?\:\-_a-zA-Z0-9]+)/<A HREF="$1" onMouseOver="uberLinkMouseOver(this)" onMouseOut="uberLinkMouseOut()">$1<\/A>/g unless $notag;

    $val =~ s/\((www\.[\&\;\@\=\%\#\.\/\~\?\-_a-zA-Z0-9]+)\)/(<A HREF="http:\/\/$1">$1<\/A>)/gi       unless $notag;
    $val =~ s/([a-zA-Z0-9_\.\-\=]+)\@([a-zA-Z0-9_\.\-]+\.[a-zA-Z0-9_\.\-]+)/<I>$1.at.$2<\/I>/g        unless $notag;
    $val =~ s/([a-zA-Z0-9_\.\-\=]+)\@([a-zA-Z0-9_\.\-]+\.[a-zA-Z0-9_\.\-]+)/$1.at.$2/g                    if $notag;
    $val =~ s/decss/<A HREF="http:\/\/www.opendvd.org">DeCSS<\/A>/ig                                  unless $notag;
    $val =~ s/\&\#133\;/\.\.\./g;
    $val =~ s/\&\#145\;/\'/g;
    $val =~ s/\&\#146\;/\'/g;
    $val =~ s/\&\#147\;/\"/g;
    $val =~ s/\&\#148\;/\"/g;
    $val =~ s/\&\#150\;/\-/g;
    $val =~ s/\&\#153\;/\&trade\;/g;
#    $val =~ s/you\'re a racist\, dr\. seuss/<A HREF="http:\/\/www.ubersite.com\/cgi-bin\/message_get.cgi?message=97590050563215167">$&<\/A>/ig; 
    $$ref = $val;
}

sub print_page_top {
    my %params = @_;
    my $uri_this      = $params{URI};
    my $title         = $params{Title};
    my $authenticated = $params{Auth};
    my $user          = $params{User};
    my $no_submit     = $params{NoSubmit};
    my $no_login      = $params{NoLogin};
    my $my_uber       = $params{MyUber};
    my $next_id       = $params{NextId};
    my $prev_id       = $params{PrevId};
    my $style_idx     = $params{StyleIndex};
    my $my_account    = $params{MyAccount};
    my $rss_url       = $params{RSS};

    my $uri_logout = &Common::make_uri( "/cgi-bin/login.cgi", "done" => "$uri_this", "o" => 1 );
    my $uri_login  = &Common::make_uri( "/cgi-bin/login.cgi", "done" => "$uri_this" );
    my $uri_next   = &Common::make_uri( $script_view_s, "message" => $next_id );
    my $uri_prev   = &Common::make_uri( $script_view_s, "message" => $prev_id );
    my $text_log   = ($authenticated ? "Logout" : "Register / Login");
    my $link_log   = ($authenticated ? "$uri_logout" : "$uri_login");
    my $log_button = ($no_login ? "<B>$text_log</B>" : "<A HREF=\"$link_log\">$text_log</A>");
    my $uri_email  = &Common::make_uri( $script_view_a, "r" => $user );
#    my $uri_posts  = &Common::make_uri( $script_view_a, "uber" => $user );
    my $uri_posts  = "/u/$user";

    my $posts_button = ($authenticated ? 
                        ( $my_uber ?
                          "<B>My Uber</B> - " :
                          "<A HREF=\"$uri_posts\">My Uber</A> - " ) : 
                        "");

    my $account_button = ($authenticated ? 
                          ( $my_account ?
                            "<B>My Account</B> - " :
                            "<A HREF=\"$uri_email\">My Account</A> - " ) : 
                          "");

    my $welcome = ( $authenticated ? ", $user" : "" );

    my $uri_submit = &Common::make_uri( $script_submit, "done" => "$uri_this" );
    my $submit_button = ($no_submit ? "<B>Submit</B>" : "<A HREF=\"$uri_submit\"><B>Submit</B></A>");

    $rss_url = "http://www.ubersite.com/ubersite.rss" unless $rss_url;

    $style_idx = 0 if ! ($style_idx >= 0 && $style_idx <= $#Ubersite::stylesheets );

    my $doing_uberboard = 1;
#    my $doing_uberboard = 0;

    my $uberboard_msg;

    if($doing_uberboard)
    {
      use BoardQuotes;
      my @quote_ids = keys %BoardQuotes::uberboard_quotes;
      my $quote_idx = int(($#quote_ids+1) * rand());
      my $quote_id = $quote_ids[$quote_idx];
      $uberboard_msg = $BoardQuotes::uberboard_quotes{$quote_id};

      &Ubersite::magical_encode($uberboard_msg);
    }

    print <<EOT;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
  <META NAME="keywords" CONTENT="Ubersite News Humor Jokes Music Movies Sports">
  <META NAME="author" CONTENT="Chief Uber">
  <META NAME="generator" CONTENT="My Hands v1.0b">
  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
  <TITLE>$title</TITLE>
  <LINK REL="top" HREF="http://www.ubersite.com/" TITLE="Ubersite">
  <LINK REL="search" HREF="http://www.ubersite.com/cgi-bin/search.cgi" TITLE="Ubersearch">
  <LINK REL="icon" HREF="/favicon.ico">
  <LINK REL="stylesheet" MEDIA="screen,print" HREF="$Ubersite::stylesheets[$style_idx]" type="text/css">
  <LINK REL="alternate stylesheet" MEDIA="screen,print" HREF="/styles/usa.css" TYPE="text/css" TITLE="USA!">
  <LINK REL="stylesheet" MEDIA="print" HREF="/print.css" type="text/css">
  <LINK REL="bookmark" HREF="http://boredatwork.com/" TITLE="Bored At Work">
  <LINK REL="alternate" HREF="${rss_url}" TITLE="RSS" TYPE="application/rss+xml">
  <SCRIPT LANGUAGE="JavaScript" SRC="/scripts/info_popup.js" TYPE="text/javascript"></SCRIPT>
</HEAD>
<BODY>
<DIV>
<DIV CLASS="header-img">
<A HREF="/"><IMG SRC="$Ubersite::logos[$style_idx]" WIDTH="100" HEIGHT="59" BORDER="0" ALT="Ubersite"></A>
</DIV>
<DIV CLASS="header-about">
<A HREF="/">Home</A>
- <A HREF="/cgi-bin/about.cgi">About Us</A>
- <A HREF="/cgi-bin/contact.cgi">Contact</A>
</DIV>
</DIV>
EOT

#    my $err_msg = "Seriously, finish up whatever you're doing.  The site is going down in just a few minutes.";
#    my $err_msg = "Ubersite will be temporarily unavailable from 12:30am until 2am EST for some maintenance work";
    my $err_msg;

    if( $err_msg )
    {
      print <<EOT;
<DIV CLASS="header-error">
$err_msg
</DIV>
EOT
    }

    if( $doing_uberboard )
    {
      print <<EOT;
<DIV CLASS="uberboard">
<DIV CLASS="uberboard-link">
<A HREF="/cgi-bin/uberboard.cgi">uberboard</A>
</DIV>
$uberboard_msg
</DIV>
EOT
    }

    print <<EOT;
<DIV CLASS="account">
<DIV CLASS="account-links">
$posts_button
$account_button
$submit_button
- $log_button
</DIV>
<B>Welcome to Ubersite$welcome!</B>
</DIV>
<DIV CLASS="additional-links">
<A HREF="/addtab.html">Mozilla Tab Info</A>
</DIV>
EOT
}

#  If the given filename is a DOS pathname, strip off the extra crap
sub stripdosdir {
    my( $filename ) = @_;

    if( $filename =~ /^[A-Z]:.*\\(.+)/ ) {
        $filename = $1;
    }

    return $filename;
}


sub get_recipient_id {
    my $user = shift;
    my $id   = $Ubersite::anonymous_id;

    return $id if( !$user || $user =~ /^submit/i );

    $user =~ s/\@.*$//;
    $user = &Common::dbquote($user);

    my $sql = "SELECT id FROM users WHERE user=$user";
    my $sth = &Common::dosql($sql);

    if( my $hashref = $sth->fetchrow_hashref ) {
	$id = $hashref->{id};
    }

    $sth->finish;

    return $id;
}


sub get_email_category {
    my $to = shift;

    chomp($to);
    chomp($to);

    $to = &Common::dbquote($to);
    my $sql = "SELECT category FROM email_to_category WHERE email = $to";
    my $sth = &Common::dosql($sql);

    my $hashref = $sth->fetchrow_hashref;

    my $category = $Category::root_id;

    if( $hashref ) {
	$category = $hashref->{category};
    }
    else {
	my $sql = "INSERT INTO email_to_category (email,category) VALUES($to,$category)";
	my $sth = &Common::dosql($sql);
	$sth->finish;
    }

    $sth->finish;

    return $category;
}

1;