I need to transform this small javascript into a perl. So then when I need to use it I can call $something, instead of using this javascript.
Could someone help me archive this? (9 Replies)
Can anyone tell me how to export a variable from one perl CGI script to another perl cgi script when using a redirect.
Upon running the login.pl the user is prompted to enter user name and password. Upon entering the correct credentials (admin/admin) the user is
redirected to welcome page.
My... (3 Replies)
i am new to Perl CGI Object oriented.
I want to use some java script in my Perl CGI but i am not able to do that.
I am using Submit button then via param() i am getting all field parameters.
But i want to validate all fields first then i want to move. But Use of Java script, i don't know (1 Reply)
Hi,
I would like to call the below perl web service from javascript .Any help would be appreciated.I am new to web services.Please do the needful.
Server Program(Perl Web Service)
#!/usr/bin/perl
use lib '/usr/lib/perl5/5.8.8/SOAP-Lite-0.65_3/lib';
use SOAP::Transport::HTTP;
use Demo;... (3 Replies)
I have javascript that I want to use to build up a dynamic array: the user clicks on one or more images and when clicking the Show button, the list of image names is displayed that the user clicked.
<script type="text/javascript">
var images = ;
images =... (0 Replies)
Hi team,
I have a typical problem with cgi pages in apache webserver in WINDOWS
I am able to execute(display) the pages that are saved in cgi-bin folder.
But I am not able to execute the pages stored in htdocs or other folder other than cgi-bin folder.
Could anyone please let me know how... (1 Reply)
Hi All,
I have written an cgi perl script that displays an image(Excel image) and when clicked on that Image I need to download a excel sheet.
I made sure that excel sheet exists in the folder with the given name but still I am not able to download the sheet.
print "<center><table... (2 Replies)
Hi Team,
I am trying to connect to database(succeeded ) and print the records on the browser using while loop. But the elements of array are not displayed instead while loop is displayed directly. Instead of the below I can embed html statements in print but I am looking for the below style as I... (1 Reply)
I am trying to get my MacBook Pro with 10.8 Mt Lion set up to run Perl CGI scripts.
Having a problem. I can start Apache Web Server with no problems.
Why do I put the static and dynamic scripts? I which directory?
I have looked at this article:... (3 Replies)
I am looking to display the pdf of one of two distributions, depending on what the user selected:
<script type="text/javascript">
function distributionChange() {
var img = document.createElement("img");
var link = 'http://en.wikipedia.org/wiki/xxx#mediaviewer/File:yyy';
switch... (4 Replies)
CGI ::Application::Plugin::Authorization::Driver::SimpleGUser(Contributed Perl DocCGI::Application::Plugin::Authorization::Driver::SimpleGroup(3pm)NAME
CGI::Application::Plugin::Authorization::Driver::SimpleGroup - Simple Group based Authorization driver
SYNOPSIS
use base qw(CGI::Application);
use CGI::Application::Plugin::Authorization;
__PACKAGE__->authz->config(
DRIVER => [ 'SimpleGroup' ],
# You are responsible for setting a group param somehow!
GET_USERNAME => sub { my $authz = shift; return $authz->cgiapp->session->param('group') },
);
DESCRIPTION
This driver achieves simplicity by assuming that the "username" method of CGI::Application::Plugin::Authorization will return a group
rather than a username. Thus it can be directly compared with the list of authorized groups passed to authorize
EXAMPLE
use base qw(CGI::Application);
use CGI::Application::Plugin::Authorization;
__PACKAGE__->authz->config(
DRIVER => [ 'SimpleGroup' ],
# You are responsible for setting a group param somehow!
GET_USERNAME => sub {
my $authz = shift;
return $authz->cgiapp->session->param('group');
},
);
sub cgiapp_prerun {
my $self = shift;
# here is an example of how you could set the
# group param that will be tested later
if ($ENV{REMOTE_USER} eq 'mark') {
$self->session->param('group' => 'admin');
}
}
sub my_runmode {
my $self = shift;
# make sure the user has 'admin' privileges
return $self->authz->forbidden unless $self->authz->authorize('admin');
# if we get here the user has 'admin' privileges
}
METHODS
authorize_user
This method is not intended to be used directly. Just follow the SYNOPSIS.
This method accepts a username followed by a list of group names and will return true if the user belongs to at least one of the groups.
SEE ALSO
CGI::Application::Plugin::Authorization::Driver, CGI::Application::Plugin::Authorization, perl(1)LICENCE AND COPYRIGHT
Copyright (c) 2006, Mark Stosberg. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.12.3 2011-05-04 CGI::Application::Plugin::Authorization::Driver::SimpleGroup(3pm)