One Hat Cyber Team

View File Name : index.cgi

#!/usr/bin/perl
# index.cgi
# Display mail forwarding from .forward file

require './forward-lib.pl';
&ui_print_header(undef, $text{'index_title'}, "", undef, 0, 1);
&ReadParse();

if ($config{'mail_system'} == 0) {
	# See if we can use or offer simple mode
	$simple = &get_simple();
	}
if ($simple) {
	# Possible .. show selector
	$in{'simple'} = 1 if (!defined($in{'simple'}));
	print $text{'index_mode'},"\n";
	foreach $s (1, 0) {
		if ($s == $in{'simple'}) {
			print "<span data-unckecked>" . $text{'index_simple'.$s},"</span>\n";
			}
		else {
			print &ui_link("index.cgi?simple=$s", $text{'index_simple'.$s});
			}
		print " | \n" if ($s != 0);
		}
	print "<p>\n";
	}

if ($in{'simple'} && $simple) {
	# Simple mode for Sendmail
	print &ui_form_start("save_simple.cgi", "post");
	print &ui_table_start($text{'index_header'}, undef, 2);

	print &ui_table_row($text{'index_local'},
			    &ui_checkbox("local", 1, $text{'index_localyes'},
					 $simple->{'local'}));

	print &ui_table_row($text{'index_forward'},
			    &ui_checkbox("forward", 1,$text{'index_forwardyes'},
					 $simple->{'forward'})." ".
			    &ui_textbox("forwardto", $simple->{'forward'} ||
					     $userconfig{'forwardto'}, 50));

	# Autoreply active and text
	print &ui_table_row($text{'index_auto'},
			    &ui_checkbox("auto", 1,$text{'index_autoyes'},
					 $simple->{'auto'})."<br>\n".
			    &ui_textarea("autotext", $simple->{'autotext'},
					 5, 70));

	# Attached files
	if ($config{'attach'}) {
		$ftable = "";
		$i = 0;
		foreach $f (@{$simple->{'autoreply_file'}}, undef) {
			$ftable .= &ui_textbox("file_$i", $f, 50)." ".
				   &file_chooser_button("file_$i")."<br>\n";
			$i++;
			}
		print &ui_table_row($text{'index_files'}, $ftable);
		}

	$period = $simple->{'replies'} && $simple->{'period'} ?
			int($simple->{'period'}/60) :
		  $simple->{'replies'} ? 60 : undef;
	print &ui_table_row($text{'index_period'},
	    &ui_opt_textbox("period", $period, 3, $text{'index_noperiod'})." ".
	    $text{'index_mins'});

	$df = &mailbox::get_preferred_from_address();
	$mode = $simple->{'from'} eq $df || !$simple->{'autotext'} ? 2 :
		$simple->{'from'} ? 0 : 1,
	print &ui_table_row($text{'index_from'},
		&ui_radio("from_def", $mode,
			  [ [ 1, $text{'index_fromauto'} ],
			    [ 2, $text{'index_fromdef'} ],
			    [ 0, $text{'index_fromaddr'}." ".
				 &ui_textbox("from", $simple->{'from'} || $df,
					     50) ] ]));

	# Character set
	$cs = $simple ? $simple->{'charset'} :
	      &get_charset() eq $default_charset ? undef : &get_charset();
	$csmode = $cs eq &get_charset() ? 2 :
		  $cs ? 0 : 1;
	print &ui_table_row($text{'index_charset'},
		&ui_radio("charset_def", $csmode,
			  [ [ 1, $text{'default'}." ($default_charset)" ],
			    &get_charset() eq $default_charset ? ( ) :
				( [ 2, $text{'index_charsetdef'}.
				       " (".&get_charset().")" ] ),
			    [ 0, $text{'index_charsetother'} ] ])." ".
		&ui_textbox("charset", $csmode == 0 ? $cs : "", 20));
	
	print &ui_table_end();
	print &ui_form_end([ [ "save", $text{'save'} ] ]);
	}
