# The configuration file for acmemail
# All code must be valid Perl...

package AcmemailConf;

use Exporter;
use strict;
use vars qw(@ISA @EXPORT_OK);
use Carp qw(verbose);

@ISA = qw(Exporter);
@EXPORT_OK = qw(image_path
	     smtphost
	     mailhost
	     mailhost_type
	     local_domain
	     hide_email_address
	     messages_in_new_window
	     max_messages_per_page
	     show_recent_messages_first
	     temporary_mime_directory
	     web_temporary_mime_directory
	     session_type
	     dope_directory
	     db_datasource
	     db_username
	     db_password
	     session_timeout
	     force_cookies
	     force_nojavascript
	     force_defang_html
	     inbox_directory
	     html_login
	     html_head
	     html_bottom
	     html_bar
	     html_message_bar
	     html_list_head
	     html_list_row
	     html_list_bottom
	     html_message_head
	     html_message_headers
	     html_message_bottom
	     html_quoted
	     html_signature);

#####
# Options
#####

# Where the images are (in relation to the webserver)
sub image_path() {
  return '/acme/graphics/';
}

# What is the SMTP mail server (where I can send mail)?
sub smtphost() {
  return '/usr/sbin/sendmail';
}

# What is the mail server (where the mail resides)?
sub mailhost() {
  return 'localhost';
}

# Should I check POP3 or IMAP mail?
sub mailhost_type() {
#  return 'pop3';
  return 'imap';
}

# If using IMAP, what is the name of the INBOX/Mail
# directory
sub inbox_directory() {
  return "Mail";
}

# What is my local domain?
sub local_domain() {
  return 'idiom.com';
}

# Should I hide email addresses (only show names)?
sub hide_email_address() {
  return 0;
}

# 0 = messages shown in same window as message list
# 1 = one message list window / one message window
# 2 = one message list window / new messages shown in their
#     own window
sub messages_in_new_window() {
  return 0;
}

# How many messages to show per page
sub max_messages_per_page() {
  return 15;
}

# Show recent messages first?
sub show_recent_messages_first() {
  return 1;
}

# Where is the temporary mime directory?
sub temporary_mime_directory() {
  return "mime-tmp/";
}

# Where is the temporary mime directory? (in relation to the webserver)
sub web_temporary_mime_directory() {
  return "/acme/mime-tmp/";
}

# What kind of sessions are we going to use?
sub session_type() {
 #return "POS"; # using files and Persistant::Object::Simple
 return "Database"; # using a real database
}

# If using the POS session type...
# And where is our persistant object directory?
sub dope_directory() {
  return "dope/";
}

# If using the Database session type...
# What is the datasource for our database?
sub db_datasource() {
  return "dbi:mysql:webmail:idiom.com"; # for MySQL
#  return "dbi:Pg:dbname=acmemail"; # for PostgreSQL
}

# If using the Database session type...
# What is the username for access to the database
sub db_username() {
  return "impmail";
}

# If using the Database session type...
# What is the password for access to the database
sub db_password() {
  return "k93fn43a";
}

# How long should sessions still be valid for (in seconds)?
sub session_timeout() {
  return 60*60; # An hour
}

# Should we force cookies?
sub force_cookies() {
  return 1;
#  return 0;
}

# Should we force people to turn off javascript support?
sub force_nojavascript() {
 # return 1;
  return 0;
}

# Should we try and remove malicious HTML tags
sub force_defang_html() {
  return 1;
#  return 0;
}





#####
# HTML formatting
#####


sub html_login($) {
  my $q = shift;
  my $return;
  $return .= $q->startform;
  $return .= qq|
<table cellspacing="0" cellpadding="2" border="0" bgcolor="#000000"><tr><td>
<table cellspacing="0" cellpadding="3" border="0" bgcolor="#ffffff">
|;
  $return .= '<tr><td class="mheading"><span class="mheading">User</span></td>';
  $return .= '<td class="mheading">' . $q->textfield('username') . '</td></tr>';
  $return .= '<tr><td class="mheading"><span class="mheading">Password</span></td>';
  $return .= '<td class="mheading">' . $q->password_field('password') . '</td></tr>';
  $return .= '<tr><td><br></td><td><br>';
  $return .= $q->submit('Log in');
  $return .= $q->endform;
  $return .= qq|
</td></tr></table></td></tr></table>
|;
  $return;
}


sub html_head($) {
  my $q = shift;
  my $image_path = image_path();

  my($js, $js2);

  if (force_nojavascript()) {
    $js = qq|
<SCRIPT LANGUAGE="JavaScript">
<!-- Hide script from old browsers
function force_nojavascript() {
  document.write("For security reasons, you should have JavaScript disabled for reading webmail. ");
  document.write("Please do this and then try to log in again.");
}

// End the hiding here -->
</SCRIPT>
  |;
    $js2 = qq|
<SCRIPT>
  force_nojavascript();
</SCRIPT>
<NOSCRIPT>
  |;
  }

  return qq|<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<title>acmemail</title>
<LINK rel="stylesheet" type="text/css" href="${image_path}acmemail.css">
$js
</head>
<body bgcolor="#ffffff">
<a href="http://www.astray.com/acmemail/"><img src="${image_path}acmemail.gif"
 WIDTH="441" HEIGHT="100" alt="[acmemail v2.2.1]" border="0"></a><p>$js2|;
}


