~ubuntu-branches/debian/squeeze/alpine/squeeze

« back to all changes in this revision

Viewing changes to web/cgi/session/startup.tcl

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

web/cgi/session/startup.tcl

 

1

#!./tclsh

 

2

# $Id: startup.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

# read config

 

15

source ./alpine.tcl

 

16

 

 

17

# Input: page

 

18

 

 

19

# Output: redirection to given page

 

20

 

 

21

cgi_eval {

 

22

  cgi_input

 

23

 

 

24

  if {[catch {cgi_import page}]} {

 

25

      WPInfoPage "Bogus Page Request" \

 

26

          "[font size=+2 "Invalid Page Request!"]" \

 

27

          "Please click your browser's [bold Back] button to return to the [cgi_link Start]"

 

28

  } else {

 

29

    cgi_http_head {

 

30

      cgi_redirect $page

 

31

    }

 

32

  }

 

33

}

 

 

b'\\ No newline at end of file'

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1