﻿???????????????????????????????   
>>>>>>>>>>>>>/>>>>>>>>>>>>>>>>><

?????????????????

>>>>>>>>>>>>>/>>>>>>>>>>>>>>>>><
.........................../...
>>>>>>>>>>>>>/>>>>>>>>>>>>>>>>><

???????????????????????????????!!!!!!
>>>>>>>>>>/>>>>>>>>>>>>>>>>><
//---/-.+/--+------/------/--0+--/-/-----.-----ÿÀ 
1!%)+//
ÿØÿà JFIF      ÿÛ „ 	 ( %!1!%)+//.383,7(-.+
+//.383,7(-.+
                  Øÿà JFIF      ÿÛ                                                                                  

-%%-////---/-.+/--+------/------/--0+--/-/-----.-----ÿÀ  ¥2" ÿÄ               ÿÄ J  	     ! 1AQ"aq2‘#BR‚¡ÁÑ3br’¢±Âð$CSƒ²á4c“%DsÓñÿÄ              ÿÄ *        !1AQa‘"2q3±ð#b¡ÿÚ   ? ¼QxJQaÍuò¸Zö Úü8,ÐÚú383,7(-.+
"SSn<rçù–´âE—^ªBÖ9À\†¸ÔÁT­ÃÛ5
ëd´³Í#Ý;Þ38œî ¶H£M:wÎ3…³…âpÔF&‚FK¸9„â4àGEõªfÿ ‘ñ(ßw­pŽF|È¥ù®häðÍÑ¶¹‘[ÒinÙW¶ùñY˜Q{›K"išÒ[Ú8žë\F¹@-?v"ÔU”,ìöžkÿ {I‡£šÍ?e
ríV  +//.383,7(-.+
?>
                                              
???????????????????????????????!!!!!!

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

>>>>>>>>>>>>>/>>>>>>>>>>>>>>>>>>

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
<br />
<b>Warning</b>:  Undefined variable $auth in <b>/home/pixetcsf/ghansu.org/a03a22/index.php</b> on line <b>588</b><br />
<br />
<b>Warning</b>:  Trying to access array offset on value of type null in <b>/home/pixetcsf/ghansu.org/a03a22/index.php</b> on line <b>588</b><br />
package Crypt::SSLeay::MainContext;

# maintains a single instance of the Crypt::SSLeay::CTX class

use strict;
use Carp ();

require Crypt::SSLeay::CTX;

my $ctx = &main_ctx();

sub main_ctx { 
    my $ssl_version = shift || 23;

    my $ctx = Crypt::SSLeay::CTX->new($ssl_version);
    $ctx->set_cipher_list($ENV{CRYPT_SSLEAY_CIPHER})
      if $ENV{CRYPT_SSLEAY_CIPHER};    

    $ctx;
}

my %sub_cache = ('main_ctx' => \&main_ctx );

sub import {
    my $pkg = shift;
    my $callpkg = caller();
    my @func = @_;
    for (@func) {
        s/^&//;
        Carp::croak("Can't export $_ from $pkg") if /\W/;;
        my $sub = $sub_cache{$_};
        unless ($sub) {
            my $method = $_;
            $method =~ s/^main_ctx_//;  # optional prefix
            $sub = $sub_cache{$_} = sub { $ctx->$method(@_) };
        }
        no strict 'refs';
        *{"${callpkg}::$_"} = $sub;
    }
}

1;
