webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-27 19:23:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add DDNS client for dns.lightningwirelabs.com.

Browse Source
This commit is contained in:
Michael Tremer
2013-06-12 14:36:51 +02:00
parent 7dddd54d47
commit 5a2935b1b3
4 changed files with 46 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
config/cfgroot/general-functions.pl
View File

@@ -857,13 +857,13 @@ sub FetchPublicIp {
my ($peer, $peerport) = (/^(?:[a-zA-Z ]+\:\/\/)?(?:[A-Za-z0-9\_\.\-]*?(?:\:[A-Za-z0-9\_\.\-]*?)?\@)?([a-zA-Z0-9\.\_\-]*?)(?:\:([0-9]{1,5}))?(?:\/.*?)?$/);
Net::SSLeay::set_proxy($peer,$peerport,$proxysettings{'UPSTREAM_USER'},$proxysettings{'UPSTREAM_PASSWORD'} );
}
my ($out, $response) = Net::SSLeay::get_http( 'checkip.dyndns.org',
my ($out, $response) = Net::SSLeay::get_http( 'checkip.dns.lightningwirelabs.com',
80,
"/",
Net::SSLeay::make_headers('User-Agent' => 'IPFire' )
);
if ($response =~ m%HTTP/1\.. 200 OK%) {
$out =~ /Current IP Address: (\d+.\d+.\d+.\d+)/;
$out =~ /Your IP address is: (\d+.\d+.\d+.\d+)/;
return $1;
}
return '';

3
config/rootfiles/core/70/filelists/files
View File

@@ -3,6 +3,7 @@ etc/issue
etc/rc.d/init.d/squid
usr/local/bin/openvpnctrl
etc/init.d/firewall
srv/web/ipfire/cgi-bin/ddns.cgi
usr/lib/squid/errors/tr/ERR_ACCESS_DENIED
usr/lib/squid/errors/tr/ERR_ACL_TIME_QUOTA_EXCEEDED
usr/lib/squid/errors/tr/ERR_AGENT_CONFIGURE
@@ -44,3 +45,5 @@ usr/lib/squid/errors/tr/ERR_URN_RESOLVE
usr/lib/squid/errors/tr/ERR_WRITE_ERROR
usr/lib/squid/errors/tr/ERR_ZERO_SIZE_OBJECT
usr/lib/squid/errors/tr/error-details.txt
usr/local/bin/setddns.pl
var/ipfire/general-functions.pl