ouch/inspircd
2
0
Fork 0
mirror of https://github.com/inspircd/inspircd.git synced 2025-03-09 10:39:02 -04:00
Code Issues Packages Projects Releases Wiki Activity

Amend modulemanager to use {read,write}_config_file.

Browse Source
This commit is contained in:
Peter Powell 2017-03-24 21:48:17 +00:00
parent c185edf71c
commit baee503407
1 changed files with 3 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
modulemanager
View File

@ -3,6 +3,7 @@
#
# InspIRCd -- Internet Relay Chat Daemon
#
# Copyright (C) 2012-2017 Peter Powell <petpow@saberuk.com>
# Copyright (C) 2008-2009 Robin Burchell <robin+git@viroteck.net>
#
# This file is part of InspIRCd. InspIRCd is free software: you can
@ -102,7 +103,7 @@ sub parse_url {
}
# hash of installed module versions from our mini-database, key (m_foobar) to version (00abacca..).
my %mod_versions;
my %mod_versions = read_config_file '.modulemanager';
# useless helper stub
sub getmodversion {
@ -110,19 +111,6 @@ sub getmodversion {
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
open SRC, 'sources.list' or die "Could not open sources.list: $!";
while (<SRC>) {
@ -359,11 +347,6 @@ for my $mod (sort keys %todo) {
}
# write database of installed versions
open SRC, '>.modulemanager' or die "can't write installed versions to .modulemanager, won't be able to track upgrades properly: $!";
foreach my $key (keys %mod_versions)
{
print SRC "$key $mod_versions{$key}\n";
}
close SRC;
write_config_file '.modulemanager', %mod_versions;
print "Finished!\n";