sub html_bottom($) {
  my $q = shift;
  my $image_path = image_path();

  my $js;
  $js = '</NOSCRIPT>' if force_nojavascript();

  return qq|$js<p><hr><div align="right"><small><i>acmemail 2.2.1</i></small></div></body></html>|;
} #'


sub html_bar($) {
  my $q = shift;
  my $image_path = image_path();

  $q->param('list', 1);
  my $url1 = $q->self_url;
  $q->delete('list');

  $q->param('compose', 1);
  my $url2 = $q->self_url;
  $q->delete('compose');

  $q->param('logout', 1);
  my $url3 = $q->self_url;
  $q->delete('logout');

  my $return = qq|
<table border="0" cellpadding="0" cellspacing="0">
 <tr>
  <td align="center"><a href="$url1"><img src="${image_path}list.gif" alt="[List]" border=0></a></td>
  <td align="center"><a href="$url2"><img src="${image_path}edit.gif" alt="[Compose]" border=0></a></td>
  <td align="center"><a href="$url3"><img src="${image_path}logout.gif" alt="[Logout]" border=0></a></td>
 </tr>
 <tr>
  <td>&nbsp;&nbsp;List&nbsp;&nbsp;</td>
  <td>&nbsp;&nbsp;Compose&nbsp;&nbsp;</td>
  <td>&nbsp;&nbsp;Logout&nbsp;&nbsp;</td>
 </tr>
</table><br>|;
  $return;
}


sub html_message_bar($$) {
  my($q, $show) = @_;
  my $url = $q->self_url;
  my $image_path = image_path();

  $q->param('list', 1);
  my $url1 = $q->self_url;
  $q->delete('list');

  $q->param('compose', 1);
  my $url2 = $q->self_url;
  $q->delete('compose');

  $q->param('reply', $show);
  my $url3 = $q->self_url;
  $q->param('replytoall', 1);
  my $url4 = $q->self_url;
  $q->delete('replytoall');
  $q->delete('reply');

  $q->param('forward', $show);
  my $url5 = $q->self_url;
  $q->delete('forward');

  $q->param('logout', 1);
  my $url6 = $q->self_url;
  $q->delete('logout');


  my $return = qq|
<table border="0" cellpadding="0" cellspacing="0">
 <tr>
  <td align="center"><a href="$url1"><img src="${image_path}list.gif" alt="[List]" border=0></a></td>
  <td align="center"><a href="$url2"><img src="${image_path}edit.gif" alt="[Compose]" border=0></a></td>
  <td align="center"><a href="$url3"><img src="${image_path}reply.gif" alt="[Reply]" border=0></a></td>
  <td align="center"><a href="$url4"><img src="${image_path}replytoall.gif" alt="[Replytoall]" border=0></a></td>
  <td align="center"><a href="$url5"><img src="${image_path}forward.gif" alt="[Forward]" border=0></a></td>
  <td align="center"><a href="$url6"><img src="${image_path}logout.gif" alt="[Logout]" border=0></a></td>
 </tr>
 <tr>
  <td>&nbsp;&nbsp;List&nbsp;&nbsp;</td>
  <td>&nbsp;&nbsp;Compose&nbsp;&nbsp;</td>
  <td>&nbsp;&nbsp;Reply&nbsp;&nbsp;</td>
  <td>&nbsp;&nbsp;Reply to all&nbsp;&nbsp;</td>
  <td>&nbsp;&nbsp;Forward&nbsp;&nbsp;</td>
  <td>&nbsp;&nbsp;Logout&nbsp;&nbsp;</td>
 </tr>
</table><br>|;
  $return;
}