elsif ($config{'mail_system'} == 0) {
	# Sendmail forwarding
	print "$text{'index_desc'}<p>\n";
	@aliases = &list_aliases();
	if (@aliases) {
		# find a good place to split
		$lines = 0;
		for($i=0; $i<@aliases; $i++) {
			$aline[$i] = $lines;
			$al = scalar(@{$aliases[$i]->{'values'}});
			$lines += ($al ? $al : 1);
			}
		$midline = int(($lines+1) / 2);
		for($mid=0; $mid<@aliases && $aline[$mid] < $midline; $mid++) { }

		# render tables
		print "<table width=100%> <tr><td width=50% valign=top>\n";
		&aliases_table(@aliases[0..$mid-1]);
		print "</td><td width=50% valign=top>\n";
		if ($mid < @aliases) { &aliases_table(@aliases[$mid..$#aliases]); }
		print "</td></tr> </table>\n";
		}
	else {
		print "<b>$text{'index_none'}</b> <p>\n";
		}
	}
else {
	# Qmail forwarding
	print "$text{'index_desc'}<p>\n";
	@aliases = &list_dotqmails();
	if (@aliases) {
		# find a good place to split
		$lines = 0;
		for($i=0; $i<@aliases; $i++) {
			$aline[$i] = $lines;
			$al = scalar(@{$aliases[$i]->{'values'}});
			$lines += ($al ? $al : 1);
			}
		$midline = int(($lines+1) / 2);
		for($mid=0; $mid<@aliases && $aline[$mid] < $midline; $mid++) { }

		# render tables
		print "<table width=100%> <tr><td width=50% valign=top>\n";
		&dotqmail_table(@aliases[0..$mid-1]);
		print "</td> <td> </td> <td width=50% valign=top>\n";
		if ($mid < @aliases) { &dotqmail_table(@aliases[$mid..$#aliases]); }
		print "</td></tr> </table>\n";
		}
	else {
		print "<b>$text{'index_none'}</b> <p>\n";
		}
	}

if (!$in{'simple'} || !$simple) {
	@links = ( &ui_link('edit_alias.cgi?new=1', $text{'index_add'}) );
	if ($config{'mail_system'} == 0 && $config{'edit'}) {
		push(@links, &ui_link('edit_forward.cgi', &text('index_edit', "<tt>.forward</tt>")));
		}
	print &ui_links_row(\@links);
	}

&ui_print_footer("/", $text{'index'});

sub aliases_table
{
print &ui_columns_start([ $text{'aliases_to'},
			  $text{'aliases_enabled'} ], 100, 2);
foreach my $a (@_) {
	my @cols;
	my $e = "";
	foreach $v (@{$a->{'values'}}) {
		($anum, $astr) = &alias_type($v);
		$e .= &text("aliases_type$anum", "<tt>@{[&html_escape($astr)]}</tt>")."<br>\n";
		}
	push(@cols, &ui_link("edit_alias.cgi?num=$a->{'num'}", $e));
	push(@cols, $a->{'enabled'} ? $text{'yes'} :
                	"<font color=#ff0000>$text{'no'}</font>");
	print &ui_columns_row(\@cols);
	}
print &ui_columns_end();
}

sub dotqmail_table
{
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'aliases_from'}</b></td> <td><b>$text{'aliases_to'}</b></td> </tr>\n";
foreach $a (@_) {
	print "<tr $cb>\n";
	my $lnk = &ui_link("edit_alias.cgi?file=$a->{'file'}",
				&html_escape($a->{'name'} ? "$remote_user-$a->{'name'}" : $remote_user));
	print "<td>$lnk</td>\n";
	print "<td>\n";
	foreach $v (@{$a->{'values'}}) {
		($anum, $astr) = &alias_type($v);
		print &text("aliases_type$anum", "<tt>$astr</tt>"),"<br>\n";
		}
	print "</td> </tr>\n";
	}
print "</table>\n";

}