02-12-2014
Worked like charm. Sorry for the newbie post, I promise I learn more before next time.
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi All,
I am new to UNIX Shell Scripting.
I want to know what is the difference between the following two statements.
if
and
if
Thanks & Regards (3 Replies)
Discussion started by: tvkamesh
3 Replies
2. UNIX for Dummies Questions & Answers
I am taking an intro to unix class and I can not figure out how to do part of the question. I am writing script to be exictued by a program in the tutoral.
Question:
Write every line containing the word ``delete'' produced by ``man mail'' into a file called ``delete''. Hint: What does using... (1 Reply)
Discussion started by: weathergirl
1 Replies
3. UNIX for Dummies Questions & Answers
Ok what is BSD exactly? I know its a type of open source but what is it exactly? (1 Reply)
Discussion started by: Corrail
1 Replies
4. Programming
Hello. I'm a complete newbie to C programming. I have a C program that wasn't written by me where I need to write some wrappers around it to automate and make it easier for a client to use. The problem is that the program accepts standard input to control the program... I'm hoping to find a simple... (6 Replies)
Discussion started by: Xeed
6 Replies
5. Shell Programming and Scripting
I want to append a decimal number to a string. But I want to restrict the number to only 2 decimal points
for e.g:
my $output = "\n The number is = ";
my $number = 2.3333333;
$output = $output . $number;
But I want the $output as: "The number is = 2.33"; and not 2.3333333
(I do not... (1 Reply)
Discussion started by: the_learner
1 Replies
6. Shell Programming and Scripting
Hi there, i have been trying different methods and i wonder if somebody could explain to me how i would perform a comparison on two arrays for example
my @array1 = ("gary" ,"peter", "paul");
my @array2 = ("gary" ,"peter", "joe");
I have two arrays above, and i want to something like this... (5 Replies)
Discussion started by: hcclnoodles
5 Replies
7. Shell Programming and Scripting
I am totally new to perl. I am modifying someone else's script. I have the following output:
# ./some-perlscript
A
B
C
D
E
B - E, is generated through the print command that I put in the script. I want to remove A, it seems it is generated automatically by a custom OS it is querying when... (3 Replies)
Discussion started by: streetfighter2
3 Replies
8. Shell Programming and Scripting
Hi ,
I just write a simple function to read the file line by line.
But when I run it it says out of memory.
I am not sure about the root cause, Can someone help me out of this?
:D
#! /usr/bin/perl
use strict;
sub checkAPs{
my $NDPDir = "/home/eweiqqu/NCB/NDP_files/";
... (1 Reply)
Discussion started by: Damon_Qu
1 Replies
9. Shell Programming and Scripting
Hello all!
This is my first post and I'm very new to programming. I would like help creating a simple perl or bash script that I will be using in my work as a junior bioinformatician.
Essentially, I would like to take a tab-delimted or .csv text with 3 columns and write them to a "3D" matrix:
... (16 Replies)
Discussion started by: torchij
16 Replies
10. Red Hat
Cheers!
In /etc/syslog.conf, if an error type is not specified, is it logged anywhere (most preferable is it logged to /var/log/messages) or not?
To be more precise I am interested in error and critical level messages. At default these errors are not specified in syslog.conf, and I need to... (6 Replies)
Discussion started by: dr1zzt3r
6 Replies
LEARN ABOUT DEBIAN
http::server::simple::authen
HTTP::Server::Simple::Authen(3pm) User Contributed Perl Documentation HTTP::Server::Simple::Authen(3pm)
NAME
HTTP::Server::Simple::Authen - Authentication plugin for HTTP::Server::Simple
SYNOPSIS
package MyServer;
use base qw( HTTP::Server::Simple::Authen HTTP::Server::Simple::CGI);
use Authen::Simple::Passwd;
sub authen_handler {
Authen::Simple::Passwd->new(passwd => '/etc/passwd');
}
sub handle_request {
my($self, $cgi) = @_;
my $user = $self->authenticate or return;
...
}
MyServer->new->run();
DESCRIPTION
HTTP::Server::Simple::Authen is an HTTP::Server::Simple plugin to allow HTTP authentication. Authentication scheme is pluggable and you can
use whatever Authentication protocol that Authen::Simple supports.
You can use "authenticate" method whatever you want to authenticate the request. The method returns $username taken from the request if the
authentication is successful, and "undef" otherwise. The code in "SYNOPSIS" requires authentication for all the requests and behaves just
the same as Apache's "Require valid-user".
The following code will explain more about conditioning.
sub handle_request {
my($self, $cgi) = @_;
if ($cgi->path_info =~ m!/foo/!) {
my $user = $self->authenticate;
return unless defined($user) && length($user) == 8;
}
...
}
This means all the requests to URL "/foo/" require to be authenticated, and usernames with 8 chars long are authorized.
METHODS
Your subclass has to override following methods to implement HTTP authentication.
authen_handler
Should return a valid Authen::Simple instance to authenticate HTTP request (Required).
authen_realm
Returns a string for Authentication realm to be shown in the browser's dialog box. Defaults to 'Authorized area'.
AUTHOR
Tatsuhiko Miyagawa <miyagawa@bulknews.net>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
HTTP::Server::Simple, Authen::Simple
perl v5.12.3 2006-01-15 HTTP::Server::Simple::Authen(3pm)