diff options
| -rw-r--r-- | SiteSummary.pm | 26 |
1 files changed, 9 insertions, 17 deletions
diff --git a/SiteSummary.pm b/SiteSummary.pm index 1469f5d..5ed7541 100644 --- a/SiteSummary.pm +++ b/SiteSummary.pm @@ -89,23 +89,15 @@ sub get_debian_edu_ver { print STDERR "error: Missing $debian_edu_config file.\n"; return undef; } - my $profiles = "Main-Server Workstation Thin-Client-Server Standalone"; - my @profile = split(/ /, $profiles); - open(FILE, $debian_edu_config) or die "$!: $debian_edu_config\nDied"; - while ( my @config = <FILE> ) { - if ( "@config" =~ "$profile[0]" ) { - return $profile[0]; - }elsif ( "@config" =~ "$profile[1]" ) { - return $profile[1]; - }elsif ( "@config" =~ "$profile[2]" ) { - return $profile[2]; - }elsif ( "@config" =~ "$profile[3]" ) { - return $profile[3]; - }else{ - print STDERR "error: Can't determine debian-edu profile.\n"; - return undef; - } - } + if (open (FILE, $debian_edu_config)) { + while (<FILE>) { + chomp; + s/\#.+$//; + next if not (/PROFILE/); + s/^"PROFILE=//; + return $_; + } + } close(FILE); } |