#!/usr/local/bin/perl # index.cgi # Display icons for various things that can be configured in sendmail require './sendmail-lib.pl'; # check for mail-only user if (!$access{'opts'} && !$access{'cws'} && !$access{'masq'} && !$access{'trusts'} && !$access{'vmode'} && !$access{'amode'} && !$access{'omode'} && !$access{'cgs'} && !$access{'relay'} && !$access{'mailq'} && !$access{'mailers'} && !$access{'access'} && !$access{'domains'} && $access{'mmode'}) { if ($access{'mmode'} == 2 && $access{'musers'} !~ /\s/) { &redirect("/$module_name/list_mail.cgi?user=$access{'musers'}"); exit; } elsif ($access{'mmode'} == 4) { &redirect("/$module_name/list_mail.cgi?". "user=$remote_user"); exit; } else { &redirect("/$module_name/list_boxes.cgi"); exit; } } # Check if sendmail is actually installed if (!-x $config{'sendmail_path'}) { &header($text{'index_title'}, "", "intro", 1, 1, 0, &help_search_link("sendmail", "man", "doc", "google")); print "
",&text('index_epath', "$config{'sendmail_path'}", "$gconfig{'webprefix'}/config.cgi?$module_name"),"
\n"; print "
",&text('index_econfig', "$config{'sendmail_cf'}", "$gconfig{'webprefix'}/config.cgi?$module_name"),"
\n"; print "
$text{'index_eversion'}
\n"; print "