#!/usr/local/bin/perl
# -*- perl -*-

# Silly POP server

# someone keeps trying to connect to the POP3 port on a server
# not running POP3. give them something.

# log file
open( LOG, ">> /tmp/pop-log");
select LOG;
$| = 1;
select STDOUT;
$| = 1;

# simulated message
$header = "To: POP3 User\r\nFrom: POP3 Server\r\nSubject: Misconfigured Email Client\r\n";
$body = "\r\nPlease stop attempting to connect to this server.\r\nContact your ISP\r\n";


print "+OK Go Away POP Server\r\n";

while( <> ){
    s/\r//g;
    print LOG "$$: $_";
    
    if( /^user/i ){

	print "+OK\r\n";

    }elsif( /^pass/i ){

	print "+OK\r\n";

    }elsif( /^quit/i ){

	print "+ERR you can come anytime you'd like, but you can never leave\r\n";
	exit 0;

    }elsif( /^dele/i ){
	print "+OK\r\n";
    
    }elsif( /^stat/i ){

	print "+OK 100 100000\r\n";

    }elsif( /^list/i ){
	print "+OK\r\n";
	foreach $i (1 .. 100){
	    print "$i 1000\r\n";
	}
	print ".\r\n";

    }elsif( /^top\s+([^\s]*)\s+([^\s]*)/i ){
	print "+OK here you are\r\n";
	print "$header\r\n";
	print ".\r\n";

    }elsif( /^retr/i ){

	print "+OK message follows\r\n";
	print "$header\r\n";
	print "\r\n$body\r\n";
	print ".\r\n";

    }elsif( /^noop/i ){

	print "+OK\r\n";
	
    }else{

	print "-ERR sdhjfsgagsdhjsgdshjgsgajgasdhfgasdhfgerte\r\n";

    }
}