Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!aplcen!uunet!ccavax!glassmann
From: glassmann@ccavax.camb.com
Newsgroups: news.software.anu-news
Subject: Re: Finding a Message ID.
Message-ID: <17338.25d6e74f@ccavax.camb.com>
Date: 12 Feb 90 21:41:50 GMT
References: <DD1181E3DEBF0025B5@MCCLB0.MED.NYU.EDU>
Organization: Cambridge Computer Associates, Inc.
Lines: 148

In article <DD1181E3DEBF0025B5@MCCLB0.MED.NYU.EDU>, SMITH%MCCLB0.MED.NYU.EDU@CUNYVM.CUNY.EDU (Ross Smith: (212) 340-5356) writes:
> Is there an option in SEARCH to find the message with a given message ID?
> We are an end-node and found a message ID of an item from rice.edu in the
> outgoing .IDS file.  I was curious to know  how this could have happened and
> hoped that looking at the messsage wold provide a clue, however, I was not
> able to find it.

Try this little utility.  Following is the C source, and then the EXE, encoded
by MFTU.

#include rms
#include "news_src:newsdefine"

struct FAB grpfab;
struct RAB grprab;
struct FAB itmfab;
struct RAB itmrab;
GRP newsgrp;
ITM newsitm;
int stat;

main (argc, argv)
int argc;
char *argv[];
{
char itemid[80];

  if (argc != 2)
    {
    printf ("Must give item ID.\n");
    exit ();
    }

  open_files ();

  if (*argv[1] == '<')
    itmrab.rab$l_kbf = argv[1];
  else
    {
    strcpy (itemid, "<");
    strcat (itemid, argv[1]);
    strcat (itemid, ">");
    itmrab.rab$l_kbf = itemid;
    }

  itmrab.rab$b_ksz = strlen (itmrab.rab$l_kbf);

  if (!((stat = sys$get (&itmrab)) & 1))
    {
    if (stat == RMS$_RNF)
      {
      printf ("Item not found\n");
      exit ();
      }
    else
      {
      printf ("Error getting item\n");
      lib$stop (stat, itmrab.rab$l_stv);
      }
    }

  if (!((stat = sys$get (&grprab)) & 1))
    {
    printf ("Error getting group\n");
    lib$stop (stat, grprab.rab$l_stv);
    }

  printf (Itm_template, newsgrp.grp_name, newsitm.itm_num);
}


open_files ()
{
  grpfab = cc$rms_fab;
  grpfab.fab$b_fac = FAB$M_GET;
  grpfab.fab$l_fna = GRP_FILENAME;
  grpfab.fab$b_fns = strlen(grpfab.fab$l_fna);
  grpfab.fab$b_shr = FAB$M_SHRDEL | FAB$M_SHRGET | FAB$M_SHRPUT | FAB$M_SHRUPD;

  grprab = cc$rms_rab;
  grprab.rab$l_fab = &grpfab;
  grprab.rab$l_ubf = &newsgrp;
  grprab.rab$w_usz = sizeof newsgrp;
  grprab.rab$b_rac = RAB$C_KEY;
  grprab.rab$b_krf = 1;		/* read by group number */
  grprab.rab$l_kbf = &newsitm.itm_grp;
  grprab.rab$b_ksz = sizeof (newsitm.itm_grp);

  stat = sys$open (&grpfab);
  if (stat != RMS$_NORMAL)
    lib$stop (stat, grpfab.fab$l_stv);
 
  stat = sys$connect (&grprab);
  if (stat != RMS$_NORMAL)
    lib$stop (stat, grprab.rab$l_stv);
 
  itmfab = cc$rms_fab;
  itmfab.fab$b_fac = FAB$M_GET;
  itmfab.fab$l_fna = ITM_FILENAME;
  itmfab.fab$b_fns = strlen(itmfab.fab$l_fna);
  itmfab.fab$b_shr = FAB$M_SHRDEL | FAB$M_SHRGET | FAB$M_SHRPUT | FAB$M_SHRUPD;

  itmrab = cc$rms_rab;
  itmrab.rab$l_fab = &itmfab;
  itmrab.rab$l_ubf = &newsitm;
  itmrab.rab$w_usz = sizeof newsitm;
  itmrab.rab$b_rac = RAB$C_KEY;
  itmrab.rab$b_krf = 1;		/* read by item ID */

  stat = sys$open (&itmfab);
  if (stat != RMS$_NORMAL)
    lib$stop (stat, itmfab.fab$l_stv);
 
  stat = sys$connect (&itmrab);
  if (stat != RMS$_NORMAL)
    lib$stop (stat, itmrab.rab$l_stv);
}

