#!/usr/local/bin/perl
# inbox_logout.cgi
# Clear inbox POP3 login and password

require './mailbox-lib.pl';
&ReadParse();
@folders = &list_folders();
$folder = $folders[$in{'folder'}];

if ($folder->{'type'} == 2) {
	unlink("$user_module_config_directory/inbox.pop3");
	}
else {
	unlink("$user_module_config_directory/inbox.imap");
	}
&redirect("index.cgi?folder=$in{'folder'}");