Woofy

comic "Penny Arcade"
start_at "http://www.penny-arcade.com/comic/1998/11/18"
 
for page in visit("""<a class="btn btnNext" href="(?<content>[^"]*)" title="Next">Next</a>"""):
    download("""<div id="comicFrame"><a href="[^"]*" title="Next"><img src="(?<content>[^"]*)" alt="[^"]*" />""")
 
    cartoon_title = match("""<meta property="og:title" content="\[PA Comic\] (?<content>[^"]*)" />""") as (string)
    if cartoon_title != null:
        warn("{0} ~TITLE ~{1}" % (page, cartoon_title[0]))
 
# Comments appear in the log file with the title of each cartoon.