summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/bin/makerandom.bat
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
commit316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch)
treecb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/bin/makerandom.bat
parentcd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff)
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/bin/makerandom.bat')
-rwxr-xr-xMaster/tlpkg/tlperl/bin/makerandom.bat66
1 files changed, 0 insertions, 66 deletions
diff --git a/Master/tlpkg/tlperl/bin/makerandom.bat b/Master/tlpkg/tlperl/bin/makerandom.bat
deleted file mode 100755
index 672a5dd6812..00000000000
--- a/Master/tlpkg/tlperl/bin/makerandom.bat
+++ /dev/null
@@ -1,66 +0,0 @@
-@rem = '--*-Perl-*--
-@echo off
-if "%OS%" == "Windows_NT" goto WinNT
-perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
-goto endofperl
-:WinNT
-perl -x -S %0 %*
-if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
-if %errorlevel% == 9009 echo You do not have Perl in your PATH.
-if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
-goto endofperl
-@rem ';
-#!/usr/bin/perl -sI../lib -Ilib/
-#line 15
-##
-## makerandom - interface to crypt::random
-##
-## Copyright (c) 1998, Vipul Ved Prakash. All rights reserved.
-## This code is free software; you can redistribute it and/or modify
-## it under the same terms as Perl itself.
-##
-## $Id: makerandom,v 1.1.1.1 2001/06/21 15:34:49 vipul Exp $
-
-use Crypt::Random qw( makerandom makerandom_itv );
-
-unless ( $size || $lower ) {
- my $name = $0;
- $name =~ s:.*/::;
- print "usage: $name [options] \
- -size=bitsize \
- -strength=[01] \
- -dev=device \
- -lower=lower_bound \
- -upper=upper_bound \
- -num=quantity\n\n";
- exit 0;
-}
-
-
-$strength = 0 unless $strength;
-my $i = 1;
- $num = 1 unless $num;
-
-while ( $i++ <= $num ) {
-
-my $r;
-
-if ( $size ) {
- $r = makerandom Size => $size,
- Strength => $strength,
- Device => $dev;
-}
-
-if ( $lower ) {
- $r = makerandom_itv Lower => $lower,
- Upper => $upper,
- Strength => $strength,
- Device => $dev;
-}
-
-print "$r\n";
-
-}
-
-__END__
-:endofperl