7 Components: the Function Pages - Developers

Logout
214
��
��
��
protected script. The easiest way is to add it to the menu sidebar, that
is the WebLeftBar:
[[%SCRIPTURL%/viewauth%SCRIPTSUFFIX%/ ↵
%BASEWEB%/%BASETOPIC%][Login]]
This link causes the page currently being viewed to always be
loaded with the authenticated script.
The second problem: Once you are registered as a user with an IP
address, you will remain registered for life. This is not only insecure,
but also not very practical, since – especially as an administrator –
you have to switch users from time to time. A relatively short script
can bring relief: To log out, the only thing that needs to be deleted
from the corresponding file is the entry of the logged-in user. The
script looks like this:
1 #!/usr/bin/perl -w
2
3 # set path for libraries
4 BEGIN {
5 if( $ENV{"SCRIPT_FILENAME"} &&
6 $ENV{"SCRIPT_FILENAME"} =~
7 /^(.+)\/[^\/]+$/ )
8 {
9 chdir $1;
10 }
11 unshift @INC, '.';
12 require 'setlib.cfg';
13 }
14
15 # integrate necessary modules
16 use strict;
17 use CGI::Carp qw(fatalsToBrowser);
18 use CGI;
19 use TWiki;
20
21 my $query = new CGI;
22
23 # determine current user
24 my $theRemoteUser =
25 TWiki::initializeRemoteUser();
26
27 # load user file
28 my $text =
14 User Permissions in TWiki