• Your recent searches
CGI-Auth-Basic
3 results

 view release on metacpan or  search on metacpan

eg/02_turkish.pl  view on Meta::CPAN 

#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;
use CGI;

if ( $] >= 5.008 ) {
   eval q{ binmode STDOUT, ":utf8"; 1; } or die "Unable to change IO layer: $@";
}

my $tr_auth = TRAuth->new( CGI->new );
# $auth->set_template(delete_all => 1);
$tr_auth->check_user;
$tr_auth->_screen(
   content => 'Bu programı kullanabilirsiniz',
   title   => 'Erişim onaylandı',
);

# Translate the interface to turkish
package TRAuth;
use CGI::Auth::Basic;

sub new {
   my $class = shift;
   my $cgi   = shift;
   CGI::Auth::Basic->fatal_header("Content-Type: text/html; charset=utf8\n\n");
   %CGI::Auth::Basic::ERROR = error();
   my $auth = CGI::Auth::Basic->new(
               cgi_object     => $cgi,
               file           => './password.txt',
               http_charset   => 'utf8',
               setup_pfile    => 1,
               logoff_param   => 'cik',
               changep_param  => 'parola_degistir',
               cookie_id      => 'parolakurabiyesi',
               cookie_timeout => '1h',
               chmod_value    => 0777,
            );

   $auth->set_template(template());
   $auth->set_title(title());
   return $auth;
}

sub template {
   return login_form => <<"TEMPLATE",
<span class="error"><?PAGE_FORM_ERROR?></span>
<form action="<?PROGRAM?>" method="post">

<table border="0" cellpadding="0" cellspacing="0">
 <tr><td class="darktable">
  <table border="0" cellpadding="4" cellspacing="1">
 <tr>
   <td class="titletable" colspan="3">Bu özelliği kullanabilmek için bağlanmalısınız</td>
 </tr>
 <tr>
  <td class="lighttable">Bu programı kullanmak için <i>gereken</i> parolayı girin:</td>
  <td class="lighttable"><input type="password" name="<?COOKIE_ID?>"></td>
  <td class="lighttable" align="right"><input type="submit" name="submit" value="BaÄŸlan"></td>
 </tr>
</table>
</td> </tr>
</table>
</form>
TEMPLATE

change_pass_form => <<"TEMPLATE",
<span class="error"><?PAGE_FORM_ERROR?></span>
<form action="<?PROGRAM?>" method="post">

<table border="0" cellpadding="0" cellspacing="0">
 <tr><td class="darktable">
  <table border="0" cellpadding="4" cellspacing="1">
 <tr>
   <td class="titletable" colspan="3">
   3 ile 32 karakter arasında bir parola girin. Boşluk kullanmayın!</td>
 </tr>
 <tr>
  <td class="lighttable">Yeni parolanızı girin:</td>
  <td class="lighttable"><input type="password" name="<?COOKIE_ID?>_new"></td>
  <td class="lighttable" align="right">
  <input type="submit" name="submit" value="Parolayı değiştir">
  <input type="hidden" name="change_password" value="ok"></td>
  <input type="hidden" name="<?CHANGEP_PARAM?>" value="1"></td>

 </tr>
</table>
</td> </tr>
</table>
</form>

TEMPLATE

screen => <<"TEMPLATE",
<html>
   <head>
    <?PAGE_REFRESH?>



( run in 1.171 second using v1.01-cache-2.11-cpan-cdf2f3d4e48 )