Fleet-Street FAQ (скрипты) [2/7]

From
SS' bot (2:5062/27)
To
All (2:5054/37.63)
Date
2004-02-22T00:11:38Z
Area
RU.FLEETSTREET
>Q3: <*К*>алендарь праздников. (Sergey Chernikov, 2:5051/5.29)

   Этот скрипт предназначен для подставления вместо magic word '%Holiday'
в теле письма в ФлитСтрите ближайшего праздника из списка, хранящегося в
файле calendar.lst. Его формат примерно такой же, как и у *NIX calendar.
   calendar.lst нужно положить в каталог, из которого запускается
FleetStreet.

A: (Pavel Zagrebelin, 2:5000/102.13)
   calendar.lst в 150 строк.

A: (Nick Gavrikov, 2:5020/1673.1)
 PZ> 07.01 Христианским Рождеством
 btw, не с Христианским, а с Православным :)

begin 644 calendar.ha
M2$$$`"*`!P``!Q8``)N=`(FL,($X`$-A;&5N9&%R+DQS=``"`2`P129]Q3A5
MNJ&H%?@-'T6;Y_(3*=['K[4SV#U:B#//-I(\3)=6<D`E+B8/:6ARH<I;I(Q/
M8KR3?]$X70(Y(-:[YH.<LBH'S8&DL<X7HZ/Z<SUVLLJPALIS%QP,RDU72KPC
MAA#<U)ZT;J^R!^*!/A`ASF.X/<,DK<\!U<3=R\R:FEI#471$>LAFI-RBP&4>
MI]?>SL.9LD\GK3]$$FBHZQP;M'ZFIV6>\&VW9HM1U%&>%A_X<ZQM4428MEP*
MQJB$(&HR1`=:"W+4T1F:8*,I.R660;XAU)5"%\ZP/+F-_&2"]Z4JJ4].Y4[#
MS?S=FQEM0)4A9$EH53N,,R?-]`3!7/=P:!_^?O7#3EHX(@$K%8'D'S#S'W1M
MT`SJPFW?M_CBS234EE$V#RH$S=A7\T@%X;+1O(IE*.8S\&/??B]'<+>J2\@.
MARO4Z9`$<2?E=OX$0(A&%C>Z<Q)-R0$@A:PA:-'*O>A+?OSBC42F@X\)DL-J
M&*QJ2:J4T[_G^3(PM$#S,'1V"!>6B(P+!L7#DA@EU2)7^"8WSY#>JAT&,UT#
M\HPQ/`/<,]I4G<7V]L<^()!C_^VD[[CD3?"B-E9!R35#R]>7(EFBF1=AKJ&F
MGM1\AK/FVXE$(<.'45.!!P>#X5:+43W&N6=7I<<.7R<+!@P+0'#C94%TPJ[F
MBE`_<D<O'Y3RX5+WY8R>/9L+DGT'P/,?P=CG7J>P.FMWYX,`(T")C[&*1=H(
MBM^<6!_(!)2[=5%!(MM9CGFS;C^>K9C4V[7AV>DS0"!TO^00_/%'M&)+^AI%
M4DKJQ4:KI7@'SAALW]6</.OH,HM`]Y;X.?V=79!RDTEO."'7U#O3X6^G@;E.
MR!D.H#6BRIN;K'I7F[G$?#1U\I)^@SF_8OJ6;@O77QELXMS=UC&[P(\\6T\$
MF>Z]!_&HTR]7T):[!EZ+_;O+!L7B0AZ1C"&(71_4Q&^<=C&!2$*RDHU!NBW$
MM+QWG'[YALS\6ODMBUOL*-Z4;./F.0])OWT94E$$.3T'%9O*B*W/]$]U&WW_
MNXAMX1]&C$@$Y1._9$">SZ7+X?J#[4P(<@D#^?O>L:%.\?2X@W!?(*!LU,EJ
MB"E:Z5G'HK+-,_:RUH>YG)/1GXP[THZ:AYV=='L/12J>?`G444.7)G`@&((I
M"`"I+P;&0@A[N@ZOP&\\]*BH^8R2]Y\U8EKCVUY^8F&_T^[W#N+]&K]#+#-8
MNJSL>B,/,C-&387#C!(,<UQ!!?>:O!<&6LI2Q"470VDOXZT)$D*433IY*5NE
M^"(L3K^\L3+V(/`5$JG(?M"OF]C_/N9NA@>"45N?94<M[=U#FMK7?N/'SN:%
MFE>%76TQ_V[NW8A6Y&&Q[0*2P=<S1M#$RN9UN.LAOH-C6S5Q?\A+N9.&G+'Z
MJ3D7+`Q@?5=MLG'5U_:3L6[\DOT,0^`]/*B6U$#!WB#`J9PU\)/"7IUW^LL7
M(7,UJVI)N2Z8@DII&I*AC9).!"Y#D%4P[R*C"V[XU3T4]&5=-TAOQ#&FAVC.
M'"J8;<4?7F4@_9@0B*9,>ZL'D%KK3358^AI:3J,(H#DQH!8Y.!H73ZF$]ET5
MZ>M2X!]"7)I%F8SX!X_E$?O6KNJZ9><7$(GIWWH@^2-G`YC+8Z!OX!&I.OF)
M4-X4WZ77_9?ZB--OQ3%ICB9J:%@,_E39'NGM>Z5,N<8B?Q7^RE^M:#==(C%<
M2)5/=[+N/!W-2A0W:D$\I&<S/[A.8_N(+2^\AZ80Z;#GYLWE<]\3((%HPT=P
M;2BD1BCA)<,+QHTJRHHC!A=<X&6UP&S`ALJY>)W_KG-6=9"\Y#@_ZD<;7QA;
M%.$5V'F-I42]27EAKW^"[K5,_6MPFR/<HT^CAR\(1:>S$7`3^G]4*B_,!:!O
M^'XC!V#XC7^8QF57?F?LB3>4(%&QZ_$GCIDI(B,`>@1"AL>WQU1SU;O.1#;C
M*4M"0%B:,B9@_N#+"\IV!KTNN$=@3EXQ3%`#1^%D"26KZKF^9OY76V0KP%U5
M$XQ#52/+MA?6G!SW/EID<JP.T-95F9]`49D<CZ'2Y4)S%,C?3SV]0L1Y3BZ:
M+ED,&#OW)*4D]9N>WJ>3!0I6/C4NQG[+AZ*!'N?GQ'\V^.@LW".4LI1'!Q<<
M1]?JZE_-51J/C*[--I20&SM@<.SMTU]`I=&;M#N!I:YQQ9"DS4!+.F);,M0<
M8'18?:L@&4"JP976L0ZL\030FXGK';^EYQ$D)-+=?+<#@N@U`21XW^\W::M(
MVUT1%W+;:QF.1;`4P4JRE!K@T7-\+.EL)&J^+>N^:,1"!PU'V*UCB/K<[Z^$
M>*[_<(NE-WPL=R<4@;9B6]6]QRE#5,/9PY5,&SI(8H-HH:9I!$&3&89Z9@8Q
MCVX:L*%29:!%>1@GX!X#>W,87V/M,G8TYKS_W16L(4=K#<<6>8\#_,(O8"<F
M=>L-;-B;655M6CS+00&7F"USP2CDKR`L:&+R)2K>ZF*,!?1;>8<66=C6\#<=
MH8M9@#"6@"8Q&;_VHM5=2KM[XYQ)&G1RETTKKREQ4T,HZ*_E7D#:0*MGEHG\
MLUR^3'$#2F)M"3"6??Z4&:<!O^#11>`BO````%(!``"WBI)/JA\G-`!#86QE
M;F1A<BY,<S```@$@,$4F?<5RI;J%*!7X81]%F^?R%`VF&2L(@DQZC3=^<R>N
M'(BQW4&86<0M@(86NR'YU@>J/BW\#L4:R#?_R2%MY3%X#.T$NP`2FS!B+H/V
M+9F*5+@"I*=?,/0:BO,+Z%2]Q!;L,HCZZ0^'9A?VT9*6*AZ%]YN?L*8D[DV,
M>I=3A]3/L/\!-\Y/S4XC=$2-.OS-`:EX<3D>KS#=!:WYY\*Y'WS<^'K#]H\O
M5I>$DKX:&J:H)Z\Q,>2QHNQD;>`BVP4``#H+``"M"!DV'A\G-`!296%D364N
M,5-T``(!(!_AI'7,(XAY2$*^?XGOY>W(8#&WL7O_/J7\G$K3&YWABYVY=3I^
M03;EZX+?$86(66UM8C#/5#+H(E5I1ZE\:MBJ7]H^92"'_;B4#.[^Z"IC$4'J
M<<O2;'2J5]UC;-<B[28?M-<$XR/]$%V3YE)AJHTLX,9Y\RV9$W/1GR5/GJ8A
M>-W(=)U3:/;D;@AI/*LH=T?]21AX%(ENRLC3:X>G;D-@&Z4^Y:&99%U&_9_9
MG^1_,E`=B\O%5<$Z=:+4UDX:(MW;@U&;H;P`]/:DD/+$&ZAU'`X8W#9,YGM"
M_0TR#^.=>D"1Z7*P*%\&L%.>"V6>C2DBEO3J7[V`(!RV(30D^#@`U\O!:&W(
M;!(?X[R)6TZ)2T66&U\>D';-4?1Q\M]5*VF]<]%P<RGV]X/)R`\$'A7&]H/L
MR*JN=XC-Q\._@Y?]H>QPC8\2_[B_FU7]OIUYW;[,6VP$5#7<);%#'8=I2KLP
M5[><"U<;1=6/N'6YIF*`[FBSRSP+N7US)-N+>4Z@`KO@9&RHRHV`?:!M]G7;
M)(KMX8UIF.!S6S:ABDJ[O@-M972;4\0CHZ]G26I#B3X\Q*3]E5]2:S69CW@<
M4(2MY-D\M>(Q&Q*O'FN*HJ]U:\1;U]!D.X@E,,>\XVA?)0]*K_PU&7:J^.[U
MJPQZ[,?&"'.$XRC3X%+ERK0O#8Y]=1WK2RDRPF"!'M?W#'O!+!$F>^0T"&S2
M78H)*X71:U4A!,/R&21ZRJ%H#LDCJTAC=PTOUYQW`Q.4&T]I@T*XY+*Y$PA*
M@Z]N7;C1AQ5W%Q>BS5#OF6D(RI_`$WEY,]64GY,,VQ:$7)L?.N(,&15":*DL
MG5'MO&24D_%V6V`:?</-X$B7\`[`1^N%8@Q0@$D$Z</F@7IP.@_PRO%`;H>"
MN$(!E7)A(,RA'!;6$`Q/K[<0Z_*V(B4&<:>F$&X$]\[\:C4>8V/S#^&,&D%9
MK]@CYB59?,SQ;/*"?*U0*H0')6CMNK@-`R_FSOUO-,_>6\*7\%M*KTK^9GX#
M/GM[:1L7;%M)7^@#>-=Y3^?51"R_D8X(\5`%^N@5E!%B,G<J$YN3,[BZ1M?\
M[7C)'=DMP=WA*2OLA&P1K88!MKAC%N&W>$;B&/>)0QYUN;I?3K9U?#MN+XIL
MMM,X<V-S7\+*(R8NX`.GQ$M&#H7.J4>"N(5/D*Q%$4`W;,K]#FHYO=;I45%1
M]E1.YH[,YO;49O`06=RR=:=G5)3F:[GS:[_H.0-K/!?1&&V)%]]Q0%""SVY\
M+8UM`/+\(C7AWLN#'KN!+KTDNTZAFP2<R?58[L\@6LY(MB0K77G:1[S3M:%_
MUP8>Z<]Q[!M.A^QP?%>BT:6PZ8\'2\_F"-G'7UJ-9D5\?M5K<<Z*\R-X=^O%
M#%L_-,P+5T(.U2+U=)>5='0XS0<=&W2_W<4E0.O*B32>ZB>[%&>D5#R4>CS?
MKT3#M2V.@B*]%BAI<*)V@XJ-1K=?-G%K6\*V._\0&JPU:H.U261>>\VZ)*P&
MFU"X)]\YVJ0^R5ZPNYNFC@*P<""Z0\ZE];C?<3=-#LJ<T+'9SD)G^M;Q)`@V
M#G5FX6@4UB:BR3F@Z&;I.?!$O#_>PXM7I:2Y9EV^05DRY"`%%S]J13N*LRX/
M`N.Q&/#0#-MNTE9GMU9!WD/_F"]`4H)]BXD+4/C.JEB$-D-WV[.:RHND^1<0
M`V1E'B'C3Y?S."*`46Y)X6^F%1"JO!Q$ZPEHILP;>2Q8,>J/'VR\9M88R(>9
M?1MSW)"@B+^-\A+:_P&[M[V0CML;A^OGY-;15<'H\)I`YX#*",*QDT<FR]JH
MA),NNA@D$4(884+-YS%2I,^!ILEQOZ.V6*'H[84<N03K:>Q5ZT&U0[G95%DN
MJ-U-:G*J[2.HY:#JY1"P6H0LJF@#)C(4515RV[_"GR!+'SJQ:8OL&:7#LY(]
M<XNSV?K/OA3:N+NY&B)D6FF!U<'T%SF\#3;#8>N_+!/[%>WKE/OB#GF0ICVM
MZ:VN'O1\V^2\)B29.4HP``-/!9'`(GD'```[%P``.(_3?U;D)C0`0V%L96YD
M87(N1G)X``(!("]")`E1]6D\E8OGF(7.`=(Q.G+C.L[W0WWD@"6H>YEJR7`4
MU2D+YUI_W47<>"I*RH$BN,NO'$NV"I9E0VW,GV=(CE_FV6!N)W!@TJ,V6-/N
M)9FDNZM0>#**N$SSJC/B<J"Y%4^C`(ICT?9YF#:?\WF*UBYM]`F1.UZ!CU_V
M@9@,H/C^7@`V:N=9$&4UT&&_#=C/A'_1?_F0E]XYW+(2`EES*H@P__CG6AX2
M":2(Y34.[ZW)?/<AE$Q+"E;%B5Z+T!.*]N2L^-PQ,IS1$)PMU!PR$M\-F]0X
M3;-@)1*'S:-X"A3H;?2<>-Z3>ODV6&;]?!IGB@.RMWY3O&Q;_:I>SQH3#*K$
ME?;BET2:+\,K)R.U#]U^F@X#[_/[,!!QYYY@^0*E6"^8M*&Z*CX\)AZ2<'DL
MOE!5$`*Y0HAAI,EJVQJU(#NBX+8?T*81RZ"\-!$(=-1/+N:V!QM7Z=@LYNY6
M;[S4/5"5KK?9L$J(#VR=MZ^"O"G4;)+OZ]/&VK.,9+W5FYXGMCIJ/9:$3JKB
M_Q5'[F<LW,6!?M9L:Z>47CU$&A:R)RNI-J4S"M,CU?J8NHKZQZ38-68G^%*S
MNE.`]U_ES,&2&`L5>ZNIC/U_.4D^<PLEI<F+];AR<C;@S&IQJ%',\'[DL#V%
ME6Y!A=P`YG2U1(Q!Z/"M.(EF60=,KT23F[N,S5R,D[=9M\6V0O#9%RJ)HWFP
M3F5P(0^CF=W#TPS#[O^OM5R;M1-<,NTG=8GTKC6[IU%-$8QJZ@U@WVPK?@WM
M9MP7Y&'?'!F(@VR9+GQ#;;N!51;#!!G,>Z0KT-V`'8^\LL(DVL5?!5-Q*&].
ML\R0JX1X7<'0C61.,Q1\^&D5]I%3X!Q0-7`;C>)!-UT<K`;&JF5]$)B$R(&`
M,1@ACD*C"+HUN!0XQPL"Z6=3+%$L3AT9K5%^01V=7[+"+99D,O>B:DPW?8N,
M4<CKP&E8!&#CM"9\1&Y?EBCT73?6D#E'>S\<Q!=H!U434*OW_M--MU`I4`=@
M/O:57\HPCR\]E%K"KADH-*LM(?=1_-@>I^9>T9K*>BO5&/8U?C>Y5VO^*+K%
MJ[YQCM5HJ)B1U<ATJF/=P*(.=DSR%=.`!IP?UYC8BY->.L">%_;64T=_!W@T
MW@.`2>_=U+51T1%FCGDS0]O[<,NZN!&.M"]*K_2<`2B=/Q96S"'Q;D4YM4@G
M&JL(<FTKE446Z\"BS5/F6_J'Z70`*>[P\]_12RBK^3ZJKG$V5N>K+2)%RS<M
MIGMUU(39H^<2RJI!('KMOMAXR$0?XYGGSY`3IFX_AA1;95+,KT.[W&K3MO``
M,4H&OXSM#"4_QGX!-T$W0PYN%F#8-TFLSGJ#0N-KY]@*YV[%`T?.&>JYN.(Y
MOTSTR,JFZW1$XMK>)0\)/J+7Y'N%2.R:2;-H(%SHL";OEADP3/MZ3W817;A9
MB_W5D3^.2R4,V00C3LB"9ME)X]LD"N/P!SB)`PTY]MP?'DY):$DD5]&*H*)%
M[YE'`0\@896U_!`G<-J*!-M`()=-G@)).WRRMDXH2,2@&AHR]]F;HA74``WG
MK>R/"2H9Q.<,53A^;-"P>4SL[1T^1H@CL6E^C$,JW^33):I0!XEP;7S[2</I
M3EQ-COGX.'\D\&J4G8)-=LJ*"A*8*N4>B8-M>5U9BDQY/TG\;</JSIE8UV;(
M1+IV/;G2:8;54L`SC(Z(KIU>J9CN'^H@H(OS4]N(#QJVGHG"E6UJ64&PL,T5
MYK'6-.<RS<5MC=)DR:>%T^'.^J$Z\.W)%KT3@I6X2]KC(9H#D4E<5'#WDGDC
MX$QWEX^%"%""33:,]RVK&5[+RBA,`KEBBFJ%CF^<GY(0[@V0:@9'NN>HJDEQ
ML?L6_&H6Q<;'ZK+!Q"#L">IZJ8XR1(Z&H2@"7]<2:P#M[(OB+&R1S6N&Z-VT
M!K:;]@'ZL)UYZ\2`$'47)'%__2)*!0X-[:##43(\0!2QY44MK02K?9WJY+2E
MJ-*`QF#D,N\D!USWN:4$GV_K``C"0*5\M=(#!8OJ5O/G\75FJK9H0/DD#JN%
M2J6LSUD]SM"=+@5@UN/=S#:W\U_I#M.^J5R-H$KT).E`N[3%A33<'L24SP/(
MEVL$9L(^%/Q*)VO&;3\2U+_T1%\88/*+R=NY`ISAP0^RUET]OL8CCGX1>O49
MM^$?V3+J;M?>J(V&J=M:%D'XZ)16KN1_/2[;3K'65<@(;U1<-DDZ,[@Z="&B
M@,AYR(!_7;,(%T^\8Z-?E*,*.(?$3+26"-4NL6TVG)?.D8@DU]W$I5\FZ'G%
M@[L#_.N,ZR16^Q/<*=(*-KB-Z0;C?O?^GR4I48P:;SZ-+<PZ8R\5=87AF-_W
M]96QZE&V70@]I7Y\$G`OFI*WXEP&85F[^Q=0D./@%?E[UK8J2)CJ@DCY"!'&
M@=(D$-U#H1J_<E#)1?$\+C9-OM$?RGZWW^J%7BT>M`\FZ9MG16+#;'5/<'GQ
MRE7;?'IW?P]8P@S-@)-`TKA<>T28E^>E6=XZJC@^%YV&_7E(&!@<N('/K0=%
AX>Q)VQ:KZG%L">ZA]S.`@:S!&K3?>^KRL!P,9@"MS<G@
`
end
sum -r/size 8481/5658 entire input file

---
 * Origin:  Volgodonsk, Russia  (2:5062/27.0)
SEEN-BY: 450/102 160 452/25 461/74 106 132 220 640 462/30 463/68 220 464/34 36
SEEN-BY: 465/62 64 204 469/125 303 550/5068 4615/21 4625/9 4626/6 5000/5000
SEEN-BY: 5002/5002 5003/34 5005/14 5006/1 5009/14 5010/77 5015/4 28 5020/37 52
SEEN-BY: 5020/69 115 128 252 321 323 362 400 549 715 758 794 902 921 982 1169
SEEN-BY: 5020/1234 1642 1822 1873 2020 2200 4400 4441 12000 5021/44 600 5022/5
SEEN-BY: 5023/11 5025/3 39 5030/69 382 423 1016 1023 1688 1900 5031/50 5036/1
SEEN-BY: 5037/21 5040/33 47 59 5042/8 5045/7 5050/9 41 5051/35 5052/4 5053/16
SEEN-BY: 5053/18 5054/1 9 10 30 37 67 79 5055/158 181 5058/24 106 5059/9 10 20
SEEN-BY: 5061/15 5062/1 17 21 27 5066/18 5069/7 5070/26 66 5071/1 5078/20
SEEN-BY: 5080/80 301 1003 5083/13 21 5085/13 5090/3 5093/4 57 5095/1 6035/1
SEEN-BY: 6083/12
PATH: 5062/27 1 5020/4441 52 5054/1 79 37