#!/usr/local/bin/perl # list_pack.cgi # List all the files in some package require './cluster-software-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'list_title'}, ""); @servers = &list_servers(); ($s) = grep { $_->{'id'} == $in{'server'} } @servers; &remote_foreign_require($s->{'host'}, "software", "software-lib.pl"); print &ui_subheading(&text('list_files', "$in{'package'}", $s->{'desc'} ? $s->{'desc'} : $s->{'host'})); print "
$text{'list_path'} | ", "$text{'list_owner'} | ", "$text{'list_group'} | ", "$text{'list_type'} | ", "$text{'list_size'} | ", "$text{'list_status'} | ||||||
$files->{$i,'path'} -> ", "$files->{$i,'link'} | \n"; print "
| \n";
print "$files->{$i,'user'} | \n"; print "$files->{$i,'group'} | \n"; } print "$software::type_map[$ty] | \n"; if ($ty != 0) { $sz = "$sz | \n"; $err = $files->{$i,'error'}; if ($err) { $err =~ s/</g; $err =~ s/>/>/g; $err =~ s/\n/$err | \n"; } else { print "$text{'list_ok'} | \n"; } print "
\n"; &remote_finished(); &ui_print_footer("edit_pack.cgi?package=".&urlize($in{'package'})."&search=".&urlize($in{'search'}), $text{'edit_return'});