# We needed a way to allow those within our organization view which email addresses were attached to certain aliases. This is for iMail and mounts a storage cluster with the domains directories.
use Win32::FileOp qw(Map);
# Using the same format as below, add additional Domain Names:
@directories = ("test1.com", "test2.net", "test3.net", "test4.net");
print "
<html>
<head>
<title>Group Aliases</title>
</head>
<body>";
Map 'Z:' => '\\\\10.0.0.10\\imaildata', {
user => 'domain\\administrator',
passwd => '********'
} or die "Can't connect to the server: $^E";
print "<p><b><font size=\"5\"><a name=\"Top\">Group Aliases:</a></font></b></p>";
foreach $directory (@directories) {
print " <b><a href=\"#$directory\">$directory</a></b><br>";
}
foreach $directory (@directories) {
print "<H2><a name=\"$directory\">$directory</a></H2>";
$directory = "Z:\\IMail\\" .$directory;
opendir(DIR, "$directory" );
@files = grep(/\.*lst/,readdir(DIR));
closedir(DIR);
foreach $file (@files) {
print "<b>" .substr($file, 0, -4) ."</b><br>";
open (aliases, "$directory\\$file");
$alias = <aliases>;
chomp($alias);
while ($alias) {
if ( ($alias ne "root") ) {
print " <a href=\"mailto:$alias\">$alias</a><br>";
}
$alias = <aliases>;
} # end displaying file contents
close (aliases);
} # end displaying fime names.
print " </b><a href=\"#Top\">top</a>";
} # end displaying directory contents.
print "</body>
</html>";
system("net use Z: /DELETE");
Login
Register
FAQ
Search
