--============_-1241425785==_============
Content-Type: text/plain; charset="us-ascii" ; format="flowed"
Here ya go.
I just finished it a few days ago and tested it on NBU 3.2 running on
Solaris 2.6, but I *think* it should be totally portable to other ksh
systems... oh, while it does ignore cleaning tapes, it only does so
by skipping tapes of type "DLT_CLN" - that would need changing in
some environments...
rob
====
Usage: scratch_pop.ksh [-n] [-i <pool>]
This program will automatically checks for AVAILABLE
media in the library that is not in the scratch pool.
If any such media is found, it is moved into the
scratch pool.
The -n flag only gives debug info on what the script
WOULD do, no changes are actually made.
The -i flag specifies the name of a pool that should
be ignored (i.e. a pool that is intended
to have some AVAILABLE tapes, like the
NBU DB backup pool if you are using bpvault.)
=====
Hey curtis - stick this one in the archive ,eh?
rob
--============_-1241425785==_============
Content-Id: <p0433010ab60156611b02@[38.31.7.151].0.0>
Content-Type: application/octet-stream; name="scratch_pop.ksh"
; x-mac-type="54455854"
; x-mac-creator="522A6368"
Content-Disposition: attachment; filename="scratch_pop.ksh"
; modification-date="Wed, 4 Oct 2000 14:50:54 -0700"
Content-Transfer-Encoding: x-uuencode
begin 644 scratch_.ksh
M(R$O8FEN+VMS:`HC"B,@<V-R871C:%]P;W!U;&%T;W(N:W-H"B,@4F]B(%=O
M<FUA;BP@0V]L;&5C=&EV92!496-H;F]L;V=I97,L(')O8D!C;VQL=&5C:"YC
M;VT*(R`Y+S$T+S(P,#`*(PHC('1H:7,@<V-R:7!T(&QO;VMS(&9O<B!!5D%)
M3$%"3$4@;65D:6$@=&AA="!I<R!N;W0@82!P87)T"B,@;V8@=&AE('-C<F%T
M8V@@<&]O;"P@86YD(&UO=F5S(&%N>2!M961I82!I="!F:6YD<R!I;G1O('1H
M90HC('-C<F%T8V@@<&]O;"X@=&AI<R!S8W)I<'0@<VAO=6QD(&)E(')U;B!F
M<F]M(')O;W0G<R!C<F]N=&%B"B,@;VX@=&AE($YE=$)A8VMU<"!M87-T97(@
M<V5R=F5R+@HC"B-S970@+7@*(PH*57-A9V4H*2!["@EE8VAO(")5<V%G93H@
M)#`@6RUN72!;+6D@/'!O;VP^72`B"@EE8VAO(")4:&ES('!R;V=R86T@=VEL
M;"!A=71O;6%T:6-A;&QY(&-H96-K<R!F;W(@059!24Q!0DQ%(@H)96-H;R`B
M;65D:6$@:6X@=&AE(&QI8G)A<GD@=&AA="!I<R!N;W0@:6X@=&AE('-C<F%T
M8V@@<&]O;"XB"@EE8VAO("))9B!A;GD@<W5C:"!M961I82!I<R!F;W5N9"P@
M:70@:7,@;6]V960@:6YT;R!T:&4B"@EE8VAO(")S8W)A=&-H('!O;VPN(@H)
M96-H;PH)96-H;R`B+6X@9FQA9R!O;FQY(&=I=F5S(&1E8G5G(&EN9F\@;VX@
M=VAA="!T:&4@<V-R:7!T(@H)96-H;R`B5T]53$0@9&\L(&YO(&-H86YG97,@
M87)E(&%C='5A;&QY(&UA9&4N(@H)96-H;PH)96-H;R`B+6D@<W!E8VEF:65S
M('1H92!N86UE(&]F(&$@<&]O;"!T:&%T('-H;W5L9"(*"65C:&\@(B!B92!I
M9VYO<F5D("AI+F4N(&$@<&]O;"!T:&%T(&ES(&EN=&5N9&5D(@H)96-H;R`B
M=&\@:&%V92!S;VUE($%604E,04),12!T87!E<RP@;&EK92!T:&4B"@EE8VAO
M(").0E4@1$(@8F%C:W5P('!O;VP@:68@>6]U(&%R92!U<VEN9R!B<'9A=6QT
M+BDB"@EE8VAO"GT*"@HC('!A<G-E('1H92!A<F=U;65N=',*=VAI;&4@9V5T
M;W!T<R`Z;FDZ(&]P=&EO;@ID;PH@("`@8V%S92`D;W!T:6]N(&EN"B`@("`@
M("`B;B(@*2!$14)51STB=')U92(*("`@("`@("`@("`@(#L["B`@("`@("`B
M:2(@*2!)1TY/4D503T],/2(D>T]05$%21WTB"B`@("`@("`@("`@("`[.PH@
M("`@("`@(C\B*2!E8VAO(")B860@;W!T:6]N(@H)"55S86=E"B`@("`@("`@
M("`@("`@("!E>&ET(#$*("`@("`@("`@("`@(#L["B`@("!E<V%C"F1O;F4*
M"E-#4D%40TA03T],/6!E9W)E<"`G7E-#4D%40TA?4$]/3"<@+W5S<B]O<&5N
M=B]V;VQM9W(O=FTN8V]N9B!\(&-U="`M9C,@+60B(")@"E9-455%4ED]+W5S
M<B]O<&5N=B]V;VQM9W(O8FEN+W9M<75E<GD*5DU03T],/2]U<W(O;W!E;G8O
M=F]L;6=R+V)I;B]V;7!O;VP*5DU#2$%.1T4]+W5S<B]O<&5N=B]V;VQM9W(O
M8FEN+W9M8VAA;F=E"D)0345$24%,25-4/2]U<W(O;W!E;G8O;F5T8F%C:W5P
M+V)I;B]A9&UI;F-M9"]B<&UE9&EA;&ES=`H*(V1E=&5R;6EN92!T:&4@<&]O
M;"!N=6UB97(@;V8@=&AE('-C<F%T8V@@<&]O;`I30U)!5$-(4$]/3%].54T]
M8"1635!/3TP@+6QI<W1A;&P@7`H@("`@("`@('QA=VL@)R0P('X@+W!O;VP@
M;G5M8F5R+R![('!R:6YT9B`D,"!]("0P('X@+W!O;VP@;F%M92\@>R!P<FEN
M="`D,"!])R!<"B`@("`@("`@?&=R97`@)%-#4D%40TA03T],?'-E9"`G<R]P
M;V]L(&YA;64N*B\O)WQS960@)W,O+BH@+R\G8`H*(V)A<VEC(&5R<F]R(&-H
M96-K:6YG"FEF(%L@+68@+W5S<B]O<&5N=B]N971B86-K=7`O=F5R<VEO;B!=
M"G1H96X*"4A!4D1705)%/6!H96%D("TQ("]U<W(O;W!E;G8O;F5T8F%C:W5P
M+W9E<G-I;VX@?"!C=70@+68R("UD(B`B8`IE;'-E"@EE8VAO("(O=7-R+V]P
M96YV+VYE=&)A8VMU<"]V97)S:6]N(&YO="!F;W5N9"$B"@EE>&ET(#$*9FD*
M"B-B87-I8R!E<G)O<B!C:&5C:VEN9PII9B!;(%@D4T-2051#2%!/3TP@/2!8
M(%T*=&AE;@H)96-H;R`B;F\@<V-R871C:"!P;V]L(&1E9FEN960@:6X@+W5S
M<B]O<&5N=B]V;VQM9W(O=FTN8V]N9B$B"@EE>&ET(#$*9FD*"B,@82!L:71T
M;&4@8FET(&1E8G5G9VEN9R!O=71P=70L(&EF(&1E<VER960@("`@("`@(`II
M9B!;("1$14)51R!="G1H96X*("!E8VAO("(M+2T@9&5B=6<@;W5T<'5T.B(*
M("!E8VAO("(M+2T@<V-R871C:"!P;V]L(&ES("130U)!5$-(4$]/3"P@=VAI
M8V@@:7,@<&]O;"!N=6UB97(@)%-#4D%40TA03T],7TY532(*("!I9B!;("UN
M("1)1TY/4D503T],(%T*("!T:&5N"B`@("`@96-H;R`B+2TM(&EG;F]R:6YG
M('!O;VP@)$E'3D]215!/3TPB"B`@9FD*("!E8VAO("(M+2T@=&AE(&9O;&QO
M=VEN9R!C;VUM86YD<R!W;W5L9"!B92!E>&5C=71E9"!N97AT.B(*9FD*"B,@
M9V5T=&EN9R!D;W=N('1O(&ET+BXN"B,*5DU1545263TO=7-R+V]P96YV+W9O
M;&UG<B]B:6XO=FUQ=65R>0I635!/3TP]+W5S<B]O<&5N=B]V;VQM9W(O8FEN
M+W9M<&]O;`H*5DU03T],7T]55%!55#TO=&UP+W9M<&]O;%]O=71P=70*+V)I
M;B]R;2`M<F8@)%9-4$]/3%]/5510550*=&]U8V@@)%9-4$]/3%]/5510550*
M"B1635!/3TP@+6QI<W1A;&P@+6(@,CXO9&5V+VYU;&P@?"!T86EL("LS('P@
M<V]R="`K,"`Q/B1635!/3TQ?3U544%54(#(^+V1E=B]N=6QL"@I635%515)9
M7T]55%!55#TO=&UP+W9M<75E<GDN;W5T"@IC870@)%9-4$]/3%]/5510550@
M?`IW:&EL92!R96%D('!O;VQN86UE('!O;VQH;W-T('!O;VQU<V5R('!O;VQG
M<F]U<"!P;V]L9&5S8PID;PH)+V)I;B]R;2`M<F8@)%9-455%4EE?3U544%54
M"@ET;W5C:"`D5DU1545265]/5510550*"21635%515)9("UP;B`D<&]O;&YA
M;64@+6)X(#(^+V1E=B]N=6QL('P@=&%I;"`K-"`Q/CXD5DU1545265]/5510
M550@,CXO9&5V+VYU;&P*"@EC870@)%9-455%4EE?3U544%54('P*"7=H:6QE
M(')E860@=FUE9&EA:60@=FUE9&EA='EP92!V<F]B;W1T>7!E('9R;V)O=&YU
M;2!V<F]B;W1S;&]T('9S:61E('9V;VP@=F]P('9M;G1S('9L;71D871E('9L
M;71T:6UE('9A<V=N9&%T92!V87-G;G1I;64@=G!O;VP@"@ED;PH*"6EF(%L@
M(B1[=F%S9VYD871E?2(@/2`B+2TM(B`M82`B)'MV87-G;G1I;65](B`]("(M
M+2TB("UA("(D>W!O;VQN86UE?2(@(3T@(B1[4T-2051#2%!/3TQ](B`M82`B
M)'MV;65D:6%T>7!E?2(@(3T@(D1,5%]#3$XB("UA("(D>W!O;VQN86UE?2(@
M(3T@(B1[24=.3U)%4$]/3'TB(%T*"0ET:&5N"@D)"0H)"0DC(&UO=F4@=&AI
M<R!M961I82!I;G1O('1H92!S8W)A=&-H('!O;VPL"@D)"2,@=6YL97-S($1%
M0E5'(&ES('-E="P@:6X@=VAI8V@@8V%S92!W90H)"0DC(&]N;'D@96-H;R!T
M:&4@8V]M;6%N9`H)"0EI9B!;("$@)$1%0E5'(%T*"0D)=&AE;@H)"0D))%9-
M0TA!3D=%("UP("130U)!5$-(4$]/3%].54T@+6T@)'9M961I86ED"@D)"65L
M<V4*"0D)("`@96-H;R`B)%9-0TA!3D=%("UP("130U)!5$-(4$]/3%].54T@
C+6T@)'9M961I86ED(@H)"0EF:0H)9FD*"61O;F4*9&]N90IO
`
end
--============_-1241425785==_============--
|