� >getarticle
5� NewsHound Newsbase Transport getarticle command
�
(?� Allows newbase to request NewsHound fetches an article id
2�
<� By Joseph Heenan, 1996
F
P
Z� �:�" at line ";�:�
d
nș"OS_GetEnv" � A$
x
out%=0
�
id$=""
��
�p$=�getpar(A$," ")
�	Ȏp$�
� �"-file":id$=�getpar(A$," ")
��
�
�A$=""
�
�(�id$=""��exit(1,"No file parameter")
�� buf% 1024
�
�x%=�openin(id$)
�>� x%=0 � �exit(1,"Invalid message id file - nonexistent?")
��#x%
�
�d1$="<NewsHound$ConfigDir>"

ș"XOS_File",17,d1$�t%;F%

4�t%=0�(F%�1)<>0 ��exit(1,"!NewsHound not found")



"

,>ș"XOS_GBPB",9,d1$,buf%,77,0,1024,"*Group"�,,,no%,next%;F%

6

@files%=0

Jp%=buf%

T� (F% � 1)=0 � no%>0 �

^  � i%=1 � no%

h<    � get from each xxxGroup file, add id to xxxGet file

r    f$=�str(buf%)

|    buf%+=�f$+1

�"    file$=d1$+"."+�f$,3)+"Get"

�    out%=�openup(file$)

�    � out%>0 �

�      �#out%=�#out%

�      in%=�openin(id$)

�      ȕ (� �#in%)

�        idin$=�#in%

�        �#out%,idin$

�      �

�      �cf(in%)
      �cf(out%)
      files%+=1
	    �
&  �
0�
:
D� files%>0 �
NC  �exit(0,"Article "+id$+" added to "+�(files%)+" fetch lists")
X �
b/  �exit(1,"Could not add id to fetch list")
l�
v�
�
�
���exit(n%,a$)
�
�cf(out%)
�%�("set NewsBase$ReturnCode "+�n%)
�$�("set NewsBase$ReturnInfo "+a$)
��
�
�
ݤstr(a%)
�*�a$:ȕ ?a%>31��a$<255:a$+=�?a%:a%+=1:�
�=a$
�
�ݤgetpar(� A$,s$)

�B$,l%
l%=�A$,s$)

�l%>0�
   B$=�A$,l%-1):A$=�A$,l%+1)
*  �
4  B$=A$:A$=""
>�
H=B$
R
\ݤopenin(f$)
f=�fopen(f$,&4F)
p
zݤopenout(f$)
�=�fopen(f$,&8F)
�
�ݤopenup(f$)
��h%
�h%=�fopen(f$,&CF)
��h%=0�h%=�fopen(f$,&8F)
�=h%
�
�ݤfopen(f$,r%)
�
�h%,l%,F%
�ș"XOS_Find",r%,f$�h%;F%
��(F%�1)�h%=0
�=h%

��cf(� h%)
�l%
$ �h%>0�ș"XOS_Find",0,h%:h%=0
.�
8
�

