//
// RedHatUpdates.vdm                                        Ch.Ziemski   19.08.2002
//


// 1.) Haupt-Liste rh72-errata.html laden
// 2.) Für jeden einzelnen Eintrag darin:
//     ...file://localhost/X:/RH7.2-upd/RHSA-2002-132.html laden
// 3.) Für jede 7.2-Datei darin:
//     Listen und prüfen, ob vorhanden


if(#90=File_Check("rh72-errata.html")){
  Buf_Switch(#90)
}else{
  if(File_Exist("rh72-errata.html"){
    File_Open("rh72-errata.html")
  }else{
    // Break_Out(EXTRA)
    return
  }
}
#98=Buf_Num
#99=Buf_Free

Reg_Empty(90)

R('a href="/errata/RH', 'a href="RH', BEGIN+ALL+NOERR+CASE)
File_Save(OK)

BoF

while(! At_EoF){
//  S('a href="|[/errata/]RH', CASE+NOERR+ERRBREAK)
  S('a href="RH', CASE+NOERR+ERRBREAK)
  S("RH")
  #90=CP
  S(/"/)
  #91=CP
  Reg_Copy_Block(91, #90, #91)  // Filename
  S(">", ADVANCE)
  #90=CP
  S("<")
  Reg_Copy_Block(92, #90, CP)  // Title
  
  Reg_Set(90, @92, APPEND)
  Reg_Set(90, ": ", APPEND)
  Reg_Set(90, @91, APPEND)
  Out_Reg(90, APPEND)
  Type_Newline(1)
  Out_Reg(CLEAR)
  
  if(File_Exist(@91)){
    Buf_Switch(#99)
    File_Open(@91)
    Call("ERRATA")
    Buf_Quit(OK)
    Buf_Switch(#98)
  }else{
    Reg_Set(90, ": NOT FOUND!!!", APPEND)
    Out_Reg(90, APPEND)
    Type_Newline(1)
    Out_Reg(CLEAR)
  }
  Out_Reg(90, APPEND)
  Type_Newline(1)
  Out_Reg(CLEAR)

}

Buf_Switch(#99)
Reg_Ins(90)

BoF

return


:ERRATA:

// Ein einzelnes Errata:
//======================

// <p><font style="color:#990000; font-family:helvetica; text-decoration:none; font-size:14pt; font-weight:bold;">Updated Apache packages fix chunked encoding issue</font></p>
// Advisory: &nbsp;RHSA-2002:103-13<br />
// <br />
// Last updated on: &nbsp;2002-06-19<br />

// Updated packages:
// Red Hat Linux 7.2 i386
// <td><a href="ftp://updates.redhat.com/7.2/en/os/i386/util-linux-2.11f-17.7.2.i386.rpm">util-linux-2.11f-17.7.2.i386.rpm</a></td>
// 
// Red Hat Linux 7.2 ia64
// SRPMs
// <p><b>Solution</b></p>
// Before applying this update


BoF

S("Advisory|{:, ID}")
Reg_Set(90, "Advisory: ", APPEND)
S("RH")
#90=CP
S("<")
Reg_Copy_Block(90, #90, CP, APPEND)

Out_Reg(90, APPEND)
Type_Newline(1)
Out_Reg(CLEAR)
 
S("|[Last ]updated on")
Reg_Set(90, "Last updated on: ", APPEND)
S("2")
#90=CP
S("<")
Reg_Copy_Block(90, #90, CP, APPEND)

Out_Reg(90, APPEND)
Type_Newline(1)
Out_Reg(CLEAR)


S("Updated packages:", NOERR)
if(!EM){
  S("Red Hat Linux 7.2 i386", NOERR)
  if(!EM){
    Line(1)
    #90=CP
    S("Red Hat Linux 7.2", NOERR)    // next item: not of interest
    if(EM){
      S("SRPMs", NOERR)
      if(EM){
        S("Before applying this update", NOERR)
        if(EM){
          Goto_Pos(EoF)
        }
      }
    }
    #91=CP  // EndOfBlock for FTP's
    Goto_Pos(#90)
    repeat(ALL){
      Search_Block("ftp://", CP, #91, NOERR+ERRBREAK)
      if(!EM){
        S(/">/, ADVANCE)
        #92=CP
        S("<")
        #93=CP
        Reg_Set(90, "  ", APPEND)
        Reg_Copy_Block(90, #92,#93, APPEND)
        Reg_Copy_Block(91, #92,#93)

        // Buf_Switch(XBUF1)
        // Buf_Empty(OK)
        // Reg_Ins(91, BEGIN)  // Filename
        // repeat(ALL){
        //   S("%", NOERR+ERRBREAK)
        //   Del_Char(1)
        //   Reg_Set(97, "0x")
        //   Reg_Copy_Block(97, CP,CP+1, APPEND+DELETE)
        //   #97=Num_Eval_Reg(97)
        //   Ins_Char(#97)
        // }
        // Reg_Copy_Block(91, 0, EoL_Pos)
        // Buf_Quit(OK)
        // //Buf_Switch(...)

        if(File_Exist(@91)){
          // Reg_Set(90, "		o.k.", APPEND)
        }else{
          Reg_Set(90, "		NOT FOUND", APPEND)
        } 
        Out_Reg(90, APPEND)
        Type_Newline(1)
        Out_Reg(CLEAR)
      }
    }
  }
}
return