source: examples/owlconf.vtformat @ 70b53ec

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