#!/usr/local/bin/perl # list_pack.cgi # List all the files in some package require './software-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'list_title'}, "", "list_pack"); print &ui_subheading(&text('list_files', "$in{'package'}")); print &ui_columns_start([ $text{'list_path'}, $text{'list_owner'}, $text{'list_group'}, $text{'list_type'}, $text{'list_size'}, $text{'list_status'} ], 100); $n = &check_files($in{'package'}, $in{'version'}); @tds = ( "valign=top", "valign=top", "valign=top", "valign=top", "valign=top", "valign=top" ); for($i=0; $i<$n; $i++) { $sz = $files{$i,'size'}; $ty = $files{$i,'type'}; local @cols; $ls = ""; $le = ""; if ($ty == 3 || $ty == 4) { # Hard or soft link push(@cols, $ls.&html_escape($files{$i,'path'}). " -> ".&html_escape($files{$i,'link'}).$le); push(@cols, "", ""); } else { $table = "
$ls". &html_escape($files{$i,'path'}). "$le | \n"; if ($ty == 0 || $ty == 5) { $table .= "$text{'list_view'}"; } $table .= " |