#!/mod/bin/jimsh

package require cgi
source /mod/webif/lib/setup
require settings.class pkg.class altrow

if {[[settings] pkgdev]} { set filter 0 } else { set filter 1 }

puts "Content-Type: text/html"
puts "Pragma: no-cache"
puts "Expires: Thu, 01 Jan 1970 00:00:00 GMT"
puts ""

cgi_input
#cgi_dump
if {![dict exists $_cgi type]} { set _cgi(type) avail }

proc pkgrow {pkg} {
	set name [$pkg get name]
	altrow "pkg=\"$name\""
	puts "<td nowrap>$name"
	if {$::type eq "inst"} {
		puts "<br><a href=# class=depends>&nbsp;&nbsp;
		    <img class=va border=0
		    src=/images/421_1_00_CH_Title_2R_Arrow.png height=14>
		    <span class=\"va footnote\">Info</span></a>"
	}
	puts "</td>"

	if {$::type eq "avail"} {
		puts "<td nowrap>[$pkg get latest]</td>"
	} else {
		puts "<td nowrap>[$pkg get installed]</td>"
	}

	if {$::type eq "upgr"} {
		puts "<td nowrap>[$pkg get latest]</td>"
	}

	if {[dict exists $::pkgmeta $name]} {
		puts "<td>$::pkgmeta($name)</td>"
	} else {
		puts "<td>[$pkg get descr]</td>"
	}

	if {![$pkg is installed]} {
		set type Install
	} elseif {$::type eq "upgr" && [$pkg is upgradable]} {
		set type Upgrade
	} else {
		set type Remove
	}

	puts "<td align=center><small><button id=\"$name\"
	    action=[string tolower $type]
	    class=\"va [string tolower $type]\">$type</button></small></td>"

	puts "</tr>"
}

pkg loadmeta

set type $_cgi(type)

set pkgs [pkg $type]

if {[llength $pkgs] > 0} {
	puts "<table><tr><th>Package</th>"

	if {$type eq "avail"} {
		puts "<th>Available</th>"
	} else {
		puts "<th>Installed</th>"
	}

	if {$type eq "upgr"} {
		puts "<th>Avail</th>"
	}

	puts "
		<th>Description</th>
		<th>&nbsp;&nbsp;Action&nbsp;&nbsp;</th>
		</tr>
	"

	foreach pkg $pkgs {
		if {$type ne "upgr" && $filter && \
		    ![dict exists $::pkgmeta $pkg]} { continue }
		pkgrow [pkg load $pkg]
	}
	puts "</table>"
	if {$filter} {
		puts "<font class=footnote>This is a filtered package list. To show all packages, enable the <i>Show development and advanced packages</i> in the settings screen.</font>"
	}
} else {
	puts "<i>No packages "
	switch $type {
		inst { puts "are installed." }
		upgr { puts "are available for upgrade; try updating the package list from the Internet using the button above." }
		avail { puts "are available for installation." }
	}
	puts "</i>"
}