Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
LICENSE	34.32 KB	-rw-r--r--
README.md	910 B	-rw-r--r--
cgi_args.pl	299 B	-rw-r--r--
config	8 B	-rw-r--r--
config.info	31 B	-rw-r--r--
delete.cgi	1.21 KB	-rwxr-xr-x
deletes.cgi	1.07 KB	-rwxr-xr-x
index.cgi	2.72 KB	-rw-r--r--
install-type	4 B	-rw-r--r--
install.cgi	788 B	-rwxr-xr-x
iview.cgi	930 B	-rwxr-xr-x
log_parser.pl	588 B	-rw-r--r--
module.info	27 B	-rw-r--r--
ruby-gems-lib.pl	4.46 KB	-rw-r--r--
view.cgi	1.44 KB	-rwxr-xr-x

Code Editor : index.cgi

#!/usr/bin/perl
# Show a list of installed Ruby modules, and a form to add one
use strict;
use warnings;
our (%text,  %in);
our $module_name;

require './ruby-gems-lib.pl';
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
&ReadParse();

# Check for gems
my $err = &check_gems();
if ($err) {
	&ui_print_endpage(
		&text('index_egems', $err, "../config.cgi?$module_name"));
	}

# Show installed
my @tds;
print &ui_subheading($text{'index_mods'});
my @mods = &list_installed_gems_modules();
if (@mods) {
	print &ui_form_start("deletes.cgi", "post");
	my @links = ( &select_all_link("d"),
		 &select_invert_link("d") );
	@tds = ( "width=5" );
	print &ui_links_row(\@links);
	print &ui_columns_start([ "", $text{'index_name'},
				 $text{'index_versions'},
				 $text{'index_desc'} ]);
	foreach my $m (sort { lc($a->{'name'}) cmp lc($b->{'name'}) } @mods) {
		my @dl = split(/\n/, $m->{'desc'});
		my @vers = map { "<a href='view.cgi?name=".&urlize($m->{'name'}).
			 "&version=$_'>$_</a>" }
			 @{$m->{'versions'}};
		print &ui_checked_columns_row([
		 &html_escape($m->{'name'}),
		 join("&nbsp;|&nbsp;", @vers),
		 $dl[0] ], \@tds,
		 "d", $m->{'name'});
		}
	print &ui_columns_end();
	print &ui_links_row(\@links);
	print &ui_form_end([ [ "delete", $text{'index_delete'} ] ]);
	}
else {
	print "$text{'index_none'}\n";
	}

# Show install form
print &ui_subheading($text{'index_header'});

# Since there are so many, show a search form
print "<a name=search>\n";
print &ui_form_start("index.cgi#search", "post");
print "$text{'index_search'}\n";
print &ui_textbox("search", $in{'search'}, 30),"\n";
print &ui_submit($text{'index_sok'});
print &ui_form_end()," \n";

if (defined($in{'search'})) {
	my @avail = &list_available_gems_modules();
	@avail = grep { $_->{'name'} =~ /\Q$in{'search'}\E/i ||
			$_->{'desc'} =~ /\Q$in{'search'}\E/i } @avail;
	if (@avail) {
		if ($in{'search'}) {
			print &text('index_results',
			 "<tt>".&html_escape($in{'search'})."</tt>")," \n";
			}
		print &ui_form_start("install.cgi", "post");
		print &ui_columns_start([ "", $text{'index_name'},
					 $text{'index_version'},
					 $text{'index_desc'} ]);
		foreach my $m (sort { lc($a->{'name'}) cmp lc($b->{'name'}) }
				 @avail) {
			my @dl = split(/\n/, $m->{'desc'});
			print &ui_radio_columns_row([
				"<a href='iview.cgi?name=".
				 &urlize($m->{'name'})."'>".
				"$m->{'name'}</a>",
				$m->{'versions'}->[0],
				$dl[0] || " " ], \@tds,
				"mod", $m->{'name'}."/".$m->{'versions'}->[0]);
			}
		print &ui_columns_end();
		print &ui_form_end([ [ "install", $text{'index_ok'} ] ]);
		}
	else {
		print &text('index_noresults',
			 "<tt>".&html_escape($in{'search'})."</tt>"),"\n";
		}
	}

&ui_print_footer("/", $text{'index'});

${this.title}

Code Editor : index.cgi