bin/view
changeset 0 414e01d06fd5
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/bin/view	Sat Jan 26 15:50:53 2008 +0100
     1.3 @@ -0,0 +1,32 @@
     1.4 +#!/usr/bin/perl -wT
     1.5 +#
     1.6 +# TWiki Enterprise Collaboration Platform, http://TWiki.org/
     1.7 +#
     1.8 +# Copyright (C) 1999-2007 Peter Thoeny, peter@thoeny.org
     1.9 +# and TWiki Contributors.
    1.10 +#
    1.11 +# This program is free software; you can redistribute it and/or
    1.12 +# modify it under the terms of the GNU General Public License
    1.13 +# as published by the Free Software Foundation; either version 2
    1.14 +# of the License, or (at your option) any later version. For
    1.15 +# more details read LICENSE in the root of this distribution.
    1.16 +#
    1.17 +# This program is distributed in the hope that it will be useful,
    1.18 +# but WITHOUT ANY WARRANTY; without even the implied warranty of
    1.19 +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
    1.20 +#
    1.21 +# As per the GPL, removal of this notice is prohibited.
    1.22 +
    1.23 +BEGIN {
    1.24 +    # Set default current working directory (needed for mod_perl)
    1.25 +    if( $ENV{"SCRIPT_FILENAME"} && $ENV{"SCRIPT_FILENAME"} =~ /^(.+)\/[^\/]+$/ ) {
    1.26 +        chdir $1;
    1.27 +    }
    1.28 +    # Set library paths in @INC, at compile time
    1.29 +    unshift @INC, '.';
    1.30 +    require 'setlib.cfg';
    1.31 +}
    1.32 +
    1.33 +use TWiki::UI;
    1.34 +use TWiki::UI::View;
    1.35 +TWiki::UI::run( \&TWiki::UI::View::view, view => 1 );