good_password added. Tracefile man page.

This commit is contained in:
Ole Tange 2012-09-20 18:03:26 +02:00
parent a51c490af0
commit dcbc907c1f
5 changed files with 220 additions and 32 deletions

View file

@ -1,4 +1,4 @@
all: blink/blink.1 histogram/histogram.1 upsidedown/upsidedown.1 all: blink/blink.1 histogram/histogram.1 upsidedown/upsidedown.1 tracefile/tracefile.1
blink/blink.1: blink/blink blink/blink.1: blink/blink
pod2man blink/blink > blink/blink.1 pod2man blink/blink > blink/blink.1
@ -9,6 +9,9 @@ histogram/histogram.1: histogram/histogram
upsidedown/upsidedown.1: upsidedown/upsidedown upsidedown/upsidedown.1: upsidedown/upsidedown
pod2man upsidedown/upsidedown > upsidedown/upsidedown.1 pod2man upsidedown/upsidedown > upsidedown/upsidedown.1
tracefile/tracefile.1: tracefile/tracefile.pod
pod2man tracefile/tracefile.pod > tracefile/tracefile.1
install: install:
parallel ln -sf `pwd`/{}/{} /usr/local/bin/{} ::: blink reniced em field forever neno rn stdout tracefile w4it-for-port-open upsidedown histogram parallel ln -sf `pwd`/{}/{} /usr/local/bin/{} ::: blink reniced em field forever neno rn stdout tracefile w4it-for-port-open upsidedown histogram
parallel ln -sf `pwd`/{} /usr/local/share/man/man1/{/} ::: */*.1 parallel ln -sf `pwd`/{} /usr/local/share/man/man1/{/} ::: */*.1

34
good_password/good_password Executable file
View file

@ -0,0 +1,34 @@
#!/usr/bin/perl
# This program generates passwords that:
#
# * are hard to guess
# * will be displayed unambigously in any (normal) font
# * will survive being passed through a bad fax machine
# * has UPPER lower number and sign
#
# Too close: B8 cC g9 kK lI l1 oO O0 pP sS uU vV xX zZ ,. :; `' S5
# Causes problems in URLs: @/:
# Causes problems in shell: ! " # $ & ( ) [ ] { } ? | < > \ *
# SQL uses: % for wildcard
# Hard to type: ^ ~ ¨ ¤ § ½ æ ø å Æ Ø Å
# Never 2 same chars next to eachother. (--) is bad
my $pw;
my @chars=split //, 'abdefhijmnqrtyADEFGHJLMNQRTY23467=+-';
do {
$pw = "";
for (1..12) {
do {
# avoid double chars (such as --)
$this = $chars[rand $#chars+1]
} while($last eq $this);
$last = $this;
$pw .= $this;
}
} while (not($pw =~ /[A-Z]/ and
$pw =~ /[a-z]/ and
$pw =~ /[0-9]/ and
$pw =~ /[^a-zA-Z0-9]/));
print "$pw\n";

View file

@ -2,7 +2,7 @@
=head1 NAME =head1 NAME
histogram - make a histogram on the command line histogram - make and display a histogram on the command line
=head1 SYNOPSIS =head1 SYNOPSIS
@ -110,7 +110,12 @@ git log --format=%ai | cut -d\ -f1 | uniq -c | histogram -b --post
=head1 EXAMPLE: git: commits by hour of the day =head1 EXAMPLE: git: commits by hour of the day
git log --pretty=format:'%ai' | perl -pe 's/.* (\d\d):.*/$1/' | sort -n | uniq -c | histogram -b git log --format=%ai | perl -pe 's/.* (\d\d):.*/$1/' | sort -n | uniq -c | histogram -b
=head1 EXAMPLE: git: commits by day of the week
git log --format=%ad |cut -d\ -f1 | sort -n | uniq -c | histogram -b
=head1 EXAMPLE: run time of processes =head1 EXAMPLE: run time of processes

View file

@ -1,34 +1,5 @@
#!/bin/bash #!/bin/bash
# NAME
# tracefile - list files being accessed
#
# SYNOPSIS
# tracefile [-aenu] command
#
# DESCRIPTION
# tracefile will print the files being accessed by the command.
#
# OPTIONS
# -a List all files.
#
# -e List only existing files.
#
# -n List only non-existing files.
#
# -u List only files once.
#
# AUTHOR
# Ole Tange <tange@gnu.org>
#
# COPYRIGHT
# Copyright © 2012 Free Software Foundation, Inc. License
# GPLv3+: GNU GPL version 3 or later
# <http://gnu.org/licenses/gpl.html>. This is free software: you
# are free to change and redistribute it. There is NO WARRANTY,
# to the extent permitted by law.
export _EXISTS=0 export _EXISTS=0
export _NONEXISTS=0 export _NONEXISTS=0
export _UNIQUE=0 export _UNIQUE=0

175
tracefile/tracefile.pod Normal file
View file

@ -0,0 +1,175 @@
#!/usr/bin/perl
=head1 NAME
tracefile - list files being accessed
=head1 SYNOPSIS
B<tracefile> [-aenu] I<command>
=head1 DESCRIPTION
B<tracefile> will print the files being accessed by the command.
=head1 OPTIONS
=over 9
=item I<command>
Command to run.
=item B<-a>
List all files.
=item B<-e>
List only existing files.
=item B<-n>
List only non-existing files.
=item B<-u>
List only files once.
=back
=head1 REPORTING BUGS
Report bugs to <tange@gnu.org>.
=head1 AUTHOR
Copyright (C) 2012 Ole Tange, http://ole.tange.dk and Free
Software Foundation, Inc.
=head1 LICENSE
Copyright (C) 2012 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
at your option any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
=head2 Documentation license I
Permission is granted to copy, distribute and/or modify this documentation
under the terms of the GNU Free Documentation License, Version 1.3 or
any later version published by the Free Software Foundation; with no
Invariant Sections, with no Front-Cover Texts, and with no Back-Cover
Texts. A copy of the license is included in the file fdl.txt.
=head2 Documentation license II
You are free:
=over 9
=item B<to Share>
to copy, distribute and transmit the work
=item B<to Remix>
to adapt the work
=back
Under the following conditions:
=over 9
=item B<Attribution>
You must attribute the work in the manner specified by the author or
licensor (but not in any way that suggests that they endorse you or
your use of the work).
=item B<Share Alike>
If you alter, transform, or build upon this work, you may distribute
the resulting work only under the same, similar or a compatible
license.
=back
With the understanding that:
=over 9
=item B<Waiver>
Any of the above conditions can be waived if you get permission from
the copyright holder.
=item B<Public Domain>
Where the work or any of its elements is in the public domain under
applicable law, that status is in no way affected by the license.
=item B<Other Rights>
In no way are any of the following rights affected by the license:
=over 2
=item *
Your fair dealing or fair use rights, or other applicable
copyright exceptions and limitations;
=item *
The author's moral rights;
=item *
Rights other persons may have either in the work itself or in
how the work is used, such as publicity or privacy rights.
=back
=back
=over 9
=item B<Notice>
For any reuse or distribution, you must make clear to others the
license terms of this work.
=back
A copy of the full license is included in the file as cc-by-sa.txt.
=head1 DEPENDENCIES
B<tracefile> uses Perl, and B<strace>.
=head1 SEE ALSO
B<strace>(1)
=cut