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