Apache-App-Mercury

 view release on metacpan or  search on metacpan

Mercury/Display.pm  view on Meta::CPAN

	   ? ($q->td({-align => 'right'},
		     $q->font({-size => '-1'},
			      $q->em("There are no messages in this mailbox."))))
	   : ($box ne 'outbox'
	      ? ($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'},

Mercury/Display.pm  view on Meta::CPAN

			  ($box ne 'outbox'
			   ? ((!$is_memo ? $q->submit('reply', "Reply") : '') .
			      $q->submit('forward', "Forward"))
			   : $q->submit('re-send', "Re-send")) .
			  $q->hr({-size => 1}))),
	  (@transfer_boxes
	   ? ($q->td({-align => 'center'},
		     $q->font({-size => '-1'},
			      $q->submit('transfer',
					 "Transfer Msg to: ") . $q->br .
			      $q->popup_menu(-name => 'to_mailbox',
					     -values => \@transfer_boxes,
					     -labels => $labels) .
			      $q->hr({-size => 1}))))
	   : () ),
	  $q->td({-align => 'center'},
		 $q->font({-size => '-1'},
			  $q->submit('delete',
				     $is_memo ? "Delete Memo" : "Delete Msg")))
	 ])
       )

Mercury/Display.pm  view on Meta::CPAN

	$q->h2("Messaging Settings for " . $self->{user_manager}->userprofile('user')) .
	$q->startform(-action => BASE_URI) .
	$q->table
	({-width => '80%'},
	 $q->Tr
	 ([$q->th({-colspan => 2, -align => 'left', -bgcolor => '#cccccc'},
		  "Add and remove customized mailboxes"),
	   $q->td({-align => 'right', -width => '50%'}, "Custom mailboxes: ") .
	   $q->td({-width => '50%'},
		  ($#custom_mboxes >= 0
		   ? $q->popup_menu(-name => 'custom_box',
				    -values => \@custom_mboxes,
				    -labels => $labels)
		   : $q->em('None'))),
	   $q->td({-valign => 'top', -width => '50%'},
		  ($#custom_mboxes < 14
		   ? ($q->submit('add_box', "Add box: ") .
		      $q->textfield(-name => 'new_box',
				    -size => 16, -maxlength => 16))
		   : $q->em("You have 15 custom mailboxes, which is the maximum currently allowed."))) .
	   $q->td({-align => 'right', -valign => 'top', -width => '50%'},

Mercury/Display.pm  view on Meta::CPAN

					    -value => 1,
					    -label => '') .
			       " Check to delete all mail in that box, otherwise mail will be transfered to your Inbox.)"))
		   : ' ')),

	   $q->th({-colspan => 2, -align => 'left', -bgcolor => '#cccccc'},
		  "Edit filters"),
	   $q->td({-width => '50%', -align => 'right'},
		  "Send transaction related messages to: ") .
	   $q->td({-width => '50%'},
		  $q->popup_menu(-name => 'trans_filter',
				 -values => [ 'inbox', @custom_mboxes ],
				 -override => 1,
				 -default => ($trans_filter
					      ? $trans_filter : 'inbox'),
				 -labels => $labels)),
	   $q->td({-colspan => 2, -align => 'right'},
		  $q->submit('commit_filter', "Commit Filter")),

	   ($self->{user_manager}->userprofile('e_mail')
	    ? ($q->th({-colspan => 2, -align => 'left', -bgcolor => '#cccccc'},
		      "E-mail auto-forwarding"),
	       $q->td({-width => '50%', -align => 'right'},
		      "Registered e-mail address:") .
	       $q->td({-width => '50%'},
		      $q->i("<".$self->{user_manager}->userprofile('e_mail').">")),
	       $q->td({-width => '50%', -align => 'right'},
		      "When I receive a message tagged <B>low</B>-security:") .
	       $q->td({-width => '50%', -align => 'left'},
		      $q->popup_menu
		      (-name => 'forward_low',
		       -values => [qw(message notify none)],
		       -override => 1,
		       -default => $self->{user_manager}->auto_forward('low'),
		       -labels => {'message' => "send the entire message",
				   'notify' => "send a notification",
				   'none' => "do not send anything"}) .
		      " to me via e-mail"),

	       $q->td({-width => '50%', -align => 'right'},
		      "When I receive a message tagged <B>medium</B>-security:") .
	       $q->td({-width => '50%', -align => 'left'},
		      $q->popup_menu(-name => 'forward_medium',
				     -values => [qw(notify none)],
				     -override => 1,
				     -default => $self->{user_manager}->auto_forward('medium'),
				     -labels => { 'notify' => "send",
						  'none' => "do not send" }) .
		      " e-mail notification"),

	       $q->td({-width => '50%', -align => 'right'},
		      "When I receive a message tagged <B>high</B>-security:") .
	       $q->td({-width => '50%', -align => 'left'},
		      $q->popup_menu(-name => 'forward_high',
				     -values => [qw(notify none)],
				     -override => 1,
				     -default => $self->{user_manager}->auto_forward('high'),
				     -labels => { 'notify' => "send",
						  'none' => "do not send" }) .
		      " e-mail notification"),

	       $q->td({-colspan => 2, -align => 'right'},
		      $q->submit('update_auto_forward',
				 "Update auto-forward settings")),

Mercury/Message.pm  view on Meta::CPAN

       $q->br .
       $q->b("Attach ") .
       $q->textfield(-name => 'num_files_to_attach', -override => 1,
		     -default => ($self->{'num_to_attach'}
				  ? $self->{'num_to_attach'} : 0),
		     -size => 2, -maxlength => 2) .
       $q->b(" file(s)") . $q->br .
       $q->b("Security level of this message: ") .
       ($self->{'security_fixed'} && $self->{'security'}
	? $q->font({-face => 'fixed'}, uc($self->{'security'}))
	: $q->popup_menu(-name => 'security', -override => 1,
			 -values => ['low', 'medium', 'high'],
			 -default => ($self->{'security'}
				      ? $self->{'security'} : 'medium'),
			 -labels => { 'low' => "Low", 'medium' => "Medium",
				      'high' => "High" },
			)) .
       $q->br
      );
}

Mercury/Message.pm  view on Meta::CPAN

					  ("$_: " . $q->filefield(-name => 'attachment'.($_-1)) . $q->br)
				      } 1..$self->{'num_to_attach'}))
			     : $q->td({-bgcolor=>'#ffffff', -valign=>'bottom'},
				      ' ')),
			    $q->td({-bgcolor => '#cccccc'},
				   $q->b("Security level: ") .
				   ($self->{'security_fixed'} &&
				    $self->{'security'}
				    ? $q->font({-face => 'fixed'},
					       uc($self->{'security'}))
				    : $q->popup_menu
				    (-name => 'security', -override => 1,
				     -values => ['low', 'medium', 'high'],
				     -default => ($self->{'security'}
						  ? $self->{'security'}
						  : 'medium'),
				     -labels => { 'low' => "Low",
						  'medium' => "Medium",
						  'high' => "High" }))),
			   ]))) .
	 $q->td({-width => 2, -bgcolor => '#999999'}, ' ') .