Woofy

comic "Bug Martini"
start_at "http://www.bugmartini.com/comic/letter/"
 
for page in visit("""<a href="(?<content>[^"]*?)" class="comic-nav-base comic-nav-next">"""):
    download("""<meta property="og:image" content="(?<content>[^"]*?)resize=[^"]*?" />""")
 
    cartoon_title = match("""<meta property="og:title" content="(?<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.