Add CGI args parser

diff --git a/software/cgi_args.pl b/software/cgi_args.pl
new file mode 100644 (file)
index 0000000..700f39f
--- /dev/null
+++ b/software/cgi_args.pl
@@ -0,0 +1,25 @@
+
+do 'software-lib.pl';
+
+sub cgi_args
+{
+my ($cgi) = @_;
+if ($cgi eq 'search.cgi') {
+       # Example search
+       return 'search=net';
+       }
+elsif ($cgi eq 'edit_pack.cgi' || $cgi eq 'list_pack.cgi') {
+       # Package for /bin/ls
+       local %file;
+       &installed_file('/bin/ls');
+       my @pkgs = split(/\s+/, $file{'packages'});
+       my @vers = split(/\s+/, $file{'versions'});
+       return 'package='.&urlize($pkgs[0]).
+              '&version='.&urlize($vers[0]);
+       }
+elsif ($cgi eq 'file_info.cgi') {
+       # Info on file /bin/ls
+       return 'file=/bin/ls';
+       }
+return undef;
+}