diff options
author | cvs2svn <cvs2svn@FreeBSD.org> | 1999-01-21 00:55:30 +0000 |
---|---|---|
committer | cvs2svn <cvs2svn@FreeBSD.org> | 1999-01-21 00:55:30 +0000 |
commit | a9e2dc176f709713f9565ed1711c958f0707eb36 (patch) | |
tree | e1676cbf88d75f6982fe157cf90f1bc6a6c21e72 /gnu/usr.bin/perl/eg | |
parent | 8eb115465a9db8d2a05eaf5244d6e5e8a54087c2 (diff) |
Diffstat (limited to 'gnu/usr.bin/perl/eg')
29 files changed, 37 insertions, 29 deletions
diff --git a/gnu/usr.bin/perl/eg/ADB b/gnu/usr.bin/perl/eg/ADB index 09b93c302aae1..a0be2738edfe4 100644 --- a/gnu/usr.bin/perl/eg/ADB +++ b/gnu/usr.bin/perl/eg/ADB @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/ADB,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/ADB,v 1.1.1.1 1994/09/10 06:27:46 gclarkii Exp $ # This script is only useful when used in your crash directory. diff --git a/gnu/usr.bin/perl/eg/changes b/gnu/usr.bin/perl/eg/changes index 9835e1b6ddc24..6855b95bbd340 100644 --- a/gnu/usr.bin/perl/eg/changes +++ b/gnu/usr.bin/perl/eg/changes @@ -1,6 +1,6 @@ #!/usr/bin/perl -P -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/changes,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/changes,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ ($dir, $days) = @ARGV; $dir = '/' if $dir eq ''; diff --git a/gnu/usr.bin/perl/eg/dus b/gnu/usr.bin/perl/eg/dus index 94c648bd76267..7eb043be07b27 100644 --- a/gnu/usr.bin/perl/eg/dus +++ b/gnu/usr.bin/perl/eg/dus @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/dus,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/dus,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ # This script does a du -s on any directories in the current directory that # are not mount points for another filesystem. diff --git a/gnu/usr.bin/perl/eg/findcp b/gnu/usr.bin/perl/eg/findcp index 47e443820d88d..30a5cf2b53ae6 100644 --- a/gnu/usr.bin/perl/eg/findcp +++ b/gnu/usr.bin/perl/eg/findcp @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/findcp,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/findcp,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ # This is a wrapper around the find command that pretends find has a switch # of the form -cp host:destination. It presumes your find implements -ls. diff --git a/gnu/usr.bin/perl/eg/findtar b/gnu/usr.bin/perl/eg/findtar index a60f10f76c320..9d8d45443b82b 100644 --- a/gnu/usr.bin/perl/eg/findtar +++ b/gnu/usr.bin/perl/eg/findtar @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/findtar,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/findtar,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ # findtar takes find-style arguments and spits out a tarfile on stdout. # It won't work unless your find supports -ls and your tar the I flag. diff --git a/gnu/usr.bin/perl/eg/g/gcp b/gnu/usr.bin/perl/eg/g/gcp index 3e44a9cf182bb..3c9f561b47d77 100644 --- a/gnu/usr.bin/perl/eg/g/gcp +++ b/gnu/usr.bin/perl/eg/g/gcp @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/g/gcp,v 1.1.1.1 1993/08/23 21:29:44 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/g/Attic/gcp,v 1.1.1.1 1994/09/10 06:27:48 gclarkii Exp $ # Here is a script to do global rcps. See man page. diff --git a/gnu/usr.bin/perl/eg/g/gcp.man b/gnu/usr.bin/perl/eg/g/gcp.man index 8985742fa4732..cf455bf09bdfc 100644 --- a/gnu/usr.bin/perl/eg/g/gcp.man +++ b/gnu/usr.bin/perl/eg/g/gcp.man @@ -1,4 +1,4 @@ -.\" $Header: /home/cvs/386BSD/ports/lang/perl/eg/g/gcp.man,v 1.1.1.1 1993/08/23 21:29:44 nate Exp $ +.\" $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/g/Attic/gcp.man,v 1.1.1.1 1994/09/10 06:27:48 gclarkii Exp $ .TH GCP 1C "13 May 1988" .SH NAME gcp \- global file copy diff --git a/gnu/usr.bin/perl/eg/g/ged b/gnu/usr.bin/perl/eg/g/ged index d296a84c913a8..d8cfe8f970180 100644 --- a/gnu/usr.bin/perl/eg/g/ged +++ b/gnu/usr.bin/perl/eg/g/ged @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/g/ged,v 1.1.1.1 1993/08/23 21:29:44 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/g/Attic/ged,v 1.1.1.1 1994/09/10 06:27:48 gclarkii Exp $ # Does inplace edits on a set of files on a set of machines. # diff --git a/gnu/usr.bin/perl/eg/g/gsh b/gnu/usr.bin/perl/eg/g/gsh index 3322a02ff74f0..14879de1a48e8 100644 --- a/gnu/usr.bin/perl/eg/g/gsh +++ b/gnu/usr.bin/perl/eg/g/gsh @@ -1,6 +1,6 @@ #! /usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/g/gsh,v 1.1.1.1 1993/08/23 21:29:44 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/g/Attic/gsh,v 1.1.1.1 1994/09/10 06:27:48 gclarkii Exp $ # Do rsh globally--see man page diff --git a/gnu/usr.bin/perl/eg/g/gsh.man b/gnu/usr.bin/perl/eg/g/gsh.man index 00eafb66d8c26..c64b272a3b6c9 100644 --- a/gnu/usr.bin/perl/eg/g/gsh.man +++ b/gnu/usr.bin/perl/eg/g/gsh.man @@ -1,4 +1,4 @@ -.\" $Header: /home/cvs/386BSD/ports/lang/perl/eg/g/gsh.man,v 1.1.1.1 1993/08/23 21:29:44 nate Exp $ +.\" $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/g/Attic/gsh.man,v 1.1.1.1 1994/09/10 06:27:48 gclarkii Exp $ .TH GSH 8 "13 May 1988" .SH NAME gsh \- global shell diff --git a/gnu/usr.bin/perl/eg/muck.man b/gnu/usr.bin/perl/eg/muck.man index 1b45ee0325c01..0fa153867fa6f 100644 --- a/gnu/usr.bin/perl/eg/muck.man +++ b/gnu/usr.bin/perl/eg/muck.man @@ -1,4 +1,4 @@ -.\" $Header: /home/cvs/386BSD/ports/lang/perl/eg/muck.man,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +.\" $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/muck.man,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ .TH MUCK 1 "10 Jan 1989" .SH NAME muck \- make usage checker diff --git a/gnu/usr.bin/perl/eg/myrup b/gnu/usr.bin/perl/eg/myrup index b3185896ef985..7cae396eaf275 100644 --- a/gnu/usr.bin/perl/eg/myrup +++ b/gnu/usr.bin/perl/eg/myrup @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/myrup,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/myrup,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ # This was a customization of ruptime requested by someone here who wanted # to be able to find the least loaded machine easily. It uses the diff --git a/gnu/usr.bin/perl/eg/nih b/gnu/usr.bin/perl/eg/nih index a376142cdd759..3a2afa67fd6da 100644 --- a/gnu/usr.bin/perl/eg/nih +++ b/gnu/usr.bin/perl/eg/nih @@ -1,7 +1,7 @@ eval "exec /usr/bin/perl -Spi.bak $0 $*" if $running_under_some_shell; -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/nih,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/nih,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ # This script makes #! scripts directly executable on machines that don't # support #!. It edits in place any scripts mentioned on the command line. diff --git a/gnu/usr.bin/perl/eg/relink b/gnu/usr.bin/perl/eg/relink index 69956c9a6738f..abeeba59795c5 100644 --- a/gnu/usr.bin/perl/eg/relink +++ b/gnu/usr.bin/perl/eg/relink @@ -2,9 +2,13 @@ 'di'; 'ig00'; # -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/relink,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/relink,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ # # $Log: relink,v $ +# Revision 1.1.1.1 1994/09/10 06:27:47 gclarkii +# Initial import of Perl 4.046 bmaked +# +# # Revision 1.1.1.1 1993/08/23 21:29:43 nate # PERL! # diff --git a/gnu/usr.bin/perl/eg/rename b/gnu/usr.bin/perl/eg/rename index b568406f86039..efbd77a100c58 100644 --- a/gnu/usr.bin/perl/eg/rename +++ b/gnu/usr.bin/perl/eg/rename @@ -2,9 +2,13 @@ 'di'; 'ig00'; # -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/rename,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/rename,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ # # $Log: rename,v $ +# Revision 1.1.1.1 1994/09/10 06:27:47 gclarkii +# Initial import of Perl 4.046 bmaked +# +# # Revision 1.1.1.1 1993/08/23 21:29:43 nate # PERL! # diff --git a/gnu/usr.bin/perl/eg/rmfrom b/gnu/usr.bin/perl/eg/rmfrom index 0c8fa2c86aafc..e0ef8f9bf23a7 100644 --- a/gnu/usr.bin/perl/eg/rmfrom +++ b/gnu/usr.bin/perl/eg/rmfrom @@ -1,6 +1,6 @@ #!/usr/bin/perl -n -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/rmfrom,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/rmfrom,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ # A handy (but dangerous) script to put after a find ... -print. diff --git a/gnu/usr.bin/perl/eg/scan/scan_df b/gnu/usr.bin/perl/eg/scan/scan_df index 688738710a53d..34205fe324741 100644 --- a/gnu/usr.bin/perl/eg/scan/scan_df +++ b/gnu/usr.bin/perl/eg/scan/scan_df @@ -1,6 +1,6 @@ #!/usr/bin/perl -P -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/scan/scan_df,v 1.1.1.1 1993/08/23 21:29:44 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/scan/Attic/scan_df,v 1.1.1.1 1994/09/10 06:27:49 gclarkii Exp $ # This report points out filesystems that are in danger of overflowing. diff --git a/gnu/usr.bin/perl/eg/scan/scan_last b/gnu/usr.bin/perl/eg/scan/scan_last index 6621120d3e44d..30d9a8e60cab1 100644 --- a/gnu/usr.bin/perl/eg/scan/scan_last +++ b/gnu/usr.bin/perl/eg/scan/scan_last @@ -1,6 +1,6 @@ #!/usr/bin/perl -P -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/scan/scan_last,v 1.1.1.1 1993/08/23 21:29:45 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/scan/Attic/scan_last,v 1.1.1.1 1994/09/10 06:27:49 gclarkii Exp $ # This reports who was logged on at weird hours diff --git a/gnu/usr.bin/perl/eg/scan/scan_messages b/gnu/usr.bin/perl/eg/scan/scan_messages index a28cda858a17c..3315b694c9e91 100644 --- a/gnu/usr.bin/perl/eg/scan/scan_messages +++ b/gnu/usr.bin/perl/eg/scan/scan_messages @@ -1,6 +1,6 @@ #!/usr/bin/perl -P -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/scan/scan_messages,v 1.1.1.1 1993/08/23 21:29:44 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/scan/Attic/scan_messages,v 1.1.1.1 1994/09/10 06:27:49 gclarkii Exp $ # This prints out extraordinary console messages. You'll need to customize. diff --git a/gnu/usr.bin/perl/eg/scan/scan_passwd b/gnu/usr.bin/perl/eg/scan/scan_passwd index f9c53c7d2385a..6ce1d954c14a4 100644 --- a/gnu/usr.bin/perl/eg/scan/scan_passwd +++ b/gnu/usr.bin/perl/eg/scan/scan_passwd @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/scan/scan_passwd,v 1.1.1.1 1993/08/23 21:29:45 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/scan/Attic/scan_passwd,v 1.1.1.1 1994/09/10 06:27:49 gclarkii Exp $ # This scans passwd file for security holes. diff --git a/gnu/usr.bin/perl/eg/scan/scan_ps b/gnu/usr.bin/perl/eg/scan/scan_ps index b0480d544c30c..5b3d169f3ee4b 100644 --- a/gnu/usr.bin/perl/eg/scan/scan_ps +++ b/gnu/usr.bin/perl/eg/scan/scan_ps @@ -1,6 +1,6 @@ #!/usr/bin/perl -P -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/scan/scan_ps,v 1.1.1.1 1993/08/23 21:29:45 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/scan/Attic/scan_ps,v 1.1.1.1 1994/09/10 06:27:49 gclarkii Exp $ # This looks for looping processes. diff --git a/gnu/usr.bin/perl/eg/scan/scan_sudo b/gnu/usr.bin/perl/eg/scan/scan_sudo index a95a6092b4673..722968ce96fe9 100644 --- a/gnu/usr.bin/perl/eg/scan/scan_sudo +++ b/gnu/usr.bin/perl/eg/scan/scan_sudo @@ -1,6 +1,6 @@ #!/usr/bin/perl -P -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/scan/scan_sudo,v 1.1.1.1 1993/08/23 21:29:45 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/scan/Attic/scan_sudo,v 1.1.1.1 1994/09/10 06:27:49 gclarkii Exp $ # Analyze the sudo log. diff --git a/gnu/usr.bin/perl/eg/scan/scan_suid b/gnu/usr.bin/perl/eg/scan/scan_suid index a730e0aaee162..70d265c66bb41 100644 --- a/gnu/usr.bin/perl/eg/scan/scan_suid +++ b/gnu/usr.bin/perl/eg/scan/scan_suid @@ -1,6 +1,6 @@ #!/usr/bin/perl -P -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/scan/scan_suid,v 1.1.1.1 1993/08/23 21:29:44 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/scan/Attic/scan_suid,v 1.1.1.1 1994/09/10 06:27:49 gclarkii Exp $ # Look for new setuid root files. diff --git a/gnu/usr.bin/perl/eg/scan/scanner b/gnu/usr.bin/perl/eg/scan/scanner index f773e87e8f8ae..1cf16e6e99e2c 100644 --- a/gnu/usr.bin/perl/eg/scan/scanner +++ b/gnu/usr.bin/perl/eg/scan/scanner @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/scan/scanner,v 1.1.1.1 1993/08/23 21:29:44 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/scan/Attic/scanner,v 1.1.1.1 1994/09/10 06:27:48 gclarkii Exp $ # This runs all the scan_* routines on all the machines in /etc/ghosts. # We run this every morning at about 6 am: diff --git a/gnu/usr.bin/perl/eg/shmkill b/gnu/usr.bin/perl/eg/shmkill index e8d1b11b3630a..9c9e86e3017d1 100644 --- a/gnu/usr.bin/perl/eg/shmkill +++ b/gnu/usr.bin/perl/eg/shmkill @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/shmkill,v 1.1.1.1 1993/08/23 21:29:43 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/Attic/shmkill,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $ # A script to call from crontab periodically when people are leaving shared # memory sitting around unattached. diff --git a/gnu/usr.bin/perl/eg/van/empty b/gnu/usr.bin/perl/eg/van/empty index ee656e68563f8..4b66aaaee14da 100644 --- a/gnu/usr.bin/perl/eg/van/empty +++ b/gnu/usr.bin/perl/eg/van/empty @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/van/empty,v 1.1.1.1 1993/08/23 21:29:45 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/van/Attic/empty,v 1.1.1.1 1994/09/10 06:27:49 gclarkii Exp $ # This script empties a trashcan. diff --git a/gnu/usr.bin/perl/eg/van/unvanish b/gnu/usr.bin/perl/eg/van/unvanish index 50459821546b8..86dccd51d29e5 100644 --- a/gnu/usr.bin/perl/eg/van/unvanish +++ b/gnu/usr.bin/perl/eg/van/unvanish @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/van/unvanish,v 1.1.1.1 1993/08/23 21:29:45 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/van/Attic/unvanish,v 1.1.1.1 1994/09/10 06:27:50 gclarkii Exp $ sub it { if ($olddir ne '.') { diff --git a/gnu/usr.bin/perl/eg/van/vanexp b/gnu/usr.bin/perl/eg/van/vanexp index 79b78854d54c3..98efce7fdf224 100644 --- a/gnu/usr.bin/perl/eg/van/vanexp +++ b/gnu/usr.bin/perl/eg/van/vanexp @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/van/vanexp,v 1.1.1.1 1993/08/23 21:29:45 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/van/Attic/vanexp,v 1.1.1.1 1994/09/10 06:27:50 gclarkii Exp $ # This is for running from a find at night to expire old .deleteds diff --git a/gnu/usr.bin/perl/eg/van/vanish b/gnu/usr.bin/perl/eg/van/vanish index b79776a4ebdc9..67e7052de4481 100644 --- a/gnu/usr.bin/perl/eg/van/vanish +++ b/gnu/usr.bin/perl/eg/van/vanish @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Header: /home/cvs/386BSD/ports/lang/perl/eg/van/vanish,v 1.1.1.1 1993/08/23 21:29:45 nate Exp $ +# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/van/Attic/vanish,v 1.1.1.1 1994/09/10 06:27:50 gclarkii Exp $ sub it { if ($olddir ne '.') { |