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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
### The owlconf config file -*- perl -*-
### $Id: owlconf.vtformat,v 1.1 2002/06/28 04:16:50 kretch Exp $
###
### This file is interpreted by the perl interpreter.
### If you wish to execute an owl command use the
### function owl::command(). i.e.
###
### owl::command("set zsigproc /mit/kretch/bin/getzsig");
###
### will set the owl variable zsigproc. Subroutines created with
### the names below will be executed at the specified times:
###
### subroutine name properties
### --------------- ----------
### owl::startup() run when owl first starts
### owl::shutdown() run when owl exits
### owl::format_msg() run when a new message arrives, the return
### value is used to display the message on the
### screen
###
### The following variables will be set each time a message is recevied:
###
### $owl::class, $owl::instance, $owl::recipient,
### $owl::sender, $owl::opcode, $owl::zsig,
### $owl::msg, $owl::time, $owl::host, @owl::fields
###
# classes will be appreviated this way
my %class_abbrev = (
"message" => "",
"spleen" => "sp",
"ccare" => "cc",
"implied-consent" => "ic",
"syseng" => "se",
"install" => "i",
);
sub owl::startup {
owl::command("set logging off");
#owl::command("set zsigproc /home/nygren/bin/owlzsigs");
owl::command("set startuplogin off");
owl::command("set shutdownlogout off");
#owl::command("set personalbell on");
owl::command("set rxping on");
owl::command("set typewinsize 5");
}
sub owl::shutdown {
# system("/mit/kretch/bin/zkill > /dev/null 2> /dev/null");
}
sub owl::format_msg {
my ($out, $tmp);
$owl::sender=~s/\@ATHENA\.MIT\.EDU$//;
$owl::sender=~s/\@local-realm$//;
if (uc($owl::opcode) eq "PING") {
return("\@bold(PING) from \@bold($owl::sender)\n");
} elsif (uc($owl::class) eq "LOGIN") {
if (uc($owl::opcode) eq "USER_LOGIN") {
$out="\@bold(LOGIN)";
} elsif (uc($owl::opcode) eq "USER_LOGOUT") {
$out="\@bold(LOGOUT)";
} else {
$out="\@bold(UNKNOWN)";
}
$out.=" for \@bold($owl::sender) at $fields[0] on $fields[2]\n";
return($out);
} elsif (uc($owl::class) eq "MAIL") {
$out = "\@bold(MAIL) ";
if ($owl::msg =~ /^From:\s+(.+)\s*$/m) { $out .= "From $1 "; }
if ($owl::msg =~ /^To:\s+(.+)\s*$/m) { $out .= "To $1 "; }
if ($owl::msg =~ /^Subject:\s+(.+)\s*$/m) { $out .= "Subject $1 "; }
return($out."\n");
}
my $channel = $owl::class;
if (defined $class_abbrev{lc($owl::class)}) {
$channel = $class_abbrev{lc($owl::class)};
}
if (lc($owl::class) ne "message" and lc($owl::instance) eq "personal") {
$owl::instance = "";
}
$channel .= "[".$owl::instance."]";
$channel = substr($channel,0,13);
$header = sprintf "%-8s %-13s ", lc($owl::sender), lc($channel);
if ($owl::msg =~ /=/) {
# indent it
$tmp=$owl::msg;
$tmp=~s/^/ /g;
$tmp=~s/\n/\n /g;
$out.=$header."\n".$tmp;
} else {
# fill it
my $pagewidth = 74;
$out .= $header;
$out .= fill_text($owl::msg, $pagewidth, 22, 1);
}
# note: no zsig added in this version
# make personal messages bold
if (uc($owl::class) eq "MESSAGE" &&
uc($owl::instance) eq "PERSONAL") {
$out="\@bold{".$out."}\n";
}
return($out);
}
sub fill_text {
my ($in, $width, $indent, $unindent_first) = @_;
$indent = 0 if (@_ < 3);
my $unindent = $indent if ($unindent_first);
my @words = split " ", $in;
my $out = "";
my $outline = "";
if (!$unindent_first) {
my $outline = " "x$indent;
}
for my $w (@words) {
if (($outline ne "")
&& (length($outline)+length($w) > $width-$unindent)) {
$out .= $outline."\n";
$outline = " "x$indent;
$unindent = 0;
}
if ($outline =~ /.*\.$/) {
$outline .= " ";
} elsif ($outline ne "") {
$outline .= " ";
}
$outline .= $w;
}
$out .= $outline . "\n";
}
|
