jul2002/ 0040755 0000000 0000000 00000000000 07563023630 010662 5 ustar root root jul2002/langel1.txt 0100755 0000000 0000000 00000001004 07462072556 012752 0 ustar root root Listing 1. displayLog.cgi
1. #!/bin/sh
2. # displayLog.cgi
3. # Simple shell script to tail a Web server log file
4. # Get the formfield value from the QUERY_STRING variable
5. DATE="`echo $QUERY_STRING | sed -e s/Date=//`"
6. export DATE
7. if [ "$DATE" != "" ]; then
8. DATE=$DATE
9. else
10. # Default is today
11. DATE="`date %Y%m%d`"
12. fi
13. LOGFILE="/var/log/httpd/httpd-$DATE.log"
14. # Set MIME type
15. echo "Content-type: text/plain"
16. echo
17. tail -25 $LOGFILE
jul2002/langel2.txt 0100755 0000000 0000000 00000011773 07462327426 012770 0 ustar root root Listing 2. logView.html
1.
2.
Listing 2. logView.html
1. <HTML>
2. <HEAD>
3.
<TITLE>Logfile Viewer</TITLE>
4. <META
NAME="palmcomputingplatform" CONTENT="true">
5. </HEAD>
6. <BODY>
7. <FORM
METHOD="POST" ACTION="http://myserver.mycompany.com/cgi-
bin/displayLog.cgi">
8. <TABLE>
9. <TR>
10. <TD>
11. Logfile
date 
12. </TD>
13. <TD>
14. <INPUT
TYPE="text" NAME="Date" SIZE="10"
MAXLENGTH="8">
15. </TD>
16. </TR>
17. <TR>
18. <TD>
19. <INPUT
TYPE="submit" value="Show it!">
20. </TD>
21. </TR>
22.
</TABLE>
23. </FORM>
24. </BODY>
25. </HTML>
25.
jul2002/leskol1.txt 0100755 0000000 0000000 00000012040 07462066630 012777 0 ustar root root
Listing 1
#!/usr/bin/perl -w
# Easypass.pl
# Version: 1.0
# Author: Matt Lesko, matt@advancedatatools.com http://mattlesko.dyndns.org:8080
# Inspired by: Mark A. Pors's Sort-of-pronouncable (SoP) password generator
# mark@dreamzpace.com, www.dreamzpace.com
# License: GPL
# http://www.gnu.org/copyleft/gpl.html
use strict;
use Getopt::Long;
my $dictionary = '/usr/dict/words'; # path to dict file (site dependent)
# This are the option variables, they will be undefined or 0 is no option is set
my $help = ''; # Will be true if -h or --help is specified
my $oneword = ''; # Will be true if -1 or --oneword is specified
my $number = ''; # Will be true if -n or --number is specified
my $usespecial = ''; # Will be true if -s or --special is specified
my $usel33t = ''; # Will be true if -l or --l33t is specified
my $wordlength = 0; # Will be true if -w=x or --word=x is specified (default: 5)
my $digitlength = 0; # Will be true if -d=x or --digit=x is specified (default: 2)
my $speciallength = 0; # Will be true if -g=x or --slength=x is specified (default: 1)
my $numwords = 0; # Will be true if -p=x or --passwords=x is specified (default: 10)
GetOptions ('h|help|?' => \$help, '1|oneword' => \$oneword, 'n|number' => \$number, 's|special' => \$usespecial, 'l|l33t' => \$usel33t, 'w|word=i' => \$wordlength, 'd|digit=i' => \$digitlength, 'g|slength=i' => \$speciallength, 'p|passwords=i' => \$numwords);
if($help)
{
print "\n\n";
print "Usage: $0 [options] \n\n";
print "Prints out a list of semi-memorable password for your choosing.\n";
print "The following options are supported:\n\n";
print " -h, --help Print this message\n";
print " -1, --oneword Prints only one random word (default: two)\n";
print " -n, --number Prints a random number (default: does not)\n";
print " -s, --special Prints out a 'special' character (&, #, etc.)\n";
print " -l, --l33t Forces the passwords to have 'l33t-sp34k'\n";
print " -w=x, --word=x Forces the words to be x characters (def:5, min:3, max:8)\n";
print " -d=x, --digit=x Forces the number of digits to be x(def:2, max:8)\n";
print " -g=x, --slength=x Forces the number of special characters to x (def:1, max:8)\n";
print " -p=x, --passwords=x Forces the number of passwords printed to be x (def:10)\n\n";
print "Please send any questions/comments/bugs to matt\@advancedatatools.com\n";
exit;
}
my @special = ('~', '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '_', '-', '+', '=');
my @dict;
open (DICT, "<$dictionary") || die ("Cannot open dict: $!, dictionary is located at $dictionary, according to this program; try changing this to your system.");
while (