Index: bin/testenv
===================================================================
RCS file: /cvsroot/twiki/twiki/bin/testenv,v
retrieving revision 1.56
diff -r1.56 testenv
354c354,358
<     print "OK, $mod.pm found (TWiki version: <b>$mod_version</b>)";
---
> 
>     my $mod_distributionVersion = eval '$TWiki::distributionVersion';
>     $mod_distributionVersion ||= 'unknown';
> 
>     print "OK, $mod.pm found (TWiki version: <b>$mod_version</b> - $mod_distributionVersion distribution)";
366d369
< 
865a869,889
> 
> #show the global TWiki preferences (will need to do more work to show the preferences that are valid for a particular topic with a particular user)
> 	if ($twikiFound) {
> 	    my $thePathInfo = $query->path_info(); 
> 	    my $theRemoteUser = $query->remote_user();
>     	my $theTopic = $query->param( 'topic' );
> 	    my $theUrl = $query->url;
> 
>     	my( $topic ) = 
> 		&TWiki::initialize( $thePathInfo, $theRemoteUser, $theTopic, $theUrl, $query );
> 
> 		my (@keys) = TWiki::Prefs::getAllKeys();
> 		my (@preferences) = TWiki::Prefs::getAllPreferences();
> 
> 		print "<tr><td><b>global TWiki Preferences</b></td></tr>\n";
> 
>     	my $x;
>     	for( $x = 0; $x < @preferences; $x++ ) {
>     	   print "<tr><th></th><td>$keys[$x]</td><td>$preferences[$x]</td></tr>\n";
>     	}
> 	}
Index: lib/TWiki.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki.pm,v
retrieving revision 1.253
diff -r1.253 TWiki.pm
65c65
<         $attachAsciiPath $scriptSuffix $wikiversion
---
>         $attachAsciiPath $scriptSuffix $wikiversion $distributionVersion
120a121,122
> # TWiki distributionVersion
> $distributionVersion = "TWiki.org Beta";
2045a2048
>     $_[0] =~ s/%WIKIDISTRIBUTIONVERSION%/$distributionVersion/g;
Index: lib/TWiki/Prefs.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki/Prefs.pm,v
retrieving revision 1.17
diff -r1.17 Prefs.pm
280a281,291
> # get the global keys and preferences for testenv
> sub getAllPreferences
> {
>     return (@prefsValues);
> }
> sub getAllKeys
> {
>     return @prefsKeys;
> }
> 
> # =========================