# (c) Darren Reginald Johnston, 2002-2006

#SET THIS AS YOUR CHANNELS NAME
set channame "#prevcd"

#SET THIS AS YOUR LYNX BINARY IF IT DOES NOT ALREADY WORK
set lynx "lynx"

#SET THIS AS YOUR WEB PAGE TO ACCESS
set top10PAGE http://www.vcdquality.com/last5.php


#############################
#######DO NOT EDIT BELOW#####
#############################

bind time - "*5 * * * *" checkweb
bind time - "*0 * * * *" checkweb

set lastref 0

proc checkweb {minute hour day month year} {
  global lynx toptxt lastref channame top10PAGE
  set oldref $lastref
  set top10 [open "|$lynx -preparsed -dump $top10PAGE" r]
  while { [eof $top10] != 1 } {
    set hashline [split [join [gets $top10]] {;}]
    if {[lindex [split $hashline ;] 0] > $lastref} {
      set lastref [lindex $hashline 0]
    }
    if {[lindex $hashline 0] > $oldref} {



###formating done here
puthelp "NOTICE $channame : \
\[\002VCDQuality\002\] \
New release in \002[lindex $hashline 1]\002: \
\002[lindex $hashline 2]\002 \
\002[lindex $hashline 3]\002 \
released by \002[lindex $hashline 4]\002 \
on \002[lindex $hashline 5]\002 \
"
###formating done here



    }
  }
  close $top10
}

putlog "Top10 v1.0 by Darren Johnston loaded!"

# (c) Darren Reginald Johnston, 2002-2006