00000000  0d 00 0b 11 f4 20 3e 67  65 74 61 72 74 69 63 6c  |..... >getarticl|
00000010  65 0d 00 14 35 f4 20 4e  65 77 73 48 6f 75 6e 64  |e...5. NewsHound|
00000020  20 4e 65 77 73 62 61 73  65 20 54 72 61 6e 73 70  | Newsbase Transp|
00000030  6f 72 74 20 67 65 74 61  72 74 69 63 6c 65 20 63  |ort getarticle c|
00000040  6f 6d 6d 61 6e 64 0d 00  1e 05 f4 0d 00 28 3f f4  |ommand.......(?.|
00000050  20 41 6c 6c 6f 77 73 20  6e 65 77 62 61 73 65 20  | Allows newbase |
00000060  74 6f 20 72 65 71 75 65  73 74 20 4e 65 77 73 48  |to request NewsH|
00000070  6f 75 6e 64 20 66 65 74  63 68 65 73 20 61 6e 20  |ound fetches an |
00000080  61 72 74 69 63 6c 65 20  69 64 0d 00 32 05 f4 0d  |article id..2...|
00000090  00 3c 1c f4 20 42 79 20  4a 6f 73 65 70 68 20 48  |.<.. By Joseph H|
000000a0  65 65 6e 61 6e 2c 20 31  39 39 36 0d 00 46 04 0d  |eenan, 1996..F..|
000000b0  00 50 04 0d 00 5a 19 ee  85 20 f6 3a f1 22 20 61  |.P...Z... .:." a|
000000c0  74 20 6c 69 6e 65 20 22  3b 9e 3a e0 0d 00 64 04  |t line ";.:...d.|
000000d0  0d 00 6e 16 c8 99 22 4f  53 5f 47 65 74 45 6e 76  |..n..."OS_GetEnv|
000000e0  22 20 b8 20 41 24 0d 00  78 0a 6f 75 74 25 3d 30  |" . A$..x.out%=0|
000000f0  0d 00 82 0a 69 64 24 3d  22 22 0d 00 8c 05 f5 0d  |....id$=""......|
00000100  00 96 16 70 24 3d a4 67  65 74 70 61 72 28 41 24  |...p$=.getpar(A$|
00000110  2c 22 20 22 29 0d 00 a0  09 c8 8e 70 24 ca 0d 00  |," ")......p$...|
00000120  aa 20 c9 22 2d 66 69 6c  65 22 3a 69 64 24 3d a4  |. ."-file":id$=.|
00000130  67 65 74 70 61 72 28 41  24 2c 22 20 22 29 0d 00  |getpar(A$," ")..|
00000140  b4 05 cb 0d 00 be 0a fd  41 24 3d 22 22 0d 00 c8  |........A$=""...|
00000150  04 0d 00 c9 28 e7 69 64  24 3d 22 22 8c f2 65 78  |....(.id$=""..ex|
00000160  69 74 28 31 2c 22 4e 6f  20 66 69 6c 65 20 70 61  |it(1,"No file pa|
00000170  72 61 6d 65 74 65 72 22  29 0d 00 d2 0f de 20 62  |rameter")..... b|
00000180  75 66 25 20 31 30 32 34  0d 00 dc 04 0d 00 e7 13  |uf% 1024........|
00000190  78 25 3d a4 6f 70 65 6e  69 6e 28 69 64 24 29 0d  |x%=.openin(id$).|
000001a0  00 e8 3e e7 20 78 25 3d  30 20 8c 20 f2 65 78 69  |..>. x%=0 . .exi|
000001b0  74 28 31 2c 22 49 6e 76  61 6c 69 64 20 6d 65 73  |t(1,"Invalid mes|
000001c0  73 61 67 65 20 69 64 20  66 69 6c 65 20 2d 20 6e  |sage id file - n|
000001d0  6f 6e 65 78 69 73 74 65  6e 74 3f 22 29 0d 00 f0  |onexistent?")...|
000001e0  08 d9 23 78 25 0d 00 f1  04 0d 00 fa 1f 64 31 24  |..#x%........d1$|
000001f0  3d 22 3c 4e 65 77 73 48  6f 75 6e 64 24 43 6f 6e  |="<NewsHound$Con|
00000200  66 69 67 44 69 72 3e 22  0d 01 04 1d c8 99 22 58  |figDir>"......"X|
00000210  4f 53 5f 46 69 6c 65 22  2c 31 37 2c 64 31 24 b8  |OS_File",17,d1$.|
00000220  74 25 3b 46 25 0d 01 0e  34 e7 74 25 3d 30 84 28  |t%;F%...4.t%=0.(|
00000230  46 25 80 31 29 3c 3e 30  20 8c f2 65 78 69 74 28  |F%.1)<>0 ..exit(|
00000240  31 2c 22 21 4e 65 77 73  48 6f 75 6e 64 20 6e 6f  |1,"!NewsHound no|
00000250  74 20 66 6f 75 6e 64 22  29 0d 01 18 04 0d 01 22  |t found")......"|
00000260  04 0d 01 2c 3e c8 99 22  58 4f 53 5f 47 42 50 42  |...,>.."XOS_GBPB|
00000270  22 2c 39 2c 64 31 24 2c  62 75 66 25 2c 37 37 2c  |",9,d1$,buf%,77,|
00000280  30 2c 31 30 32 34 2c 22  2a 47 72 6f 75 70 22 b8  |0,1024,"*Group".|
00000290  2c 2c 2c 6e 6f 25 2c 6e  65 78 74 25 3b 46 25 0d  |,,,no%,next%;F%.|
000002a0  01 36 04 0d 01 40 0c 66  69 6c 65 73 25 3d 30 0d  |.6...@.files%=0.|
000002b0  01 4a 0b 70 25 3d 62 75  66 25 0d 01 54 1a e7 20  |.J.p%=buf%..T.. |
000002c0  28 46 25 20 80 20 31 29  3d 30 20 80 20 6e 6f 25  |(F% . 1)=0 . no%|
000002d0  3e 30 20 8c 0d 01 5e 12  20 20 e3 20 69 25 3d 31  |>0 ...^.  . i%=1|
000002e0  20 b8 20 6e 6f 25 0d 01  68 3c 20 20 20 20 f4 20  | . no%..h<    . |
000002f0  67 65 74 20 66 72 6f 6d  20 65 61 63 68 20 78 78  |get from each xx|
00000300  78 47 72 6f 75 70 20 66  69 6c 65 2c 20 61 64 64  |xGroup file, add|
00000310  20 69 64 20 74 6f 20 78  78 78 47 65 74 20 66 69  | id to xxxGet fi|
00000320  6c 65 0d 01 72 15 20 20  20 20 66 24 3d a4 73 74  |le..r.    f$=.st|
00000330  72 28 62 75 66 25 29 0d  01 7c 13 20 20 20 20 62  |r(buf%)..|.    b|
00000340  75 66 25 2b 3d a9 66 24  2b 31 0d 01 90 22 20 20  |uf%+=.f$+1..."  |
00000350  20 20 66 69 6c 65 24 3d  64 31 24 2b 22 2e 22 2b  |  file$=d1$+"."+|
00000360  c0 66 24 2c 33 29 2b 22  47 65 74 22 0d 01 a4 1b  |.f$,3)+"Get"....|
00000370  20 20 20 20 6f 75 74 25  3d a4 6f 70 65 6e 75 70  |    out%=.openup|
00000380  28 66 69 6c 65 24 29 0d  01 ae 12 20 20 20 20 e7  |(file$)....    .|
00000390  20 6f 75 74 25 3e 30 20  8c 0d 01 b8 17 20 20 20  | out%>0 .....   |
000003a0  20 20 20 cf 23 6f 75 74  25 3d a2 23 6f 75 74 25  |   .#out%=.#out%|
000003b0  0d 01 c2 1a 20 20 20 20  20 20 69 6e 25 3d a4 6f  |....      in%=.o|
000003c0  70 65 6e 69 6e 28 69 64  24 29 0d 01 d6 16 20 20  |penin(id$)....  |
000003d0  20 20 20 20 c8 95 20 28  ac 20 c5 23 69 6e 25 29  |    .. (. .#in%)|
000003e0  0d 01 e0 17 20 20 20 20  20 20 20 20 69 64 69 6e  |....        idin|
000003f0  24 3d be 23 69 6e 25 0d  01 ea 18 20 20 20 20 20  |$=.#in%....     |
00000400  20 20 20 d5 23 6f 75 74  25 2c 69 64 69 6e 24 0d  |   .#out%,idin$.|
00000410  01 f4 0b 20 20 20 20 20  20 ce 0d 01 fe 12 20 20  |...      .....  |
00000420  20 20 20 20 f2 63 66 28  69 6e 25 29 0d 02 08 13  |    .cf(in%)....|
00000430  20 20 20 20 20 20 f2 63  66 28 6f 75 74 25 29 0d  |      .cf(out%).|
00000440  02 12 13 20 20 20 20 20  20 66 69 6c 65 73 25 2b  |...      files%+|
00000450  3d 31 0d 02 1c 09 20 20  20 20 cd 0d 02 26 07 20  |=1....    ...&. |
00000460  20 ed 0d 02 30 05 cd 0d  02 3a 04 0d 02 44 10 e7  | ...0....:...D..|
00000470  20 66 69 6c 65 73 25 3e  30 20 8c 0d 02 4e 43 20  | files%>0 ...NC |
00000480  20 f2 65 78 69 74 28 30  2c 22 41 72 74 69 63 6c  | .exit(0,"Articl|
00000490  65 20 22 2b 69 64 24 2b  22 20 61 64 64 65 64 20  |e "+id$+" added |
000004a0  74 6f 20 22 2b c3 28 66  69 6c 65 73 25 29 2b 22  |to "+.(files%)+"|
000004b0  20 66 65 74 63 68 20 6c  69 73 74 73 22 29 0d 02  | fetch lists")..|
000004c0  58 06 20 cc 0d 02 62 2f  20 20 f2 65 78 69 74 28  |X. ...b/  .exit(|
000004d0  31 2c 22 43 6f 75 6c 64  20 6e 6f 74 20 61 64 64  |1,"Could not add|
000004e0  20 69 64 20 74 6f 20 66  65 74 63 68 20 6c 69 73  | id to fetch lis|
000004f0  74 22 29 0d 02 6c 05 cd  0d 02 76 05 e0 0d 02 80  |t")..l....v.....|
00000500  04 0d 02 8a 04 0d 02 94  11 dd f2 65 78 69 74 28  |...........exit(|
00000510  6e 25 2c 61 24 29 0d 02  9e 0d f2 63 66 28 6f 75  |n%,a$).....cf(ou|
00000520  74 25 29 0d 02 a8 25 ff  28 22 73 65 74 20 4e 65  |t%)...%.("set Ne|
00000530  77 73 42 61 73 65 24 52  65 74 75 72 6e 43 6f 64  |wsBase$ReturnCod|
00000540  65 20 22 2b c3 6e 25 29  0d 02 b2 24 ff 28 22 73  |e "+.n%)...$.("s|
00000550  65 74 20 4e 65 77 73 42  61 73 65 24 52 65 74 75  |et NewsBase$Retu|
00000560  72 6e 49 6e 66 6f 20 22  2b 61 24 29 0d 02 bc 05  |rnInfo "+a$)....|
00000570  e0 0d 02 c6 04 0d 02 d0  0d dd a4 73 74 72 28 61  |...........str(a|
00000580  25 29 0d 02 da 2a ea 61  24 3a c8 95 20 3f 61 25  |%)...*.a$:.. ?a%|
00000590  3e 33 31 80 a9 61 24 3c  32 35 35 3a 61 24 2b 3d  |>31..a$<255:a$+=|
000005a0  bd 3f 61 25 3a 61 25 2b  3d 31 3a ce 0d 02 e4 07  |.?a%:a%+=1:.....|
000005b0  3d 61 24 0d 02 ee 04 0d  02 f8 15 dd a4 67 65 74  |=a$..........get|
000005c0  70 61 72 28 f8 20 41 24  2c 73 24 29 0d 03 02 0a  |par(. A$,s$)....|
000005d0  ea 42 24 2c 6c 25 0d 03  0c 0e 6c 25 3d a7 41 24  |.B$,l%....l%=.A$|
000005e0  2c 73 24 29 0d 03 16 0a  e7 6c 25 3e 30 8c 0d 03  |,s$).....l%>0...|
000005f0  20 1f 20 20 42 24 3d c0  41 24 2c 6c 25 2d 31 29  | .  B$=.A$,l%-1)|
00000600  3a 41 24 3d c1 41 24 2c  6c 25 2b 31 29 0d 03 2a  |:A$=.A$,l%+1)..*|
00000610  07 20 20 cc 0d 03 34 11  20 20 42 24 3d 41 24 3a  |.  ...4.  B$=A$:|
00000620  41 24 3d 22 22 0d 03 3e  05 cd 0d 03 48 07 3d 42  |A$=""..>....H.=B|
00000630  24 0d 03 52 04 0d 03 5c  10 dd a4 6f 70 65 6e 69  |$..R...\...openi|
00000640  6e 28 66 24 29 0d 03 66  13 3d a4 66 6f 70 65 6e  |n(f$)..f.=.fopen|
00000650  28 66 24 2c 26 34 46 29  0d 03 70 04 0d 03 7a 11  |(f$,&4F)..p...z.|
00000660  dd a4 6f 70 65 6e 6f 75  74 28 66 24 29 0d 03 84  |..openout(f$)...|
00000670  13 3d a4 66 6f 70 65 6e  28 66 24 2c 26 38 46 29  |.=.fopen(f$,&8F)|
00000680  0d 03 8e 04 0d 03 98 10  dd a4 6f 70 65 6e 75 70  |..........openup|
00000690  28 66 24 29 0d 03 a2 07  ea 68 25 0d 03 ac 15 68  |(f$).....h%....h|
000006a0  25 3d a4 66 6f 70 65 6e  28 66 24 2c 26 43 46 29  |%=.fopen(f$,&CF)|
000006b0  0d 03 b6 1b e7 68 25 3d  30 8c 68 25 3d a4 66 6f  |.....h%=0.h%=.fo|
000006c0  70 65 6e 28 66 24 2c 26  38 46 29 0d 03 c0 07 3d  |pen(f$,&8F)....=|
000006d0  68 25 0d 03 ca 04 0d 03  d4 12 dd a4 66 6f 70 65  |h%..........fope|
000006e0  6e 28 66 24 2c 72 25 29  0d 03 de 0d ea 68 25 2c  |n(f$,r%).....h%,|
000006f0  6c 25 2c 46 25 0d 03 e8  1c c8 99 22 58 4f 53 5f  |l%,F%......"XOS_|
00000700  46 69 6e 64 22 2c 72 25  2c 66 24 b8 68 25 3b 46  |Find",r%,f$.h%;F|
00000710  25 0d 03 f2 10 e7 28 46  25 80 31 29 8c 68 25 3d  |%.....(F%.1).h%=|
00000720  30 0d 03 fc 07 3d 68 25  0d 04 06 04 0d 04 10 0e  |0....=h%........|
00000730  dd f2 63 66 28 f8 20 68  25 29 0d 04 1a 07 ea 6c  |..cf(. h%).....l|
00000740  25 0d 04 24 20 e7 68 25  3e 30 8c c8 99 22 58 4f  |%..$ .h%>0..."XO|
00000750  53 5f 46 69 6e 64 22 2c  30 2c 68 25 3a 68 25 3d  |S_Find",0,h%:h%=|
00000760  30 0d 04 2e 05 e1 0d 04  38 04 0d ff              |0.......8...|
0000076c