Encoding of file DUB0:[NEWS.LOCAL_SRC]FINDITEM.EXE;7
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#@@QUIDL:,%SEf5T.04SCEDS_M%TC5%QI9DQIQUQM9RQXU4N7ahm@C@5af@mDP@@Dah@mah@HB@)"g87
Cb@Dal@8IJc@B<??af@0b@Hah@Hb@mPPM1ABA5DGan@H@*@@C@DA@Vah@L2@SMADb@<ak?af@mB@@D@O
RRdGah@Cb@Z_;?_@mat@mak@Aap@HXTRNQTRTUTSarb@PmU18BLap@m#0#$461$@T@L54BL5ao@D@L@@
Ac@(Hb@maf@P@m@@Paf@mc@Eaf@A@A@mAc@JPb@eaf@C@PA@,??O@0H@@4OH@Pah@DB@@Lag@Cb@D,mU
A!5PRQES_ACL1<A@>Bag@!b@Caf@mC@@P@J0TRBIEUL=EL0D3G@8Hag@DB@@Lag@L@H@A*PST!$TT14W
0@SL@@0akk?;De@HPS5MGfmeVZ6UFH)QWY-ARRD9"B@0C@>@PR4UVdm86d4A"Y/U'd$)@@EI'e/IGH'U
Ff4%&d'ARZ4UVdJ@PQ2I7d2A2Y%QGf)96Yme&e/UGeJ@mSEf5T_QTQV%4PE)3V%LWW%P&KIQUS@8TQWM
5WR=4ST)#SEf5T.e$TOUETSAmSEf5T_I5SOQ%NNU4US9RRTUTSSAahu@(ZP@Haleb@$KX@Haleb@$KX@
H@_@8)38=/WV<?NDb@g>g;9b?T99;28b?W%'/_5>b?Tg>N/:b?VEM+DH0DP<MY;G0?TPb@,O@?GAA@@0
>@<.5c@P3JBRA-(D@U$m1#DI@MT#BSD/TMTA<M)T<f+,./@?/>b@P7"R07-2:>B</8Cb@_S*E_7J+;K0
?UOb@8f+,NJLfOJL;G0?JOb@XOT#R3'#-_@_BX8>?G4PUF:PUS4%=(,BF@@RX17$"1>A<O%Cb@;C0?QN
b@DQFUCU@_SJJ;G0?>Mb@4=(L4fY;K0?:Nb@<)Y;G0'@F.??AMT%!NTV<M)<,_@?'5b@P7&2P7%-/@?W
9b@P7/_Kc?7/G+>b?7DGE@;O0?6Lb@H3#A@@TD0?CBS!Wg>g68b?Y99;g4b?+%'/_Hc?Vg>NO:b?X99;
%'b?_%'/+Y>??/Ug>>P9b?e!2#PA0?)Lb@0F$B0*Eg'JZ,2R7,22>A<_;Bb@6CE+4@9C,gAJORD@?C0b
@mYg2&)<89;1(b?dJI0>H@BXJHPFm)g@Y@&V#'+Rm)0@IA&R3',-_@_"m8>?G4P)V4*=X@@D@@S0P7,2
P7*-/@??,b@0'&-_@_Be8>?G4P)V4*=X@@D@@S0P7&2P7*-/@?;*c@JOBE@?W)b@0YPJ0)V8f*>fJKf_
JK;G0?YE.U@Hmb@m=PfJMP>0)Wm2#DA0?,Ib@m&''!JOg.F*$,9#P"JHPF@*g@Y@(V3''-_@_"m8>?G4
P)V4*=X@@D@@S0P7'2P7*-/@?'$b@0'(-_@_Be8>?G4P)V4*=X@@D@@S0P7(2P7*-/@?#"c@Aajw@T?M
@Ham@Dc@Paj@0Ic@*c@Daxb@Qc@Dc@mBc@DDb@0ec@#Bb@4Ib@0)af@$c@HBc@Hc@gc@0Ab@mFc@Xc@X
Ac@Ec@Pc@HA@@Dc@maf@8Sai@Pag@(b@D@@Maab@Aawd@GXUPXM$TT1Dacd@X@SII$TT1Dadd@mAMQER
RQESarg@e-X@H0C<B0Ac@HXTRNQTRTUTSK8K@@mb@PPd!%&dF<K@eDb@D!/@0QB@@mB/AWY.=%Y)1VY3
Y0/@DUb@PB9&m-G@A@Hb@,%K@BP05:C0=9KP@@HP@9OO?;C0<3O?>BD@@BDm<1C0=@X_>@,O@6SO@BD@
@1Cm=4KP@@$.@C(/263?>2KP@<dO?8+O?<//@A0O=7KP@4S?=BD@=63?>2KP@<dO?</O?BD@?4_/@APO
=7S/CADP/ajs@e&Kz

-- 
Lenny Glassmann                lenny@ccavax.camb.com
                               ...uunet!ccavax!lenny