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

captive: Import new design

Browse Source 
This is the new design of the access page of the captive
portal. It is based on the Bootstrap 4 grid system and
reboot but does not use anything else from it.

It is responsive and customisable.

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Michael Tremer
2017-04-25 12:24:45 +01:00
parent 050ce75678
commit 48fb1d3b69
18 changed files with 336 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
html/cgi-bin/captive/index.cgi
View File

@@ -142,10 +142,23 @@ my $tmpl = HTML::Template->new(
$tmpl->param(REDIRECT_URL => $url);
$tmpl->param(AUTH => $settings{'AUTH'});
# Voucher
if ($settings{'AUTH'} eq "VOUCHER") {
$tmpl->param(VOUCHER => 1);
}
$tmpl->param(TITLE => $settings{'TITLE'});
$tmpl->param(ERROR => $errormessage);
$tmpl->param(TAC => &gettac());
# Some translated strings
$tmpl->param(L_ACTIVATE => $Lang::tr{'Captive ACTIVATE'});
$tmpl->param(L_GAIN_ACCESS => $Lang::tr{'Captive GAIN ACCESS'});
$tmpl->param(L_HEADING_TAC => $Lang::tr{'Captive heading tac'});
$tmpl->param(L_HEADING_VOUCHER => $Lang::tr{'Captive heading voucher'});
$tmpl->param(L_AGREE_TAC => $Lang::tr{'Captive agree tac'});
# Print header
print "Pragma: no-cache\n";
print "Cache-control: no-cache\n";
@@ -153,7 +166,7 @@ print "Connection: close\n";
print "Content-type: text/html\n\n";
# Print rendered template
print $tmpl->output;
print $tmpl->output();
sub getcgihash {
my ($hash, $params) = @_;
@@ -187,11 +200,20 @@ sub getcgihash {
return;
}
sub getagb(){
open( my $handle, "<:utf8", "/var/ipfire/captive/agb.txt" ) or die("$!");
while(<$handle>){
$_ = HTML::Entities::decode_entities($_);
print $_;
}
close( $handle );
sub gettac() {
my @tac = ();
open(my $handle, "<:utf8", "/var/ipfire/captive/agb.txt" ) or die("$!");
while(<$handle>) {
$_ = HTML::Entities::decode_entities($_);
push(@tac, $_);
}
close($handle);
my $tac = join("\n", @tac);
# Format paragraphs
$tac =~ s/\n\n/<\/p>\n<p>/g;
return $tac;
}