Captive-Portal

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

          bin/test-server.pl
          )
    ],

    requires => {
        'parent'      => 0,
        'Role::Basic' => 0,
        'Template'    => 0,
        'JSON'        => 0,
        'CGI::Fast'   => 0,
        'CGI::Cookie' => 0,

        'Authen::Simple' => 0,
        'Scalar::Util'   => 0,
        'Time::HiRes'    => 0,
        'Try::Tiny'      => 0,
        'Spawn::Safe'    => 0,

        'Log::Log4perl'         => 0,
        'Log::Dispatch::Syslog' => 0,

META.json  view on Meta::CPAN

      },
      "runtime" : {
         "recommends" : {
            "Authen::Simple::RADIUS" : 0,
            "HTTP::Server::Simple::CGI" : 0,
            "HTTP::Server::Simple::Static" : 0,
            "Test::WWW::Mechanize::CGI" : 0
         },
         "requires" : {
            "Authen::Simple" : 0,
            "CGI::Cookie" : 0,
            "CGI::Fast" : 0,
            "JSON" : 0,
            "Log::Dispatch::Syslog" : 0,
            "Log::Log4perl" : 0,
            "Role::Basic" : 0,
            "Scalar::Util" : 0,
            "Spawn::Safe" : 0,
            "Template" : 0,
            "Time::HiRes" : 0,
            "Try::Tiny" : 0,

META.yml  view on Meta::CPAN

  Captive::Portal::TestServer:
    file: lib/Captive/Portal/TestServer.pm
    version: 4.10
recommends:
  Authen::Simple::RADIUS: 0
  HTTP::Server::Simple::CGI: 0
  HTTP::Server::Simple::Static: 0
  Test::WWW::Mechanize::CGI: 0
requires:
  Authen::Simple: 0
  CGI::Cookie: 0
  CGI::Fast: 0
  JSON: 0
  Log::Dispatch::Syslog: 0
  Log::Log4perl: 0
  Role::Basic: 0
  Scalar::Util: 0
  Spawn::Safe: 0
  Template: 0
  Time::HiRes: 0
  Try::Tiny: 0

etc/config.pl  view on Meta::CPAN

            de => 'erfolgreich abgemeldet',
        },

        msg_005 => {
            en => 'admin_secret is wrong',
            de => 'Admin-Passwort ist falsch',
        },

        msg_006 => {
            en => 'Idle-session reestablished due to valid cookie.',
            de => 'Abgelaufene Sitzung durch gültiges Cookie erneuert.',
        },

        msg_007 => {
            en => 'SECURITY ALERT: Please contact your helpdesk!',
            de => 'SICHERHEITSALARM: Bitte kontaktieren Sie den Helpdesk!',
        },
      },

    # simple check whether this config file is locally adjusted
    # at least just delete this entry in order to run CaPo

lib/Captive/Portal/Role/I18N.pm  view on Meta::CPAN

        de => 'erfolgreich abgemeldet',
      },

      msg_005 => {
        en => 'admin_secret is wrong',
        de => 'Admin-Passwort ist falsch',
      },

      msg_006 => {
        en => 'Idle-session reestablished due to valid cookie.',
        de => 'Abgelaufene Sitzung durch gueltiges Cookie erneuert.',
      },
  },

Add your own translation to the conig hash.

=cut

sub gettext {
    my $self = shift;
    my $text = shift

lib/Captive/Portal/Role/Session.pm  view on Meta::CPAN

    DEBUG "delete session from disk '$key'";

    my $fname = $self->cfg->{SESSIONS_DIR} . "/$key";

    unlink $fname or die "Couldn't unlink '$fname': $!";
}

=item $capo->mk_cookie()

Generate a I<CaPo> cookie with random- and session-data or use the already existing session cookie. The cookie is used to fast reactivate an idle session if the IP/MAC/COOKIE is still matching. Cookies are not mandatory, they are just for a better us...

=cut

sub mk_cookie {
    my $self = shift;

    my $session = $self->{CTX}{SESSION}
      or LOGDIE "FATAL: missing 'SESSION' in run CTX,";

    my $query = $self->{CTX}{QUERY}