65 |
+ my $Extinterface = $ddclient{'Extinterface'}|| $ExternalInterface{'Name'}|| ''; |
+ my $Extinterface = $ddclient{'Extinterface'}|| $ExternalInterface{'Name'}|| ''; |
66 |
+ my $cmd = $ddclient{'cmd'} || '/sbin/e-smith/db configuration getprop ExternalInterface IPAddress'; |
+ my $cmd = $ddclient{'cmd'} || '/sbin/e-smith/db configuration getprop ExternalInterface IPAddress'; |
67 |
+ my $ForceIP = $ddclient{'ForceIP'} || $ExternalInterface{'IPAddress'} || $ExternalIP || ''; |
+ my $ForceIP = $ddclient{'ForceIP'} || $ExternalInterface{'IPAddress'} || $ExternalIP || ''; |
68 |
+ |
+ $OUT .= "\n"; |
69 |
+ if ( $method eq 'smeIF' ) { |
+ if ( $method eq 'smeIF' ) { |
70 |
+ # we use SME db to get the external interface NAME : ppp0, eth1, tap0... |
+ # we use SME db to get the external interface NAME : ppp0, eth1, tap0... |
71 |
+ $Extinterface = $ExternalInterface{'Name'} ||$Extinterface; |
+ $Extinterface = $ExternalInterface{'Name'} ||$Extinterface; |
164 |
my $urlcheckip=$ddretrieve->prop('urlcheckip')|| 'checkip.dyndns.org'; |
my $urlcheckip=$ddretrieve->prop('urlcheckip')|| 'checkip.dyndns.org'; |
165 |
my $ssl=$ddretrieve->prop('SSL')|| 'yes'; |
my $ssl=$ddretrieve->prop('SSL')|| 'yes'; |
166 |
+ my $method=$ddretrieve->prop('method')||'web'; |
+ my $method=$ddretrieve->prop('method')||'web'; |
167 |
+ my $Extinterface=$ddretrieve->prop('Extinterface')||$ExtIF->prop('Name')||'eth1'; |
+ my $Extinterface=$ddretrieve->prop('Extinterface')||''; |
168 |
+ my $cmd=$ddretrieve->prop('cmd')||''; |
+ my $cmd=$ddretrieve->prop('cmd')||''; |
169 |
+ my $forceIP=$ddretrieve->prop('ForceIP')||$ExtIF->prop('IPAddress')||''; |
+ my $forceIP=$ddretrieve->prop('ForceIP')||''; |
170 |
|
|
171 |
print $q->startform (-method => 'POST', |
print $q->startform (-method => 'POST', |
172 |
-action => $q->url (-absolute => 1)); |
-action => $q->url (-absolute => 1)); |