<commit_before>#!/usr/bin/perl -w

use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use HTML::Template;
use Data::Dumper;
use CoGe::Accessory::LogUser;

my $email = CoGe::Accessory::LogUser->get_user();
my $template = HTML::Template->new(filename=>'/opt/apache/CoGe/tmpl/index.tmpl');
my $DATE = sprintf( "%04d-%02d-%02d %02d:%02d:%02d",
		 sub { ($_[5]+1900, $_[4]+1, $_[3]),$_[2],$_[1],$_[0] }->(localtime));

$template->param(TITLE=>'Comparative Genomics Homepage');
$template->param(USER=>$email);
$template->param(DATE=>$DATE);

my @actions = (
	       {
		ACTION=>qq{<a href="./B2V.pl">Synteny Viewer</a>},
		DESC => qq{Allows uses to compare two sequences using the bl2seq algorithm to find regions of similarity and displays the results graphically.  This program has several unqiue options to aid in the finding of evolutionary conserved non-coding sequences and large syntenic regions.},
	       },<commit_msg>changed name of program<commit_after>#!/usr/bin/perl -w

use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use HTML::Template;
use Data::Dumper;
use CoGe::Accessory::LogUser;

my $email = CoGe::Accessory::LogUser->get_user();
my $template = HTML::Template->new(filename=>'/opt/apache/CoGe/tmpl/index.tmpl');
my $DATE = sprintf( "%04d-%02d-%02d %02d:%02d:%02d",
		 sub { ($_[5]+1900, $_[4]+1, $_[3]),$_[2],$_[1],$_[0] }->(localtime));

$template->param(TITLE=>'Comparative Genomics Homepage');
$template->param(USER=>$email);
$template->param(DATE=>$DATE);

my @actions = (
	       {
		ACTION=>qq{<a href="./SynView.pl">Synteny Viewer</a>},
		DESC => qq{Allows uses to compare two sequences using the bl2seq algorithm to find regions of similarity and displays the results graphically.  This program has several unqiue options to aid in the finding of evolutionary conserved non-coding sequences and large syntenic regions.},
	       },
{'fraction_non_alphanumeric': 0.1781115879828326, 'fraction_numerical': 0.02628755364806867, 'mean_word_length': 5.431034482758621, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 31, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1591415', 'n_tokens_mistral': 686, 'n_tokens_neox': 634, 'n_words': 167}