Changeset 299
- Timestamp:
- 11/15/05 18:00:37 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/main.cgi
r297 r299 813 813 $i++; 814 814 } 815 # We're going to abuse $$PRIVDATA$$ to stuff in some stuff for billing. 816 $privdata .= "<input type=hidden name=billinguser value=$webvar{userid}>\n" 817 if $webvar{userid}; 815 818 $html =~ s/\$\$PRIVDATA\$\$/$privdata/g; 816 819 … … 846 849 print qq(<div class="center"><div class="heading">The IP $msg has been allocated to customer $webvar{custid}</div>). 847 850 ($webvar{alloctype} eq 'di' ? 848 qq(<div><a href="https://billing.example.com/extserv.pl?action= &custid=$webvar{custid}&ip=$msg">Add this IP to RADIUS user table</a></div>)851 qq(<div><a href="https://billing.example.com/extserv.pl?action=new_radius_user&oldcustid=$webvar{custid}&userid=$webvar{billinguser}&ip=$msg">Add this IP to RADIUS user table</a></div>) 849 852 : "</div>"); 850 853 # Notify tech@example.com
Note:
See TracChangeset
for help on using the changeset viewer.