Apache-App-Mercury

 view release on metacpan or  search on metacpan

Mercury.pm  view on Meta::CPAN

	$self->{'state'} = 'message_center';
	$self->show_mail_center;
	$controller->sitemark('/messaging');

    } elsif ($q->param('message_center')) {

	$self->{'state'} = 'message_center';
	$self->show_mail_center;
	$controller->sitemark('/messaging');

    } elsif ($self->{'state'} eq 'edit_settings' or $args{'edit_mail_prefs'}) {

	if ($q->param('add_box')) {
	    if ($self->verify_new_mailbox($q->param('new_box'))) {
		$self->add_new_mailbox($q->param('new_box'));
		$self->checkmail;
		$q->delete('new_box');
	    }
	} elsif ($q->param('delete_box')) {
	    $self->delete_mailbox($q->param('custom_box'),
				  $q->param('delete_mail_in_box'));

Mercury/Config.pm  view on Meta::CPAN

use constant MIME_FOOTER =>
  '

____________________________________________________________________________
This message has been automatically forwarded to you by Apache::App::Mercury
according to your current user settings.

To discontinue receiving these auto-forwarded e-mail messages, login
and change your mail preferences:

  '.BASE_URL.BASE_URI.'?edit_mail_prefs=1

If you do not have an account at this site, or otherwise believe you have
received this message in error, please send e-mail to
<'.ADMIN_EMAIL.'> with the word "remove" in the subject line.
____________________________________________________________________________
';

# --------------------- END USER CUSTOMIZABLE VARIABLES --------------------

Mercury/Display.pm  view on Meta::CPAN

    my $msg_in_progress =
      ref $self->{compose_msg} eq "Apache::App::Mercury::Message";

    return
      ($q->table
       ({-cellspacing => 0, -cellpadding => 0,
	 -border => 0, -bgcolor => '#cccccc'},
	$q->Tr
	([$q->td({-align => 'right'},
		 $q->font({-size => '-1'},
			  $q->a({-href => BASE_URI.'?edit_mail_prefs=1'},
				"Edit mail settings"))),
	  $q->td({-align => 'right'},
		 $q->hr({-width => '50%', -align => 'right', -size => 1})),
	  $q->td({-align => 'right'},
		 $q->font({-size => '-1'},
			  $q->submit('check_mail', "Check mail"))),
	  $q->td({-align => 'right'},
		 $q->font({-size => '-1'},
			  $q->em("Mail last checked at:".$q->br.
				 $q->u($last_time)))),

Mercury/Display.pm  view on Meta::CPAN

	      ? ($q->td({-align => 'right'},
			$q->font({-size => '-1'},
				 (@transfer_boxes
				  ? ($q->submit('transfer',
						"Transfer selected messages") .
				     $q->br. "to Mailbox: ".
				     $q->popup_menu(-name => 'to_mailbox',
						    -values => \@transfer_boxes,
						    -labels => $labels))
				  : ($q->em("You can ".
					    $q->a({-href => BASE_URI.'?edit_mail_prefs=1'},
						  "create custom mailboxes")."."))))),
		 $q->td({-align => 'right'},
			$q->hr({-width => '50%',-align =>'right',-size => 1})))
	      : () )),
	  $q->td({-align => 'right'},
		 $q->font({-size => '-1'},
			  $q->submit('delete',"Delete selected messages")))
	 ])
       )
      );

TODO  view on Meta::CPAN

* rewrite:
  - mod_perl handler connections
  - get database schema working, figure out user prefs
  - user settings maintenance page!!
* documentation:
  - per-class, method-by-method detailed pods
  - FAQ / HOWTO: eg. walkthrough for private-labelling, customization, etc
  - class hierarchy diagrams; is-a, has-a relationships between objects
  - special methods AUX_HEADERS and USER_INFO_HREF in Display class
* live, working demo
  - use basic HTTP authentication with AuthDBFile, and include code
    in distribution
  - make an easier install process: working application out-of-the-box