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

« back to all changes in this revision

Viewing changes to web/cgi/alpine/fr_main.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Asheesh Laroia
  • Date: 2007-02-17 13:17:42 UTC
  • Revision ID: james.westby@ubuntu.com-20070217131742-99x5c6cpg1pbkdhw
Tags: upstream-0.82+dfsg
ImportĀ upstreamĀ versionĀ 0.82+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
#!./tclsh
 
2
# $Id: fr_main.tcl 391 2007-01-25 03:53:59Z mikes@u.washington.edu $
 
3
# ========================================================================
 
4
# Copyright 2006 University of Washington
 
5
#
 
6
# Licensed under the Apache License, Version 2.0 (the "License");
 
7
# you may not use this file except in compliance with the License.
 
8
# You may obtain a copy of the License at
 
9
#
 
10
#     http://www.apache.org/licenses/LICENSE-2.0
 
11
#
 
12
# ========================================================================
 
13
 
 
14
#  fr_main.tcl  - frame set for Index and View
 
15
#
 
16
#  Purpose:  CGI script to serve as the frame-work for including
 
17
#            supplied script snippets that generate the various 
 
18
#            javascript-free webpine pages
 
19
 
 
20
#  Input:
 
21
set frame_vars {
 
22
  {expunge      {}      0}
 
23
}
 
24
 
 
25
#  Output:
 
26
#
 
27
 
 
28
# inherit global config
 
29
source ./alpine.tcl
 
30
 
 
31
 
 
32
WPEval $frame_vars {
 
33
  source main.tcl
 
34
}