webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-09 18:45:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add "addon services" to webinterface

Browse Source 
git-svn-id: http://svn.ipfire.org/svn/ipfire/branches/2.1/trunk@1230 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
arne_f
2008-02-23 17:49:11 +00:00
parent 9fb6a10b7d
commit 33cb80edcf
4 changed files with 199 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
config/menu/EX-addonsvc.menu Normal file
View File

@@ -0,0 +1,5 @@
$subipfire->{'11.addonsvc'} = {'caption' => 'Addon Services',
'uri' => '/cgi-bin/addonsvc.cgi',
'title' => 'Addon Services',
'enabled' => 1,
};

112
html/cgi-bin/addonsvc.cgi Normal file
View File

@@ -0,0 +1,112 @@
#!/usr/bin/perl
###############################################################################
# #
# IPFire.org - A linux based firewall #
# Copyright (C) 2007 Michael Tremer & Christian Schmidt #
# #
# This program is free software: you can redistribute it and/or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation, either version 3 of the License, or #
# (at your option) any later version. #
# #
# This program is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License for more details. #
# #
# You should have received a copy of the GNU General Public License #
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
# #
###############################################################################
use strict;
# enable only the following on debugging purpose
#use warnings;
#use CGI::Carp 'fatalsToBrowser';
require '/var/ipfire/general-functions.pl';
require "${General::swroot}/lang.pl";
require "${General::swroot}/header.pl";
#workaround to suppress a warning when a variable is used only once
my @dummy = ( ${Header::colourred} );
undef (@dummy);
my %color = ();
my %mainsettings = ();
&General::readhash("${General::swroot}/main/settings", \%mainsettings);
&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
my %cgiparams=();
&Header::showhttpheaders();
&Header::getcgihash(\%cgiparams);
&Header::openpage($Lang::tr{'status information'}, 1, '');
&Header::openbigbox('100%', 'left');
&Header::openbox('100%', 'left', 'Addon - Services');
my $paramstr=$ENV{QUERY_STRING};
my @param=split(/!/, $paramstr);
if ($param[1] ne '') {
my $temp = `/usr/local/bin/addonctrl @param[0] @param[1]`;
}
print <<END
<div align='center'>
<table width='90%' cellspacing='1' border='0'>
<tr>
<td align='left'><b>Addon</b></td>
<td align='center' colspan=3><b>Bootconfiguration</b></td>
<td align='center' colspan=2><b>Manual</b></td>
<td align='left' width='50%'><b>Status</b></td>
</tr>
END
;
# 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)
{
chomp($_);
print "<tr>";
print "<td align='left'>$_</td> ";
my $status = isautorun($_);
print "$status ";
print "<td align='center'><A HREF=addonsvc.cgi?$_!enable>enable</A></td> ";
print "<td align='center'><A HREF=addonsvc.cgi?$_!disable>disable</A></td> ";
print "<td align='center'><A HREF=addonsvc.cgi?$_!start>start</A></td> ";
print "<td align='center'><A HREF=addonsvc.cgi?$_!stop>stop</A></td> ";
my $status = `/usr/local/bin/addonctrl $_ status`;
$status =~ s/\\[[0-1]\;[0-9]+m//g;
chomp($status);
print "<td align='left'>$status</td> ";
print "</tr>";
}
}
print "</table></div>\n";
&Header::closebox();
&Header::closebigbox();
&Header::closepage();
sub isautorun
{
my $cmd = $_[0];
my $status = "<td align='center' bgcolor='${Header::colourred}'><font color='white'><b>Aus</b></font></td>";
my $init = `find /etc/rc.d/rc3.d/S??${cmd}`;
chomp ($init);
if ($init ne '') {
$status = "<td align='center' bgcolor='${Header::colourgreen}'><font color='white'><b>Ein</b></font></td>";
}
return $status;
}

5
src/misc-progs/Makefile
View File

