[Veritas-bu] Re: DLT Cleaning

--============_-1257011842==_============
Content-Type: text/plain; charset="us-ascii" ; format="flowed"

I wrote this perl script to do this about a year ago - I haven't even 
looked it at in some time, so I recommend looking it over before 
blindly putting it in root's crontab :)))

rob

--============_-1257011842==_============
Content-Id: <p0431010bb513848057da@[132.189.38.106].0.0>
Content-Type: application/octet-stream; name="cleaning_check.pl"
 ; x-mac-type="54455854"
 ; x-mac-creator="4D63504C"
Content-Disposition: attachment; filename="cleaning_check.pl"
 ; modification-date="Fri, 7 Apr 2000 06:29:54 -0600"
Content-Transfer-Encoding: x-uuencode

begin 644 cleaning.pl
M(R$O=7-R+VQO8V%L+V)I;B]P97)L"B,*(PHC("1)9#H@8VQE86YI;F=?8VAE
M8VLN<&PL=B`Q+C$@,3DY.2\P,R\Q."`Q.3HS,CHS,B!C<W=O<FUR($5X<"`D
M"B,*(R`D3&]G.B!C;&5A;FEN9U]C:&5C:RYP;"QV("0*(R!2979I<VEO;B`Q
M+C$@(#$Y.3DO,#,O,3@@,3DZ,S(Z,S(@(&-S=V]R;7(*(R!);FET:6%L(')E
M=FES:6]N"B,*(R!4:&ES('-C<FEP="!I<R!I;G1E;F1E9"!T;R!S=7!P;&5M
M96YT('1H92!697)I=&%S($YE=$)A8VMU<`HC($1,5"!A=71O8VQE86X@9G5N
M8W1I;VYA;&ET>2P@=VAI8V@@875T;VUA=&EC86QL>2!C;&5A;G,@9')I=F5S
M"B,@:G5S="!F:6YE+"!B=70@:70@9&]E<R!.3U0@875T;VUA=&EC86QL>2!W
M87)N('1H92!A9&UI;B!W:&5N"B,@=&AE($1,5"!C;&5A;FEN9R!T87!E(&ES
M(')U;FYI;F<@;&]W(&]N(&-L96%N:6YG<RX*(PHC(%1H:7,@<V-R:7!T(&]N
M;'D@=&%K97,@;VYE(&%R9W5M96YT.@HC("`@+6UA:6P])'5S97)N86UE+"!W
M:&EC:"!I<R!T:&4@96UA:6P@86-C;W5N="AS*2!T;R!G970@=&AI<R!R97!O
M<G0*(PHC('!L;W`@:70@:6X@<F]O="=S(&-R;VYT86(@86YD(')U;B!I="!O
M;F-E(&]R('1W:6-E(&$@9&%Y+BXN"@IU<V4 AT 4WES DOT CI(;W-T;F%M93L*"B,C
M(R,C(R,C(R,C(PHC(&-H96-K(&9O<B!T:&4@;6%I;"!F;&%G"B,C(R,C(R,C
M(R,C(PIW:&EL92`H)%\@/2`D05)'5ELP72P@+UXM+RD@>PH@("`@<VAI9G0[
M"B`@("!L87-T(&EF("]>+2TD+SL*("`@(&EF("@O7BUM86EL/2@N*BDO*2![
M("1M86EL7W1O(#T@)#$@?0I]"@HD9')I=F5?8VQE86Y?8VUD(#T@(B]U<W(O
M;W!E;G8O=F]L;6=R+V)I;B]T<&-L96%N("UL(CL*)&-L96%N:6YG7W1A<&5?
M8VUD(#T@(B]U<W(O;W!E;G8O=F]L;6=R+V)I;B]V;7%U97)Y("UM="!D;'1?
M8VQE86X@+6(B.PHD;6%I;"`]("<O8FEN+VUA:6QX)SL*"B1S97)V97(@/2!H
M;W-T;F%M92 AT I DOT PH*)&1R:79E7V9I;&4@/2`B+W1M<"]D<FEV95]L:7-T+G1M
M<"(["B1C;&Y?9FEL92`]("(O=&UP+V-L96%N7W1A<&4N=&UP(CL*)')E<&]R
M=%]F:6QE(#T@(B]T;7`O8VQN7W)E<&]R="YT;7`B.PH*(R,C(R,C(R,C(R,C
M(R,C(R,C(R,C(R,*(R!T:&ES('-C<FEP="!N965D<R!T;R!C;VYS:61E<@HC
M(&AO=R!M86YY(&1R:79E<R`B;F5E9"!T;R!B92!C;&5A;F5D('-O;VXB"B,@
M"B,@8G5T('=H870@:7,@(G-O;VXB/R`@5&AI<R!V87)I86)L92!I<PHC('1H
M92!N=6UB97(@;V8@:&]U<G,@=&AA="!D969I;F5S"B,@(G-O;VXB+@HC(R,C
M(R,C(R,C(R,C(R,C(R,C(R,C(PHD;6EN:6UU;5]I;G1E<G9A;"`](#0P.PH*
M(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,*(R!R=6X@=&AE($YE=$)A8VMU<"!R
M97!O<G1S('1O(&=R86(@=&AE(')A=R!D871A"B,C(R,C(R,C(R,C(R,C(R,C
M(R,C(R,C"G-Y<W1E;2@B)&1R:79E7V-L96%N7V-M9"`^("1D<FEV95]F:6QE
M(%QN(BD["G-Y<W1E;2@B)&-L96%N:6YG7W1A<&5?8VUD(#X@)&-L;E]F:6QE
M(%QN(BD["@HC(R,C(R,C(R,C(R,C(R,C(R,C(R,C(PHC<F5A9"!T:&4@;W5T
M<'5T(&]F('1H92!T<&-L96%N(&-O;6UA;F0L"B-F:6YD('1H92!D<FEV97,@
M=&AA="!W:6QL(&YE960*(V-L96%N:6YG('-O;VXL(&%S(&1E=&5R;6EN960@
M8GD*(R`D;6EN:6UU;5]I;G1E<G9A;`HC(R,C(R,C(R,C(R,C(R,C(R,C(R,C
M"F]P96XH1%))5D53+"(D9')I=F5?9FEL92(I('Q\('=A<FX@(D-O=6QD(&YO
M="!O<&5N("1D<FEV95]F:6QE.B0A(CL*"DQ)3D4Z('=H:6QE("@\1%))5D53
M/BD@>PH@("`@(&-H;W`["B`@("`@;F5X="!,24Y%(&EF("@A+V1L=%PJ+RD[
M"@H@("`@("@D8FQA:"P@)&1R=E]I;F1E>"P@)&$L("1M;G1?=&EM92P@)&-L
M;E]F<F5Q+"`D9"P@)&4L("1T:&5R97-T*2`]('-P;&ET("\@*R\L("1?+"`X
M.PH*("`@("`D=&EM95]T;U]C;&5A;B`]("1C;&Y?9G)E<2`M("1M;G1?=&EM
M93L*"B`@("`@(&EF("@D=&EM95]T;U]C;&5A;B`\("1M:6YI;75M7VEN=&5R
M=F%L*2!["B`@("`@(",@=V4@:&%V92!F;W5N9"!A(&1R:79E('1H870@=VEL
M;"!N965D(&-L96%N:6YG(")S;V]N(@H*("`@("`@)&1I<G1Y6R1D<G9?:6YD
M97A=(#T@(F1R:79E("1D<G9?:6YD97A<;B(["B`@("`@("1D<FEV97-?=&]?
M8VQE86XK*SL*"B`@("`@('T*?0IC;&]S92!$4DE615,["@HC(R,C(R,C(R,C
M(R,C(R,C(R,C(R,C(PHC8VAE8VL@=&AE(&]U='!U="!O9B!T:&4*(W9M<75E
M<GD@8V]M;6%N9"!T;R!S964*(VAO=R!M86YY('1I;65S('1H92`*(V-L96%N
M:6YG('1A<&4@8V%N(&)E('5S960*(R,C(R,C(R,C(R,C(R,C(R,C(R,C(PIO
M<&5N*$-,14%.+"(D8VQN7V9I;&4B*2!\?"!W87)N(")#;W5L9"!N;W0@;W!E
M;B`D8VQN7V9I;&4Z)"$B.PH*3$E.13(Z("!W:&EL92`H/$-,14%./BD@>PH*
M("`@(&-H;W`["B`@("!N97AT($Q)3D4R(&EF("@A+T1,5%]#3$XO*3L*("`@
M("@D;65D:6%?:60L("1A+"`D8BP@)&,L("1S;&]T+"`D92P@)&8L("1C;&YS
M7VQE9G0L("1T:&5R97-T*2`]('-P;&ET("\@*R\L("1?+"`Y.PH*?2`C=VAI
M;&4*"F-L;W-E($-,14%..PH*(R,C(R,C(R,C(R,C(R,C(R,C(R,*(R`D8VQN
M7VAE861R;V]M(&ES(&AO=R!M86YY"B,@(F5X8V5S<R(@8VQE86YI;F=S(&]U
M<B!C;&5A;FEN9PHC('1A<&4@=VEL;"!H879E(')E;6%I;FEN9R!I;B!A(&9E
M=PHC(&1A>7,@+2!I="!B971T97(@;F]T(&)E(&YE9V%T:79E(0HC(R,C(R,C
M(R,C(R,C(R,C(R,C"B1C;&Y?:&5A9')O;VT@/2`D8VQN<U]L969T("T@)&1R
M:79E<U]T;U]C;&5A;CL*"FEF("@D8VQN7VAE861R;V]M(#P@,"D@>PHC(R,C
M(R,C(R,C(R,C(R,C(R,C"B-O=7(@8VQE86YI;F<@=&%P92!D;V5S;B=T(&AA
M=F4@96YO=6=H"B-R96UA:6YI;F<@=7-E<R!T;R!C;&5A;B!O=7(@9&ER='D@
M=&%P97,A"B-T:6UE('1O('-O=6YD('1H92!A;&%R;2XN+BX*(R,C(R,C(R,C
M(R,C(R,C(R,C(PH*("`@;W!E;B`H4D503U)4+"(^)')E<&]R=%]F:6QE(BD@
M?'P@9&EE(")#86XG="!O<&5N("1R97!O<G1?9FEL92%<;B(["@H@("!P<FEN
M="!215!/4E0@(@H**&-L96%N:6YG('1A<&4@:7,@)&UE9&EA7VED+"!I;B!S
M;&]T("1S;&]T*2`*5&AE(&-L96%N:6YG('1A<&4@:6X@)'-E<G9E<EPG<R!L
M:6)R87)Y(&ES(&]N;'D*9V]O9"!F;W(@)&-L;G-?;&5F="!M;W)E(&-L96%N
M:6YG<RX*"E1H97-E($1,5"!D<FEV97,@8V]N;F5C=&5D('1O("1S97)V97(@
M;F5E9`IC;&5A;FEN9R!W:71H:6X@=&AE(&YE>'0@)&UI;FEM=6U?:6YT97)V
M86P@:&]U<G,@;V8@=7-E.@H]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]
M/3T]/3T]/3T]/3T]/3T*0&1I<G1Y"@H@("`@("`@(%!/4U-)0DQ%($-/3E-%
M455%3D-%"CT]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]/3T]
M"F)A8VMU<',@8V]U;&0@<V]O;B!F86EL(&1U92!T;PIA=71O;6%T:6-A;&QY
M($1/5TXG960@9')I=F5S('1H870*8V]U;&1N)W0@8F4@8VQE86YE9"X*"@H@
M("`@("`@(%)%0T]-345.1$5$($%#5$E/3@H]/3T]/3T]/3T]/3T]/3T]/3T]
M/3T]/3T]/3T]/3T]/3T]/3T]/0I5<V4@=&AE(&-U<G)E;G0@8VQE86YI;F<@
M=&%P92!T;PIC;&5A;B`D8VQN<U]L969T(&]F('1H92!D:7)T>2!D<FEV97,L
M(`IA;F0@=&AE;B!R97!L86-E('1H92!C;&5A;FEN9R!T87!E"G=I=&@@82!N
M97<@;VYE+EQN(CL*"F-L;W-E("A215!/4E0I.PH*<WES=&5M*"(D;6%I;"`M
M<R!<(D%,15)4("T@)'-E<G9E<B!N965D<R!A(&YE=R!C;&5A;FEN9R!T87!E
D(5PB("1M86EL7W1O(#P@)')E<&]R=%]F:6QE(%QN(BD["GT*
`
end

--============_-1257011842==_============--