+# hash of installed module versions from our mini-database, key (m_foobar) to version (00abacca..).
+my %mod_versions;
+
+# useless helper stub
+sub getmodversion {
+ my ($file) = @_;
+ return $mod_versions{$file};
+}
+
+# read in installed versions
+if (-e '.modulemanager')
+{
+ open SRC, '.modulemanager' or die ".modulemanager exists but i can't read it: $!";
+ while (<SRC>)
+ {
+ s/\n//;
+ (my $mod, my $ver) = split(/ /, $_);
+ $mod_versions{$mod} = $ver;
+ }
+ close SRC;
+}
+
+# read in external URL sources