source: TI03-DataExtractor/branches/old_stuff/extractor/security_test3.pl @ 793

Subversion URL: http://proj.badc.rl.ac.uk/svn/ndg/TI03-DataExtractor/branches/old_stuff/extractor/security_test3.pl@793
Revision 793, 426 bytes checked in by astephen, 13 years ago (diff)

Put all the old code in the old_stuff branch.

  • Property svn:executable set to *
Line 
1#!/usr/bin/perl
2
3use lib "/home/tornado/internal/badc/software/perllib";
4
5use CGI;
6use BADC::Weblogon qw(validate valid_user weblogout);
7
8CGI::ReadParse();   # READS IN THE
9
10if (validate("",\%in)) {
11    @groups=BADC::Weblogon::which_groups();
12    print "Content-Type: text/html\n\n";
13    print "<P>Your valid groups are: <P>";
14    print "START_GROUPS::";
15    printf ("%s, " x @groups, @groups);
16    print "::END_GROUPS";
17}
18
19
20
Note: See TracBrowser for help on using the repository browser.