Check if a port has an archive available

has_archive.tcl

#! /usr/bin/env port-tclsh

package require macports
mportinit

array set portinfo [lindex [mportlookup [lindex $argv 0]] 1]
set mport [mportopen $portinfo(porturl) [list subport $portinfo(name)] ""]
set available [[ditem_key $mport workername] eval [list _archive_available]]
if {$available} {
    set status has
} else {
    set status "does not have"
}
puts "$portinfo(name) $status an archive available"