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


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


if(#90=File_Check("rh73-errata.html")){
  Buf_Switch(#90)
}else{
  if(File_Exist("rh73-errata.html"){
    File_Open("rh73-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)

  
  if(File_Exist(@91)){
    Out_Reg(90, APPEND)
    Type_Newline(1)
    Out_Reg(CLEAR)

    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:

// Achtung: Format hat sich teilweise verändert! Noch anpassen!


// 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.3 i386
// <td><a href="ftp://updates.redhat.com/7.3/en/os/i386/util-linux-2.11f-17.7.3.i386.rpm">util-linux-2.11f-17.7.3.i386.rpm</a></td>
// 
// Red Hat Linux 7.3 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.3", NOERR)
  if(!EM){
    Line(1)
    #90=CP
    S("Red Hat Linux |D.|D", NOERR)    // next item: not of interest
    if(EM){
//    S("SRPMs", NOERR)
//    if(EM){
        S("Before applying this update", NOERR)
        if(EM){
          EoF
        }
//    }
    }
    #91=CP  // EndOfBlock for FTP's
    Goto_Pos(#90)
    repeat(ALL){
      Search_Block("<td>|*rpm<br />", CP, #91, NOERR+ERRBREAK)
      if(!EM){
        Char(4)
        #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{
          Out_Reg(90, APPEND)
          Type_Char(32, COUNT, 65-Reg_Size(91))
          Out_Reg(CLEAR)
         
          Line(1)
          Search_Block("File outdated by:", BoL_Pos, EoL_Pos, NOERR)
          if (EM) {
            Reg_Set(90, "NOT FOUND", APPEND)
          } else {
            S(/">/)
            #104=CP
            S("/", REVERSE+ADVANCE)
            Reg_Set(90, "OUTDATED BY: ", APPEND)
            RCB(105, CP, #104) 
            RS(90, @105, APPEND)
            if( ! File_Exist(@105)){
              RS(90, "  NOT FOUND", APPEND)
            }
          }
        } 
        Out_Reg(90, APPEND)
        Type_Newline(1)
        Out_Reg(CLEAR)
      }
    }
  }
}
return