sub html_list_head ($$$$$$$) {
  my($q, $username, $nmsgs, $previous_offset, $next_offset, $mailbox, $mailboxes) = @_;

  my $image_path = image_path();
  my $mailhost = mailhost();
  my $inbox = inbox_directory();
  my $orig_offset = $q->param('offset') || 0;

  my $return = $q->startform;

  $mailbox =~ s|^$inbox/||;
  $return .= qq|Folders: |;
  $return .= $q->popup_menu(-name=>'mailbox', -values=>$mailboxes);
  $return .= qq|<INPUT TYPE="submit" NAME="viewmailbox" VALUE="Go"><p>|;

  if ($nmsgs == 0) {
    $return .= "There are no messages";
  } elsif ($nmsgs == 1) {
    $return .= "Showing the only message";
  } else {
    my $from = $q->param('offset') || '0';
    my $to = (sort {$a <=> $b} ($from + max_messages_per_page(), $nmsgs))[0];
    $from++;
    $return .= "Showing messages $from-$to of $nmsgs messages";
  }
  $return .= " in the '$mailbox' folder for $username\@$mailhost";

  $return .= qq|<p>|;
  my $offset = $q->param('offset');
  if (defined $previous_offset) {
    $q->param('offset', $previous_offset);
    my $url = $q->self_url;
    $return .= qq|<img src="${image_path}/left.gif" alt="[<-]"> |;
    $return .= qq|<a href="$url">See previous | . max_messages_per_page() . qq| messages</a>|;
    $return .= " ... " if defined $next_offset;
  }
  if (defined $next_offset) {
    $q->param('offset', $next_offset);
    my $url = $q->self_url;
    my $nmessages = $nmsgs - $next_offset;
    $nmessages = max_messages_per_page() if $nmessages > max_messages_per_page();
    $return .=  qq|<a href="$url">See next $nmessages messages</a>|;
    $return .= qq| <img src="${image_path}/right.gif" alt="[->]">|;
  }
  $q->param('offset', $orig_offset); # reset to old value


  my $trash = $q->image_button('-name'=>'delete', '-src'=>qq|${image_path}trash.gif|,
			       '-alt'=>'Delete messages', '-border'=>0);

  $return .= qq|<p>
<table cellspacing="0" cellpadding="2" border="0" bgcolor="#000000"><tr><td>
<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td class="heading" width="300"><SPAN CLASS="heading">Subject</SPAN></td>
<td class="heading"><SPAN CLASS="heading">From</SPAN></td>
<td class="heading"><SPAN CLASS="heading">Date</SPAN></td>
<td class="heading"><SPAN CLASS="heading">Size</SPAN></td>
<td class="heading">$trash</td>
</tr>|;

  $return;
}


{ # closure for the $class variable, which alternates
  # between 'one' and 'two' for the stylesheet...
  my $class;

  sub html_list_row($$$$$$$$) {
    my($q, $i, $subject, $from, $date, $size, $notseen, $attachment) = @_;

    # Create reference to self with right parameter
    $q->param('show', $i);
    my $url = $q->self_url;
    $q->delete('show');
    my $target;
    $target = q| target="_acme_messages"| if (messages_in_new_window() == 1);
    $target = q| target="_blank"| if (messages_in_new_window() == 2);

    $subject = "<b>$subject</b>" if $notseen;

    $subject = qq|<a href="$url"$target>$subject</a>|;
    $subject .= q| <img src="| . image_path() . qq|clip.gif" ALT="[attachment]" WIDTH="16" HEIGHT="15">| if $attachment;

    my $delete = $q->checkbox('-name'=>'todelete', '-value'=>$i, '-label'=>'');

    $class = ($class eq 'one') ? 'two' : 'one';
    
    return qq|
<tr class="$class">
<td>$subject</td>
<td>$from</td>
<td>$date</td>
<td align="right">$size</td>
<td>$delete</td>
</tr>
  |;
  }
} # end of closure


sub html_list_bottom($) {
  my $q = shift;
  my $image_path = image_path();
  my $return;
  $return = $q->hidden('sessionid') unless force_cookies()
    and not (defined $q->cookie('session-id') or defined $q->cookie('cantakecookies'));
  $return .= $q->endform . qq|</table></td></tr></table><br>|;
  return $return;
}


sub html_message_head($) {
  my $q = shift;

  return qq|
<table cellspacing="0" cellpadding="2" border="0" bgcolor="#000000"><tr><td>
<table cellspacing="0" cellpadding="3" border="0" bgcolor="#ffffff"><tr><td>
  |;
}


sub html_message_headers($$$$$$) {
  my($q, $from, $subject, $to, $cc, $date) = @_;

  my $return = qq|
<table bgcolor="#aaffaa" cellspacing="0" cellpadding="2" width="100%" border="0">
<tr><td>
<table border=0>
 <tr><td class="mheading" align="right"><span class="mheading">From:</span></td>
     <td>$from</td></tr>
 <tr><td class="mheading" align="right" valign="top"><span class="mheading">Subject:</span></td>
     <td colspan="2">$subject</td></tr>|;

  $return .= qq|<tr><td class="mheading" align="right" valign="top"><span class="mheading">To:</span></td>
                    <td colspan="2">$to</td></tr>| if ($to ne "<br>");
  $return .= qq|<tr><td class="mheading" align="right" valign="top"><span class="mheading">CC:</span></td>
                    <td colspan="2">$cc</font></td></tr>| if ($cc ne "<br>");
  $return .= qq|</table>
</td><td align="right" valign="top"><table><tr><td>$date</td></tr></table></td></tr></table><p>|;
  $return;
}


sub html_message_bottom($) {
  my $q = shift;

  return qq|
</td></tr></table>
</td></tr></table>
  |;
}


sub html_quoted($$) {
  my($q, $text) = @_;

  return qq|<font color="#aa0000">$text</font>|;
}


sub html_signature($$) {
  my($q, $sig) = @_;

  return qq|<font size="-1" color="#555555"><pre>\n--\n\n$sig</pre></font>|;
}






# Keep Perl happy
1;