1#!/usr/bin/perl -w
2#
3# $Id: listRepos.pl 192 2007-05-14 14:42:49Z rdempsey $
4#
5
6use File::Basename;
7
8$reporoot = '/Calpont/repos/genii/*';
9
10$opt_a = 0;
11if (defined($ENV{'QUERY_STRING'}))
12{
13	$opt_a = 1 if ($ENV{'QUERY_STRING'} eq "All");
14}
15
16sub findRepos
17{
18	my ($root) = @_;
19
20	my @repolist = ();
21
22	my @repodirs = glob($root);
23
24	my $dir;
25
26	for $dir (@repodirs)
27	{
28		$dir = basename($dir);
29
30		if ($opt_a == 0)
31		{
32			next if ($dir eq "net-snmp");
33			# deprecated projects
34			next if ($dir eq "altera");
35			next if ($dir eq "diskmgr");
36			next if ($dir eq "emulator");
37			next if ($dir eq "message");
38			next if ($dir eq "sqlengine");
39		}
40		next if ($dir eq "demo");
41		next if ($dir eq "doc");
42
43		push(@repolist, $dir);
44	}
45
46	return @repolist;
47}
48
49@repos = findRepos($reporoot);
50
51print 'content-type: text/plain', "\r\n";
52print "\r\n";
53
54foreach $repo (@repos)
55{
56	print $repo, "\r\n";
57}
58
59