"; system('/usr/bin/uptime'); print "
\n"; &Header::closebox(); &Header::openbox('100%', 'left', $Lang::tr{'quick control'}); # read in the profile names into @profilenames. my $c; my $maxprofiles = 5; my @profilenames = (); for ($c = 1; $c <= $maxprofiles; $c++) { my %temppppsettings = (); $temppppsettings{'PROFILENAME'} = ''; &General::readhash("${General::swroot}/ppp/settings-$c", \%temppppsettings); $profilenames[$c] = $temppppsettings{'PROFILENAME'}; } my %selected; for ($c = 1; $c <= $maxprofiles; $c++) { $selected{'PROFILE'}{$c} = ''; } $selected{'PROFILE'}{$pppsettings{'PROFILE'}} = "selected='selected'"; print <