← Back to branch summary

~ubuntu-branches/debian/stretch/alpine/stretch

« back to all changes in this revision

Viewing changes to web/config/alpine.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Asheesh Laroia
  • Date: 2008-09-23 12:17:56 UTC
  • mfrom: (2.1.8 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080923121756-6u4x8bwq89qlzt32
Tags: 2.00+dfsg-2
http://bugs.debian.org/499640
Update to package description: note that Alpine is no longer in
alpha. (Closes: #499640)

Show diffs side-by-side

added added

removed removed

Lines of Context:
web/config/alpine.tcl
1
1
# Web Alpine Config options
2
 
# $Id$
 
2
# $Id: alpine.tcl 1160 2008-08-22 01:12:33Z mikes@u.washington.edu $
3
3
# ========================================================================
4
4
# Copyright 2006-2008 University of Washington
5
5
#
11
11
#
12
12
# ========================================================================
13
13
 
 
14
encoding system "utf-8"
 
15
 
14
16
set _wp(appname)        Alpine
15
 
set _wp(version)        1.00
16
17
set _wp(admin)          admin@sample-domain.edu
17
18
set _wp(helpdesk)       admin@sample-domain.edu
18
19
set _wp(comments)       help@sample-domain.edu
36
37
# place for CGI scripts that execute the interface
37
38
set _wp(appdir)         alpine
38
39
 
 
40
# place for CGI scripts supporting alternative UI
 
41
set _wp(appdir2)     [file join alpine 2.0]
 
42
 
39
43
# place for CGI scripts not requiring session-key
40
44
set _wp(pubdir)         pub
41
45
 
99
103
# various timerouts, dimensions and feature settings
100
104
set _wp(refresh)        600
101
105
set _wp(timeout)        900
 
106
set _wp(autodraft)      300
102
107
set _wp(logoutpause)    60
103
108
set _wp(indexlines)     20
 
109
set _wp(indexlinesmax)  50
104
110
set _wp(indexheight)    24
105
111
set _wp(navheight)      28
106
112
set _wp(width)          80
109
115
set _wp(config)         remote_pinerc
110
116
set _wp(motd)           motd
111
117
set _wp(save_cache_max) 6
112
 
set _wp(fldr_cache_max) 8
 
118
set _wp(fldr_cache_max) 20
113
119
set _wp(fldr_cache_def) 3
114
120
set _wp(statushelp)     0
115
121
set _wp(imgbuttons)     0
121
127
set _wp(menuargs)       {width="112" nowrap valign=top}
122
128
set _wp(ispell)         /usr/local/bin/ispell
123
129
 
 
130
# Yahoo! User Interface Library location
 
131
#set _wp(yui)           $_wp(serverpath)/$_wp(appdir2)/lib/yui
 
132
set _wp(yui)            "http://yui.yahooapis.com/2.5.2"
 
133
 
 
134
# usage reporter - input: username as first command line argument
 
135
#                  output: space separated integers usage and total
 
136
#set _wp(usage)         $_wp(bin)/usage.tcl
 
137
#set _wp(usage_link)    "https://uwnetid.washington.edu/disk/"
 
138
 
124
139
# limit uploads to 1 file at a time, maximum 20MB.
125
140
set _wp(uplim_files)    1
126
141
set _wp(uplim_bytes)    20000000
151
166
#set _wp(spamfolder)    junk-mail
152
167
#set _wp(spamsubj)      "ATTACHED SPAM"
153
168
 
 
169
# external mail filter config link
 
170
#set _wp(filter_link)   http://delivery-filter.sample-domain.edu/filter/config
 
171
 
 
172
# external vacation config link
 
173
#set _wp(vacation_link) http://vacation.sample-domain.edu/vacation/config
 
174
 
 
175
# default command evaluator DO NOT MESS WITH THIS
 
176
set _wp(eval)           {}
 
177
 
154
178
#
155
179
# Nickname server bindings.  If not present, prompt for the
156
180
# destination of the default pinerc location.
306
330
 
307
331
    set _wp(sockname) [WPSocketName $_wp(sessid)]
308
332
 
 
333
    if {[info exists _wp(cumulative)]} {
 
334
      set _wp(eval) WPSendCmdTimed
 
335
    } else {
 
336
      set _wp(eval) WPSendCmd
 
337
    }
 
338
 
309
339
    if {[info exists _wp(hostcheck)] && $_wp(hostcheck) == 1 && ![info exists created]
310
340
        && [catch {WPCmd set wp_client} client] == 0
311
341
        && (([info exists env(REMOTE_ADDR)] && [string length $env(REMOTE_ADDR)] && [string compare $client $env(REMOTE_ADDR)])
473
503
 
474
504
}
475
505
 
 
506
proc WPSendCmd {args} {
 
507
  global _wp
 
508
 
 
509
  return [WPSend $_wp(sockname) $args]
 
510
}
 
511
 
 
512
proc WPSendCmdTimed {args} {
 
513
  global _wp
 
514
 
 
515
  set t [lindex [time {set r [WPSend $_wp(sockname) $args]}] 0]
 
516
  incr _wp(cumulative) $t
 
517
 
 
518
  if {$_wp(cmdtime)} {
 
519
    WPdebug "time $t : $args"
 
520
  }
 
521
 
 
522
  return $r
 
523
}
 
524
 
476
525
proc WPCmd {args} {
477
526
  global _wp
478
527
 
479
 
  if {[info exists _wp(cumulative)]} {
480
 
    set t [lindex [time {set r [WPSend $_wp(sockname) $args]}] 0]
481
 
    incr _wp(cumulative) $t
482
 
 
483
 
    if {$_wp(cmdtime)} {
484
 
      WPdebug "time $t : $args"
485
 
    }
486
 
 
487
 
    return $r
488
 
  } else {
489
 
    return [WPSend $_wp(sockname) $args]
490
 
  }
 
528
  return [eval "$_wp(eval) $args"]
491
529
}
492
530
 
493
531
proc WPLoadCGIVar {_var} {