bin/edit
author Colas Nahaboo <colas@nahaboo.net>
Sat, 26 Jan 2008 15:50:53 +0100
changeset 0 414e01d06fd5
permissions -rwxr-xr-x
RELEASE 4.2.0 freetown
     1 #!/usr/bin/perl -wT
     2 #
     3 # TWiki Enterprise Collaboration Platform, http://TWiki.org/
     4 #
     5 # Copyright (C) 1999-2007 Peter Thoeny, peter@thoeny.org
     6 # and TWiki Contributors.
     7 #
     8 # This program is free software; you can redistribute it and/or
     9 # modify it under the terms of the GNU General Public License
    10 # as published by the Free Software Foundation; either version 2
    11 # of the License, or (at your option) any later version. For
    12 # more details read LICENSE in the root of this distribution.
    13 #
    14 # This program is distributed in the hope that it will be useful,
    15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
    16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
    17 #
    18 # As per the GPL, removal of this notice is prohibited.
    19 
    20 BEGIN {
    21     # See the 'view' script for a description of what this does
    22     if( $ENV{"SCRIPT_FILENAME"} &&
    23         $ENV{"SCRIPT_FILENAME"} =~ /^(.+)\/[^\/]+$/ ) {
    24         chdir $1;
    25     }
    26     unshift @INC, '.';
    27     require 'setlib.cfg';
    28 }
    29 
    30 use TWiki::UI;
    31 use TWiki::UI::Edit;
    32 TWiki::UI::run( \&TWiki::UI::Edit::edit, edit => 1 );
    33