software/cgi_args.pl

   1
   2 do 'software-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'search.cgi') {
   8         # Example search
   9         return 'search=ssh';
  10         }
  11 elsif ($cgi eq 'edit_pack.cgi' || $cgi eq 'list_pack.cgi') {
  12         # Package for /bin/ls
  13         local %file;
  14         &installed_file('/bin/ls');
  15         my @pkgs = split(/\s+/, $file{'packages'});
  16         my @vers = split(/\s+/, $file{'versions'});
  17         return 'package='.&urlize($pkgs[0]).
  18                '&version='.&urlize($vers[0]);
  19         }
  20 elsif ($cgi eq 'file_info.cgi') {
  21         # Info on file /bin/ls
  22         return 'file=/bin/ls';
  23         }
  24 return undef;
  25 }