diff options
Diffstat (limited to 'gnu/usr.bin/perl/eg')
34 files changed, 47 insertions, 120 deletions
diff --git a/gnu/usr.bin/perl/eg/ADB b/gnu/usr.bin/perl/eg/ADB index 9221449cd64..9f90afb2fc8 100644 --- a/gnu/usr.bin/perl/eg/ADB +++ b/gnu/usr.bin/perl/eg/ADB @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: ADB,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:17 $ +# $RCSfile: ADB,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:44 $ # This script is only useful when used in your crash directory. diff --git a/gnu/usr.bin/perl/eg/cgi/dna.small.gif.uu b/gnu/usr.bin/perl/eg/cgi/dna.small.gif.uu deleted file mode 100644 index d3ce24c18dc..00000000000 --- a/gnu/usr.bin/perl/eg/cgi/dna.small.gif.uu +++ /dev/null @@ -1,63 +0,0 @@ -begin 444 dna.small.gif -M1TE&.#=A)0`J`.<``+9%&Y<R0M<F'ID\,!<07%<G1:P<0Q`A2Q`P;"L9/L$: -M,"480N5"&RL7:4LD0T,G144[7BHL2B4?3\0I+"</)BQ.9KD0/S878\96$Z\@ -M(:\1*RL:3L0W&QL?2#4?9>@_&A$_5<I"&C`A3*,3-A`//9X<)\@Q(L`@.#\E -M7K,R*R\T6)H++1L72T8=4207:T`G=JX..MD^&!$_;^)2$#T=7S`79AL7.A$3 -M1-=%#^,Q&QT_:C8=1!L86]\R#4M":4H76R,515HZ4"477G@T,J\;(X(@/$\7 -M."4A2N9;$"DZ6RL34-8I$34A73P86I84/\87%1`0/V,B2"0<0N!(%QPH91<6 -M2=!5$3(=73(E23`/,!L4.=$Z'-MH%>`Y#3$=2"=#59M((H88,GP\/]X^&+$R -M$"(79"DF33(93"$86=%;&"T4/=Y"&\\A$Q4Z4!`62*T4-Q4B9+X1*BH96SP? -M1<0D/3(F<-TM$!`=5:H.(!<64C$W?#8J3*`S(S<@3=8V%K$](QT.6Q`43AL4 -M1:$D,;<0,\X9&,8])\@=$A(U244S5U,D6Q<V;]\I&&<K/8!*.R044>=/#YH> -M08$I1B,09S$35R(:4C0?<19$7<D^#Q`>5!()-;4702M`=;56)A`25,0K%"X< -M83`N>K`H'HDS*1`40,M&%!<@7M,_$A<N2L)%%18E4^<M$A@=5=0Q$Q`E311* -M2L8E&2D<7Q\A7P\80B48,%E/8[1-'J4/-"H<3"PA1$,T?Q<15R44,R,A4AL/ -M,^M4%2,07!L+,[\[&!P4520I:C(9.=54$[,2/M-)&RP?7M=(%1$J8<-,%2H@ -M4B,=51436^]2"!X<1A<44RD</>E+#%0>0S0/:4PJ9I,F-6DG420Y<"@09R,0 -M-V$R/R4M<:\H0!(H410Z:AT27&4Q9"L@;=1%(MA-$M5+#RL4+M8Z&AT<7[<: -M(-QA&2,36R$++B(84!0:5ALO:K$A.]X?&!$84V@;/SX<6Q`;2$(B2QD21W4J -M1=TW&@```````````````"P`````)0`J```(_@!]:(N'18\W%15T$1N'C)V? -M0_HH,<$G9YBX!C6<3;+T@AZ-)K@\O*"!KP^$>"KVA`L3*8P3)^5ZA)@B:AH+ -M9];F7.$Q+!`!0=*<E3'5K(:EHS2N%"AP*Y(\&##H6(!A:!XU99B*H?%4IDF? -M!8'<"-F%9I*TH8A83:*TXYD!J83D$0ICI-NE(:O8I6&FJ$64$M5$M%!3PU,F -M2UJD"9I41E824WT2G?BV-!$(!`=,+<IF!P>.%",&P7J"9XB82L5,48F5K,:" -M'94FU='6;!*R3T->E"%&95DR"`/6P,I0PDF)0SG8($$RJN0R`FI(H7$A2]VD -M*^^L_6(T3U*V%XH"_AB:HDS8H$AO5@R:P,8.I%^.:*AC(>Z!'":6RC`1L@W- -M%1Q/,%(.'5+1`<D^74R@P2#?T*'/$"%@\(L5Y?RAB!SO3#*,-6CL44\4]C1# -MR0Q3C&&"!AH08@(#:Y2C@`&1---,.#)\T84=R##`0",H++8#)34,@X80R:"` -M0A<]?'#.!";`TDH.8QBB0354A!,*)WI0\<D\YJRQ3PE[V",(.D#48$T9GO22 -MA0.BC,)'*]3TP,`^\_#QA0P@>`/"*]=<HX\3"C!BAQV%5",$+Z0,0X,UL3SB -M#B[NN$'/,A&,$L,Y[-BASR(@<**("E^,0(<&;[QA0@^,3%",#2S8H,01_LX0 -M`(0:W%`@13#TN+'#&LK@0$T0VER##50*Q/%-%%&H$`0#K7"`!B^X/`),()F0 -M0PNT[K#BRBS1-!("`^=,$8`D="B`QRW?1**+-I?(X$@(L(R2AQ8+Y,*#-*YX -MH(00'1Q!CSI,U'!%)^_%4(X&FUB@01$.@*!#$I?4D48I&1BA!2*HD%))(.+T -MYTEOT3B#PB/U4(,$%QD0(<\QX^CRBC=)@%`!&+:<<TH&M*C1"RJX'-'.'`YX -M<H0@<)#"0CX+I%`*-%:4L@XFS`#[11M?U-))"&RP84LWZL!A1A^YH.*)!)3< -MHXX6L]P3"!I`H/!`*>90`PD.F'3SR@-AG)`&_A=3'"**#[J(P<<I@YCA2@32 -M!,*+Q9H`(XT2'O2RS"CGS.U9!K>0^C0&S/#1""(ZI)'&*6,,$842N%Q!@3NK -M"R'%%4KP0D(Q?"`S!3)<I#!!".68$T(IMHP#>BVE(/$+)#-80<PTLBRP^@$> -M<+,`-[QH$LP+0_P!1C>=S("!,N>8XP<8H6131!B;3`#&#)"DTH(L5#P0S#W+ -MQ)*`$K1HHD4^;E!2QP%:B``&4H$,/Y2C$Y*(1%0(00A)@```77B"*$0@#3>P -MP&PU4`,^H!","P!!$')0P^H6((I5L"$'.;``';[Q!@-\PP"<B$<]EG"(#*C" -M%-(@0":\L0U?D&`#_L50@33.(`4M4``=&4@'+-9!!P9JP`#9T$4H=*$+!#1B -M'3A(`SYH`81'B.,(XJ@"":0(CDRPH@/<"$88V+"%$N#A&)MPX0N2H`L]C&,< -MEW"$%6:0BCV@XPIH>$0?)M$`<92!%OG8Q3#@(`U2C*)%9-!`&`K`!!EP0@80 -M2,0M;I$.:"C#"D.@P#UJ``]GT"*,K%B&*0+!@TFH8VV*0$(:_/`)?7@#'.'0 -M@R[H8``\:&`,=NC"*"B@!2TTHP5]N((TEH&`<)B"!PU`0RQ(P8MNS``9K6@% -M'W31AG%$(BZ2&((PA-&#'I"A&`F8!DD\\`H6-,.,X'B'%,+R#FX4`PS&_L!$ -M.4R0#7W<0@%O2,07$($#9@C3"%C8P!5H88\]J$,"-E!;(.X@C5T<`!65V,40 -M,'&(0C!"`1JP@"3TH`T9=&,5JRC$-]+1`U%TP@@[^,$>Z$&*0%1A%XFK`BFD -MX0L6Y"(#A_A$#[JPC@%\@1@02`(SJ#&&.`A@'\&$!AALX(4Y="`/TA"",UA! -M@%W<8!*\$`$@C%""+G1A"9AP!"<>9@ME*)$0F\C!$I8`B3\TP@%'@$(QH$`" -M)8@#'(B0ACB`P`,@%&,'9"##)S`1!&)\`0)^&,,^+$`("QC"#D\X!":HX0!< -ML(`&-O!%,&H@BS#F0AI'`!LO^"`,/OS!%KJ0_H0HEA`E27Q#%T%X0"%"@`1E -M2,`!:F!%+Q#A!G)40A!HP`4OFK`#-13#`?I(QCW38(Q/9&``%0#!);01BE>$ -M@!TZNL81$G`!-]2!&&5@A1N&T0Q<,$$$%*!``BR1A5$PPPH<74$%]*`#$.RA -M`(VP@#`X$(`7``(%T=@`.5Q`C@:0`P[)D$4'$H`."MB#"908Q=X@,01B9$(7 -MG'A%`#8!"QSL@PUAL,0==M"")CQCP4)0QQUDP806H&,!T]A!`EH@AC2P`P,^ -MT`,*NN%-&&T!&L@X!!Y^<(4.D(,%E>A`,T20C#IXL`6-:,`5F+"#!W"@'%OH -MA`IJ$5(#;`(;AV/'FA103(EV+(,>GHB&&ZJ`!D'<X0[-N$(N@)$+4$C@`<(` -M$(&/<8Q;7$,1UT"``+>P!57`X1F9D`4<W$`"4MP@$ZYX\B-"004Y2$`.HT@% -M)@IAB#><0!]FB(<I.(&`(7P"%GPPQ3)F`0YB0"$0@8"")L!Q!RH`8A&AL,8L -BR!$$,@@#&5OX!1V.\85XA.,.,A##!T2!AP@LXP#;"`@`.P`` -end diff --git a/gnu/usr.bin/perl/eg/cgi/file_upload.cgi b/gnu/usr.bin/perl/eg/cgi/file_upload.cgi index f6bbbe0b741..3037de7b144 100644 --- a/gnu/usr.bin/perl/eg/cgi/file_upload.cgi +++ b/gnu/usr.bin/perl/eg/cgi/file_upload.cgi @@ -1,5 +1,6 @@ #!/usr/local/bin/perl -w +use strict 'refs'; use lib '..'; use CGI qw(:standard); use CGI::Carp qw/fatalsToBrowser/; @@ -11,14 +12,14 @@ print strong("Version "),$CGI::VERSION,p; print h1("File Upload Example"), 'This example demonstrates how to prompt the remote user to select a remote file for uploading. ', - strong("This feature only works with Netscape 2.0 browsers."), + strong("This feature only works with Netscape 2.0 or greater, or IE 4.0 or greater."), p, 'Select the ',cite('browser'),' button to choose a text file to upload. When you press the submit button, this script will count the number of lines, words, and characters in the file.'; -@types = ('count lines','count words','count characters'); +my @types = ('count lines','count words','count characters'); # Start a multipart form. print start_multipart_form(), @@ -31,9 +32,10 @@ print start_multipart_form(), endform; # Process the form if there is a file name entered -if ($file = param('filename')) { - $tmpfile=tmpFileName($file); - $mimetype = uploadInfo($file)->{'Content-Type'} || ''; +if (my $file = param('filename')) { + my %stats; + my $tmpfile=tmpFileName($file); + my $mimetype = uploadInfo($file)->{'Content-Type'} || ''; print hr(), h2($file), h3($tmpfile), diff --git a/gnu/usr.bin/perl/eg/cgi/index.html b/gnu/usr.bin/perl/eg/cgi/index.html index 75e2d301399..133ecc4a161 100644 --- a/gnu/usr.bin/perl/eg/cgi/index.html +++ b/gnu/usr.bin/perl/eg/cgi/index.html @@ -54,7 +54,8 @@ <li><a href="crash.txt">Look at its source code</a> </ul> -<EM>The Following Scripts only Work with Netscape 2.0 & Internet Explorer only!</EM> +<EM>The Following Scripts Work with Netscape Navigator 2.0 and higher, +or Internet Explorer 3.0 and higher</EM> <H2> Prompt for a file to upload and process it</H2> <UL> @@ -107,12 +108,12 @@ <HR> <MENU> <LI> <A HREF="../cgi_docs.html">CGI.pm documentation</A> - <LI> <A HREF="../../CGI.pm.tar.gz">Download the CGI.pm distribution</A> + <LI> <A HREF="../CGI.pm.tar.gz">Download the CGI.pm distribution</A> </MENU> <HR> <ADDRESS>Lincoln D. Stein, lstein@genome.wi.mit.edu<br> <a href="/">Whitehead Institute/MIT Center for Genome Research</a></ADDRESS> <!-- hhmts start --> -Last modified: Tue May 19 22:16:43 EDT 1998 +Last modified: Wed Jun 23 15:31:47 EDT 1999 <!-- hhmts end --> </BODY> </HTML> diff --git a/gnu/usr.bin/perl/eg/cgi/wilogo.gif.uu b/gnu/usr.bin/perl/eg/cgi/wilogo.gif.uu deleted file mode 100644 index c5d10423b49..00000000000 --- a/gnu/usr.bin/perl/eg/cgi/wilogo.gif.uu +++ /dev/null @@ -1,13 +0,0 @@ -begin 444 wilogo.gif -M1TE&.#=A7@!$`(```'X2F?___RP`````7@!$```"_D2.J<#MKF)ZU,A3,[OO -M(IUY']A%9"6AW$F)+#2]Y:BNLF6_\;WMH<?#I72^VP+D"@*)F&"O25KRDM&B -M[%C-7;4_J)*6'4ZE&O`W8"1OQ5UGPWRBIKDPM!MW9J]-[;LUKL;$5W.'YQ3( -M(O<&-^>F*(A55\BX%UEI^;<VB0BH1RFX2=<IELE4^*0'N?-I>OJ8N%(*Z^4G -M.OJJ>8HZ.(>;JRMD><E[!KQHB^3;:APL6Z8\RKPK/)O:*-WLW&7]*\UYR]J) -M?<P=1MR-_6VN76,WGAV^32W^3CZ_SCY3;W__C-R^CU^\%M#T!9PVL(ZZ&>X" -M%A1XSM]!A?T8/C0T$1XMJG\B&G+,"-&C/(VS0(842;`)M'S>_OE8F#"=2S#* -M8LHLAS'D1Y,42UGY9O,F-T:X@@JEE@D1RW>/D@8R.DZ-+*E0CQ:9JJ5JU!SQ -MR&BU2D.;E*4'ER0TNY%G2A/Y.G[=VG%81+5K_UG$21<A6;=YP9'5B++O7:@7 -M\]J5]]?DX7:)%<]5%=B/55>-GQW55;$8L\RW6J8-9>QM7<^A/SMZK!ESY$,+ -(KPA.EJ```#L` -end diff --git a/gnu/usr.bin/perl/eg/changes b/gnu/usr.bin/perl/eg/changes index 1d7ec598eee..704a17dcdda 100644 --- a/gnu/usr.bin/perl/eg/changes +++ b/gnu/usr.bin/perl/eg/changes @@ -1,6 +1,6 @@ #!/usr/bin/perl -P -# $RCSfile: changes,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:17 $ +# $RCSfile: changes,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:44 $ ($dir, $days) = @ARGV; $dir = '/' if $dir eq ''; diff --git a/gnu/usr.bin/perl/eg/dus b/gnu/usr.bin/perl/eg/dus index 5ea7d0456be..c8a3ed1c9cd 100644 --- a/gnu/usr.bin/perl/eg/dus +++ b/gnu/usr.bin/perl/eg/dus @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: dus,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:17 $ +# $RCSfile: dus,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:44 $ # 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 827b7b6df81..3346f6c144b 100644 --- a/gnu/usr.bin/perl/eg/findcp +++ b/gnu/usr.bin/perl/eg/findcp @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: findcp,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:18 $ +# $RCSfile: findcp,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:46 $ # 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 e5c1be278f3..433b9107dca 100644 --- a/gnu/usr.bin/perl/eg/findtar +++ b/gnu/usr.bin/perl/eg/findtar @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: findtar,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:18 $ +# $RCSfile: findtar,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:46 $ # 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 55c5b44f4b0..482951b87a3 100644 --- a/gnu/usr.bin/perl/eg/g/gcp +++ b/gnu/usr.bin/perl/eg/g/gcp @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: gcp,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:19 $ +# $RCSfile: gcp,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:53 $ # 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 1640d5f53c8..c14442b0a54 100644 --- a/gnu/usr.bin/perl/eg/g/gcp.man +++ b/gnu/usr.bin/perl/eg/g/gcp.man @@ -1,4 +1,4 @@ -.\" $RCSfile: gcp.man,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:20 $ +.\" $RCSfile: gcp.man,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:53 $ .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 2846cba2478..394bcb2846a 100644 --- a/gnu/usr.bin/perl/eg/g/ged +++ b/gnu/usr.bin/perl/eg/g/ged @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: ged,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:20 $ +# $RCSfile: ged,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:54 $ # 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 d8866476a69..0fd58181d96 100644 --- a/gnu/usr.bin/perl/eg/g/gsh +++ b/gnu/usr.bin/perl/eg/g/gsh @@ -1,6 +1,6 @@ #! /usr/bin/perl -# $RCSfile: gsh,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:20 $ +# $RCSfile: gsh,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:54 $ # 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 98dece012e2..228311ede86 100644 --- a/gnu/usr.bin/perl/eg/g/gsh.man +++ b/gnu/usr.bin/perl/eg/g/gsh.man @@ -1,4 +1,4 @@ -.\" $RCSfile: gsh.man,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:20 $ +.\" $RCSfile: gsh.man,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:54 $ .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 8273cf73e59..709327e2a13 100644 --- a/gnu/usr.bin/perl/eg/muck.man +++ b/gnu/usr.bin/perl/eg/muck.man @@ -1,4 +1,4 @@ -.\" $RCSfile: muck.man,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:18 $ +.\" $RCSfile: muck.man,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:47 $ .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 5db1213fab0..e5cb77a7c6f 100644 --- a/gnu/usr.bin/perl/eg/myrup +++ b/gnu/usr.bin/perl/eg/myrup @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: myrup,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:18 $ +# $RCSfile: myrup,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:47 $ # 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 70dda9e3202..abec507d718 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 ${1+"$@"}' if $running_under_some_shell; -# $RCSfile: nih,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:18 $ +# $RCSfile: nih,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:47 $ # 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 50bf998fa91..52be085e744 100644 --- a/gnu/usr.bin/perl/eg/relink +++ b/gnu/usr.bin/perl/eg/relink @@ -2,11 +2,11 @@ 'di'; 'ig00'; # -# $RCSfile: relink,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:18 $ +# $RCSfile: relink,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:48 $ # # $Log: relink,v $ -# Revision 1.3 1999/04/29 22:51:18 millert -# perl5.005_03 (stock) +# Revision 1.4 2000/04/06 17:04:48 millert +# perl-5.6.0 + local changes # ($op = shift) || die "Usage: relink perlexpr [filenames]\n"; diff --git a/gnu/usr.bin/perl/eg/rename b/gnu/usr.bin/perl/eg/rename index 8c8d48da4c8..3fb01ca6585 100644 --- a/gnu/usr.bin/perl/eg/rename +++ b/gnu/usr.bin/perl/eg/rename @@ -2,11 +2,11 @@ 'di'; 'ig00'; # -# $RCSfile: rename,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:18 $ +# $RCSfile: rename,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:48 $ # # $Log: rename,v $ -# Revision 1.3 1999/04/29 22:51:18 millert -# perl5.005_03 (stock) +# Revision 1.4 2000/04/06 17:04:48 millert +# perl-5.6.0 + local changes # ($op = shift) || die "Usage: rename perlexpr [filenames]\n"; diff --git a/gnu/usr.bin/perl/eg/rmfrom b/gnu/usr.bin/perl/eg/rmfrom index cb4c0e9cba0..1f36c0511b0 100644 --- a/gnu/usr.bin/perl/eg/rmfrom +++ b/gnu/usr.bin/perl/eg/rmfrom @@ -1,6 +1,6 @@ #!/usr/bin/perl -n -# $RCSfile: rmfrom,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:18 $ +# $RCSfile: rmfrom,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:48 $ # 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 0b5468fa387..3f56bd943e7 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 -# $RCSfile: scan_df,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:20 $ +# $RCSfile: scan_df,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:55 $ # 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 e22dcf392fa..4ffd9c0ed9c 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 -# $RCSfile: scan_last,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:20 $ +# $RCSfile: scan_last,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:55 $ # 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 cc101d76acb..47ce55ff692 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 -# $RCSfile: scan_messages,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:20 $ +# $RCSfile: scan_messages,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:57 $ # 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 58f9fcd69d4..e8273fe5acb 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 -# $RCSfile: scan_passwd,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:21 $ +# $RCSfile: scan_passwd,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:57 $ # 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 793373605f6..18b495ca65f 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 -# $RCSfile: scan_ps,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:21 $ +# $RCSfile: scan_ps,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:57 $ # 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 37648e75652..bec2b9d26d8 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 -# $RCSfile: scan_sudo,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:21 $ +# $RCSfile: scan_sudo,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:58 $ # 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 f6555eb55b6..d8a4eff17c9 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 -# $RCSfile: scan_suid,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:21 $ +# $RCSfile: scan_suid,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:58 $ # 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 258e07ab506..6aac7e5dc01 100644 --- a/gnu/usr.bin/perl/eg/scan/scanner +++ b/gnu/usr.bin/perl/eg/scan/scanner @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: scanner,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:21 $ +# $RCSfile: scanner,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:58 $ # 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 d04ebb5b049..a6a88593dbb 100644 --- a/gnu/usr.bin/perl/eg/shmkill +++ b/gnu/usr.bin/perl/eg/shmkill @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: shmkill,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:18 $ +# $RCSfile: shmkill,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:48 $ # 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 9df6170e3d6..47ea21216ee 100644 --- a/gnu/usr.bin/perl/eg/van/empty +++ b/gnu/usr.bin/perl/eg/van/empty @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: empty,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:21 $ +# $RCSfile: empty,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:59 $ # This script empties a trashcan. diff --git a/gnu/usr.bin/perl/eg/van/unvanish b/gnu/usr.bin/perl/eg/van/unvanish index 08268bff17e..433f52b2fc3 100644 --- a/gnu/usr.bin/perl/eg/van/unvanish +++ b/gnu/usr.bin/perl/eg/van/unvanish @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: unvanish,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:22 $ +# $RCSfile: unvanish,v $$Revision: 1.4 $$Date: 2000/04/06 17:04:59 $ sub it { if ($olddir ne '.') { diff --git a/gnu/usr.bin/perl/eg/van/vanexp b/gnu/usr.bin/perl/eg/van/vanexp index 44f60d648bf..be23584798e 100644 --- a/gnu/usr.bin/perl/eg/van/vanexp +++ b/gnu/usr.bin/perl/eg/van/vanexp @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: vanexp,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:22 $ +# $RCSfile: vanexp,v $$Revision: 1.4 $$Date: 2000/04/06 17:05:00 $ # 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 3bdf02e1c13..06dc004da90 100644 --- a/gnu/usr.bin/perl/eg/van/vanish +++ b/gnu/usr.bin/perl/eg/van/vanish @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $RCSfile: vanish,v $$Revision: 1.3 $$Date: 1999/04/29 22:51:22 $ +# $RCSfile: vanish,v $$Revision: 1.4 $$Date: 2000/04/06 17:05:00 $ sub it { if ($olddir ne '.') { diff --git a/gnu/usr.bin/perl/eg/wrapsuid b/gnu/usr.bin/perl/eg/wrapsuid index cefa20bde71..e7d53b768b1 100644 --- a/gnu/usr.bin/perl/eg/wrapsuid +++ b/gnu/usr.bin/perl/eg/wrapsuid @@ -2,11 +2,11 @@ 'di'; 'ig00'; # -# $Header: /cvs/OpenBSD/src/gnu/usr.bin/perl/eg/Attic/wrapsuid,v 1.3 1999/04/29 22:51:18 millert Exp $ +# $Header: /cvs/OpenBSD/src/gnu/usr.bin/perl/eg/Attic/wrapsuid,v 1.4 2000/04/06 17:04:49 millert Exp $ # # $Log: wrapsuid,v $ -# Revision 1.3 1999/04/29 22:51:18 millert -# perl5.005_03 (stock) +# Revision 1.4 2000/04/06 17:04:49 millert +# perl-5.6.0 + local changes # # Revision 1.1 90/08/11 13:51:29 lwall # Initial revision |
