]>
git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blob - html/cgi-bin/upnp.cgi
5 # This code is distributed under the terms of the GPL
11 # enable only the following on debugging purpose
13 use CGI
::Carp
'fatalsToBrowser';
15 require '/var/ipfire/general-functions.pl';
16 require "${General::swroot}/lang.pl";
17 require "${General::swroot}/header.pl";
19 my %upnpsettings = ();
23 my $errormessage = "";
25 &General
::readhash
("${General::swroot}/ethernet/settings", \
%netsettings);
29 'UPnP Daemon' => 'upnpd',
32 &Header
::showhttpheaders
();
33 ############################################################################################################################
34 ############################################### Setzen von Standartwerten ##################################################
36 $upnpsettings{'DEBUGMODE'} = '3';
37 $upnpsettings{'FORWARDRULES'} = 'yes';
38 $upnpsettings{'FORWARDCHAIN'} = 'FORWARD';
39 $upnpsettings{'PREROUTINGCHAIN'} = 'PORTFW';
40 $upnpsettings{'DOWNSTREAM'} = '900000';
41 $upnpsettings{'UPSTREAM'} = '16000000';
42 $upnpsettings{'DESCRIPTION'} = 'gatedesc.xml';
43 $upnpsettings{'XML'} = '/etc/linuxigd';
44 $upnpsettings{'ENABLED'} = 'off';
45 $upnpsettings{'GREEN'} = 'on';
46 $upnpsettings{'BLUE'} = 'off';
47 ### Values that have to be initialized
48 $upnpsettings{'ACTION'} = '';
50 &General
::readhash
("${General::swroot}/upnp/settings", \
%upnpsettings);
51 &Header
::getcgihash
(\
%upnpsettings);
53 &Header
::openpage
('UPnP', 1, '');
54 &Header
::openbigbox
('100%', 'left', '', $errormessage);
56 ############################################################################################################################
57 ################################################### Speichern der Config ###################################################
59 if ($upnpsettings{'ACTION'} eq $Lang::tr
{'save'})
61 &General
::writehash
("${General::swroot}/upnp/settings", \
%upnpsettings);
63 open (FILE
, ">${General::swroot}/upnp/upnpd.conf") or die "Can't save the upnp config: $!";
68 # UPnP Config by Ipfire Project
70 debug_mode = $upnpsettings{'DEBUGMODE'}
71 insert_forward_rules = $upnpsettings{'FORWARDRULES'}
72 forward_chain_name = $upnpsettings{'FORWARDCHAIN'}
73 prerouting_chain_name = $upnpsettings{'PREROUTINGCHAIN'}
74 upstream_bitrate = $upnpsettings{'DOWNSTREAM'}
75 downstream_bitrate = $upnpsettings{'UPSTREAM'}
76 description_document_name = $upnpsettings{'DESCRIPTION'}
77 xml_document_path = $upnpsettings{'XML'}
83 elsif ($upnpsettings{'ACTION'} eq 'Start')
85 $upnpsettings{'ENABLED'} = 'on';
86 &General
::writehash
("${General::swroot}/upnp/settings", \
%upnpsettings);
87 system('/usr/local/bin/upnpctrl start');
89 elsif ($upnpsettings{'ACTION'} eq 'Stop')
91 $upnpsettings{'ENABLED'} = 'off';
92 &General
::writehash
("${General::swroot}/upnp/settings", \
%upnpsettings);
93 system('/usr/local/bin/upnpctrl stop');
95 elsif ($upnpsettings{'ACTION'} eq $Lang::tr
{'restart'})
97 &General
::writehash
("${General::swroot}/upnp/settings", \
%upnpsettings);
98 system('/usr/local/bin/upnpctrl restart');
101 &General
::readhash
("${General::swroot}/upnp/settings", \
%upnpsettings);
104 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
105 print "<class name='base'>$errormessage\n";
106 print " </class>\n";
110 $checked{'GREEN'}{'on'} = '';
111 $checked{'GREEN'}{'off'} = '';
112 $checked{'GREEN'}{"$upnpsettings{'GREEN'}"} = 'checked';
113 $checked{'BLUE'}{'on'} = '';
114 $checked{'BLUE'}{'off'} = '';
115 $checked{'BLUE'}{"$upnpsettings{'BLUE'}"} = 'checked';
117 ############################################################################################################################
118 ############################################################################################################################
120 &Header
::openbox
('100%', 'center', 'UPnP');
122 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
123 <table width='400' cellspacing='0'>
126 if ( $message ne "" ) {
127 print "<tr><td colspan='3' align='center'><font color='red'>$message</font>";
132 foreach $key (sort keys %servicenames)
135 print "<tr bgcolor='${Header::table1colour}'>\n"; }
137 print "<tr bgcolor='${Header::table2colour}'>\n"; }
138 print "<td align='left'>$key\n";
139 my $shortname = $servicenames{$key};
140 my $status = &isrunning
($shortname);
145 <tr><td><b>Alle Dienste:</b></td><td colspan='2'>
146 <input type='submit' name='ACTION' value='Start' />
147 <input type='submit' name='ACTION' value='Stop' />
148 <input type='submit' name='ACTION' value='$Lang::tr{'restart'}' />
152 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
154 <tr><td colspan='2' align='left'><b>$Lang::tr{'options'}</b>
155 <tr><td align='left'>$Lang::tr{'interfaces'}
156 <td align='left'> <td><input type='checkbox' name='GREEN' $checked{'GREEN'}{'on'} /> <font size='2' color='$Header::colourgreen'><b>$Lang::tr{'green'} - $netsettings{'GREEN_DEV'}</b></font>
159 if (&Header
::blue_used
()){
161 <tr><td align='left'> <td><input type='checkbox' name='BLUE' $checked{'BLUE'}{'on'} /> <font size='2' color='$Header::colourblue'><b>$Lang::tr{'wireless'} - $netsettings{'BLUE_DEV'}</b></font>
168 <table width='95%' cellspacing='0'>
169 <tr><td align='left'>Debug Mode:</td><td><input type='text' name='DEBUGMODE' value='$upnpsettings{'DEBUGMODE'}' size="30"></input></td></tr>
170 <tr><td align='left'>Forward Rules:</td><td><input type='text' name='FORWARDRULES' value='$upnpsettings{'FORWARDRULES'}' size="30"></input></td></tr>
171 <tr><td align='left'>Forward Chain:</td><td><input type='text' name='FORWARDCHAIN' value='$upnpsettings{'FORWARDCHAIN'}' size="30"></input></td></tr>
172 <tr><td align='left'>Prerouting Chain:</td><td><input type='text' name='PREROUTINGCHAIN' value='$upnpsettings{'PREROUTINGCHAIN'}' size="30"></input></td></tr>
173 <tr><td align='left'>Down Stream:</td><td><input type='text' name='DOWNSTREAM' value='$upnpsettings{'DOWNSTREAM'}' size="30"></input></td></tr>
174 <tr><td align='left'>Up Strean:</td><td><input type='text' name='UPSTREAM' value='$upnpsettings{'UPSTREAM'}' size="30"></input></td></tr>
175 <tr><td align='left'>Description Document:</td><td><input type='text' name='DESCRIPTION' value='$upnpsettings{'DESCRIPTION'}' size="30"></input></td></tr>
176 <tr><td align='left'>XML Document:</td><td><input type='text' name='XML' value='$upnpsettings{'XML'}' size="30"></input></td></tr>
177 <tr><td colspan='2' align='center'><input type='submit' name='ACTION' value=$Lang::tr{'save'} />
185 &Header
::closebigbox
();
186 &Header
::closepage
();
188 ############################################################################################################################
189 ############################################################################################################################
194 my $status = "<td bgcolor='${Header::colourred}'><font color='white'><b>$Lang::tr{'stopped'}</b></font></td>";
202 if (open(FILE
, "/var/run/${cmd}.pid"))
204 $pid = <FILE
>; chomp $pid;
206 if (open(FILE
, "/proc/${pid}/status"))
210 if (/^Name:\W+(.*)/) {
214 if ($testcmd =~ /$exename/)
216 $status = "<td bgcolor='${Header::colourgreen}'><font color='white'><b>$Lang::tr{'running'}</b></font></td>";