@@ -31,7 +31,7 @@ SUID_PROGS = setdmzholes setportfw setxtaccess \
logwatch openvpnctrl outgoingfwctrl \
wirelessctrl getipstat qosctrl launch-ether-wake \
redctrl syslogdctrl extrahdctrl sambactrl upnpctrl tripwirectrl \
smartctrl clamavctrl pakfire mpfirectrl
smartctrl clamavctrl addonctrl pakfire mpfirectrl
install : all
install -m 755 $(PROGS) /usr/local/bin
@@ -135,5 +135,8 @@ mpfirectrl: mpfirectrl.c setuid.o ../install+setup/libsmooth/varval.o
backupctrl: backupctrl.c setuid.o ../install+setup/libsmooth/varval.o
$(COMPILE) -I../install+setup/libsmooth/ backupctrl.c setuid.o ../install+setup/libsmooth/varval.o -o $@
addonctrl: addonctrl.c setuid.o ../install+setup/libsmooth/varval.o
$(COMPILE) -I../install+setup/libsmooth/ addonctrl.c setuid.o ../install+setup/libsmooth/varval.o -o $@
syslogdctrl: syslogdctrl.c setuid.o ../install+setup/libsmooth/varval.o
$(COMPILE) -I../install+setup/libsmooth/ syslogdctrl.c setuid.o ../install+setup/libsmooth/varval.o -o $@

78
src/misc-progs/addonctrl.c Normal file
View File

@@ -0,0 +1,78 @@
/* This file is part of the IPFire Firewall.
*
* This program is distributed under the terms of the GNU General Public
* Licence. See the file COPYING for details.
*
*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <fcntl.h>
#include "setuid.h"
#define BUFFER_SIZE 1024
char command[BUFFER_SIZE];
int main(int argc, char *argv[]) {
if (!(initsetuid()))
exit(1);
if (argc < 3) {
fprintf(stderr, "\nMissing arguments.\n\naddonctrl addon (start|stop|restart|reload|enable|disable)\n\n");
exit(1);
}
if ( strlen(argv[1])>32 ) {
fprintf(stderr, "\nString to large.\n\naddonctrl addon (start|stop|restart|reload|enable|disable)\n\n");
exit(1);
}
if ( strchr(argv[1],'/') || strchr(argv[1],'$') || strchr(argv[1],'[') || strchr(argv[1],'{') ) {
fprintf(stderr, "\nIllegal Char found.\n\naddonctrl addon (start|stop|restart|reload|enable|disable)\n\n");
exit(1);
}
sprintf(command, "/opt/pakfire/db/installed/meta-%s", argv[1]);
FILE *fp = fopen(command,"r");
if ( fp ) {
fclose(fp);
} else {
fprintf(stderr, "\nAddon '%s' not found.\n\naddonctrl addon (start|stop|restart|reload|status|enable|disable)\n\n", argv[1]);
exit(1);
}
if (strcmp(argv[2], "start") == 0) {
sprintf(command,"/etc/rc.d/init.d/%s start", argv[1]);
safe_system(command);
} else if (strcmp(argv[2], "stop") == 0) {
sprintf(command,"/etc/rc.d/init.d/%s stop", argv[1]);
safe_system(command);
} else if (strcmp(argv[2], "restart") == 0) {
sprintf(command,"/etc/rc.d/init.d/%s restart", argv[1]);
safe_system(command);
} else if (strcmp(argv[2], "reload") == 0) {
sprintf(command,"/etc/rc.d/init.d/%s reload", argv[1]);
safe_system(command);
} else if (strcmp(argv[2], "status") == 0) {
sprintf(command,"/etc/rc.d/init.d/%s status", argv[1]);
safe_system(command);
} else if (strcmp(argv[2], "enable") == 0) {
sprintf(command,"mv -f /etc/rc.d/rc3.d/off/S??%s /etc/rc.d/rc3.d" , argv[1]);
safe_system(command);
} else if (strcmp(argv[2], "disable") == 0) {
sprintf(command,"mkdir -p /etc/rc.d/rc3.d/off");
safe_system(command);
sprintf(command,"mv -f /etc/rc.d/rc3.d/S??%s /etc/rc.d/rc3.d/off" , argv[1]);
safe_system(command);
} else {
fprintf(stderr, "\nBad argument given.\n\naddonctrl addon (start|stop|restart|reload|enable|disable)\n\n");
exit(1);
}
return 0;
}