-my $lines=0; # Used to count the outputlines to make different bgcolor
-
-# Generate list of installed addon pak's
-my @pak = `find /opt/pakfire/db/installed/meta-* | cut -d"-" -f2`;
-foreach (@pak)
-{
- chomp($_);
-
- # Check which of the paks are services
- my @svc = `find /etc/init.d/$_ | cut -d"/" -f4`;
- foreach (@svc)
- {
- # blacklist some packages
- #
- # alsa has trouble with the volume saving and was not really stopped
- #
- chomp($_);
- if ($_ ne "alsa")
- {
- $lines++;
- if ($lines % 2)
- {
- print "<tr bgcolor='$color{'color22'}'>";
- }
- else
- {
- print "<tr bgcolor='$color{'color20'}'>";
+ my $lines=0; # Used to count the outputlines to make different bgcolor
+
+ # Generate list of installed addon pak's
+ my @pak = `find /opt/pakfire/db/installed/meta-* 2>/dev/null | cut -d"-" -f2`;
+ foreach (@pak){
+ chomp($_);
+
+ # Check which of the paks are services
+ my @svc = `find /etc/init.d/$_ 2>/dev/null | cut -d"/" -f4`;
+ foreach (@svc){
+ # blacklist some packages
+ #
+ # alsa has trouble with the volume saving and was not really stopped
+ #
+ chomp($_);
+ if ($_ ne "alsa"){
+ $lines++;
+ if ($lines % 2){
+ print "<tr bgcolor='$color{'color22'}'>";
+ }else{
+ print "<tr bgcolor='$color{'color20'}'>";
+ }
+ print "<td align='left'>$_</td> ";
+ my $status = isautorun($_);
+ print "$status ";
+ print "<td align='center'><A HREF=services.cgi?$_!start><img alt='$Lang::tr{'start'}' title='$Lang::tr{'start'}' src='/images/go-up.png' border='0' /></A></td>";
+ print "<td align='center'><A HREF=services.cgi?$_!stop><img alt='$Lang::tr{'stop'}' title='$Lang::tr{'stop'}' src='/images/go-down.png' border='0' /></A></td> ";
+ my $status = &isrunningaddon($_);
+ $status =~ s/\\e\[[0-1]\;[0-9]+m//g;
+
+ chomp($status);
+ print "$status";
+ print "</tr>";
+ }