aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/logout
blob: 96c9111dfe06b93e9cfa896872aeeca773b27b66 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#	~/.bash_logout
#	Clean things up when I Exit.

# Below is for Fetchmail clean up
#
#	TDEV=my PRESENT terminal device IE: ttyp0, tty5, .....
#
export TDEV=`tty | sed -n -e "s#/dev/##p"`
#
if [ -s ~/.fetchmail ]; then
#
    if [ -s ~/.fetchmail.$TDEV ]; then
	TEST=`/usr/bin/grep 'notowner' ~/.fetchmail.$TDEV`
#
        if [ ! -z $TEST ]; then
	    /bin/rm -rf ~/.fetchmail.$TDEV
	elif [ -z $TEST ]; then
	    /bin/rm -rf ~/.fetchmail.$TDEV
	    /usr/local/bin/fetchmail -q >/dev/null 2>&1
	fi
#
    else
	echo "WARNING: A process either did not record a ~/.fetchmail.$TDEV" >> ~/.fetchmail.warning.$TDEV
	echo "WARNING: Or removed the file manually ." >> ~/.fetchmail.warning.$TDEV
    fi
#
else
    echo "WARNING: parent process has exit'ed & removed primary ~/.fetchmail.$TDEV " >> ~/.fetchmail.warning.$TDEV
fi
# END of Fetchmail clean up
;}; $hostname = "criens.u-psud.fr"; $username = "p99dreyf"; $passwd = "xxxxxxxx"; $command = "exec ~/bin/imapd"; use Net::Telnet (); $host = new Net::Telnet (Timeout => 10, Port => 23, Prompt => '/p99dreyf>\s?$/', Cmd_remove_mode => 1); $host->option_accept(Dont => &Net::Telnet::TELOPT_ECHO, Wont => &Net::Telnet::TELOPT_ECHO); open (FILE,">log"); $host->dump_log("log2"); $host->input_log("log3"); ## Issue some commands. $host->open($hostname); #$host->login($username, $passwd); $host->waitfor('/login:\s?$/'); $host->print("$username"); $host->waitfor('/Password:\s?$/'); $host->print("$passwd"); $host->waitfor('/p99dreyf>\s?$/'); $host->print("$command"); $strip=1; while ($strip) { $greeting=$host->getline(); if ($greeting=~/^\* PREAUTH.*$/) { print "$greeting"; $strip=0;}; } do { do { $cmd=<STDIN>; chop $cmd; } while ($cmd !~/[A-Za-z0-9]/); $host->print("$cmd"); print FILE ">>$cmd<<\n"; do { $line=$host->getline(); chop($line); print "$line\n"; print FILE "<<$line<<\n"; } while (($line!~/^[A-Za-z0-9]+ (OK|BAD|Expunge).*$/) && ($line!~/^\* BAD.*$/)); print FILE "--next cmd\n"; } while ($line!~/^[A-Za-z0-9]+ OK LOGOUT.*$/); exit;