Gecko [ www.finalhopeacademy.com ]

Name	Size	Permission
Agent.pm	32.49 KB	-rw-r--r--
Config.pm	17.02 KB	-rw-r--r--
Core.pm	64 KB	-rw-r--r--
Engine.pm	1.4 KB	-rw-r--r--
Version.pm	366 B	-rw-r--r--

Code Editor : Engine.pm

package Razor2::Client::Engine;

use strict;
use Data::Dumper;
use Razor2::Signature::Ephemeral;
use Razor2::Engine::VR8;
use Razor2::Preproc::Manager;
use Razor2::String qw(hextobase64 makesis debugobj);

# meant to be inherited
#
sub new {
    return {};
}

sub supported_engines {

my @a = qw( 4 8 );

my $hr = {};
    foreach (@a) { $hr->{$_} = 1; }

return wantarray ? @a : $hr;
}

sub compute_engine {
    my ( $self, $engine, @params ) = @_;

return $self->vr4_signature(@params) if $engine == 4;
    return $self->vr8_signature(@params) if $engine == 8;

$self->log( 1, "engine $engine not supported" );
    return;
}

#
# The following *_signature subroutines should be
# the same as the ones on the server
#

#
# VR4 Engine - Ephemereal signatures of decoded body content
#
sub vr4_signature {
    my ( $self, $text, $ep4 ) = @_;
    my ( $seed, $separator ) = split /-/, $ep4, 2;

return $self->log( 1, "vr4_signature: Bad ep4: $ep4" ) unless ( $seed && $separator );

my $ehash = new Razor2::Signature::Ephemeral( seed => $seed, separator => $separator );
    my $digest = $ehash->hexdigest($$text);

my $sig = hextobase64($digest);
    $self->log( 11, "engine 4 computing on " . length($$text) . ", sig=$sig" );
    return $sig;
}

sub vr8_signature {
    my ( $self, $text ) = @_;
    my $vr8 = Razor2::Engine::VR8->new();

my $sigs = $vr8->signature($text);

return $sigs;
}

${this.title}

Code Editor : Engine.pm