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