source: TI12-security/trunk/perl/testInline.pl @ 3780

Subversion URL: http://proj.badc.rl.ac.uk/svn/ndg/TI12-security/trunk/perl/testInline.pl@5015
Revision 3780, 426 bytes checked in by pjkersha, 12 years ago (diff)

Working version of NDG Security Perl client - acts as a client to Single
Sign On and Gatekeeper.

  • Property svn:executable set to *
Line 
1#!/usr/bin/env perl
2
3sub perlFunc
4{
5    my $msg = shift;
6    return $msg;
7}
8
9use Inline Python => <<'END';
10def test2(a, b):
11    return a, b
12
13def pyTest(d, msg):
14    import pdb;pdb.set_trace()
15    print "d=%s" % d
16    return {'AccessGranted':True, 'msg':"Access permitted"}
17END
18
19my %hash = (a => 0, b => 1);
20my $msg = "hello";
21my $res = pyTest(\%hash, $msg);
22for my $key (keys %{$res})
23{
24    print "$key => ${$res}{$key}\n";
25}
Note: See TracBrowser for help on using the repository browser.