#!/usr/bin/perl
##
## Perforce requires messages on stdout
##
open(STDERR, ">&STDOUT") or die "Can't dup stdout";
##
## read the password from <stdin> and truncate the newline
##
my $password = <STDIN>;
$password =~ s/\n//;
##
## success
##
if($password eq "secret"){
exit 0;
}
##
## failure
##
die "You got the password wrong!\n";
# |
Change |
User |
Description |
Committed |
|
#1
|
5369 |
Matthew Janulewicz |
Creating my guest branch. |
|
|
//guest/perforce_software/triggers/testpass.pl |
#1
|
5202 |
michael |
Authentication trigger examples for 2005.2.
Updated index page to follow. |
|
|