+while (($login, $potype, $exchange_id, $imap_id, $pop_id) = $sth->fetchrow_array) {
+ $login =~ tr/a-z/A-Z/;
+
+ if ($exchange_id != 0) {
+ ($mach_id) = $dbh->selectrow_array("SELECT mach_id FROM machine WHERE " .
+ "name = 'IMAP.EXCHANGE.MIT.EDU'");
+ if (defined($mach_id)) {
+ $pop_id = $mach_id;
+ }
+ }
+
+ if ($imap_id != 0) {
+ ($mach_id) = $dbh->selectrow_array("SELECT mach_id FROM filesys WHERE " .
+ "filsys_id = " . $dbh->quote($imap_id) .
+ " AND type = 'IMAP'");
+ if (defined($mach_id)) {
+ $pop_id = $mach_id;
+ }
+ }