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

use strict;
use Config::Simple;
use Bio::KBase::workspaceService::Client;
use File::Path;
$|=1;

my $config = $ARGV[0];
my $directory = $ARGV[1];
if (!defined($config)) {
	print STDERR "No config file provided!\n";
	exit(-1);
}
if (!-e $config) {
	print STDERR "Config file ".$config." not found!\n";
	exit(-1);
}

my $c = Config::Simple->new();
$c->read($config);

my $ws = Bio::KBase::workspaceService::Client->new("http://kbase.us/services/workspace");
my $models = $ws->list_objects({
	workspaces => ["chenry:BiomassAnalysisMMModels"],
});
for (my $i=0; $i < 1; $i++) {
#for (my $i=0; $i < @{$models}; $i++) {
	open(LPFILE, "< /homes/chenry/lpfiles/LPFiles/".$models->[$i]->[1].".lp"); 
	my $sting;
	{
	    local $/;
	    $sting = <LPFILE>;
		
	}
	close(LPFILE);
	my $input = {
		type => "Optimization",
		jobdata => {
			memlimit => 8000,
			timelimit => 28800,
			lpfile => $sting,
		},
		queuecommand => "Optimization",
		"state" => "queued",
		auth => $c->param("kbclientconfig.auth"),
		wsurl => "http://kbase.us/services/ws"
	};
	$ws->queue_job($input);
}<commit_msg>Fixing cplex job script<commit_after>#!/usr/bin/perl -w

use strict;
use Config::Simple;
use Bio::KBase::workspaceService::Client;
use Bio::KBase::workspace::Client;
use File::Path;
$|=1;

my $config = $ARGV[0];
my $directory = $ARGV[1];
if (!defined($config)) {
	print STDERR "No config file provided!\n";
	exit(-1);
}
if (!-e $config) {
	print STDERR "Config file ".$config." not found!\n";
	exit(-1);
}

my $c = Config::Simple->new();
$c->read($config);

my $ws = Bio::KBase::workspace::Client->new("http://kbase.us/services/ws");
my $js = Bio::KBase::workspaceService::Client->new("http://kbase.us/services/workspace");
my $models = $ws->list_objects({
	workspaces => ["chenry:BiomassAnalysisMMModels"],
});
for (my $i=0; $i < 1; $i++) {
#for (my $i=0; $i < @{$models}; $i++) {
	open(LPFILE, "< /homes/chenry/lpfiles/LPFiles/".$models->[$i]->[1].".lp"); 
	my $sting;
	{
	    local $/;
	    $sting = <LPFILE>;
		
	}
	close(LPFILE);
	my $input = {
		type => "Optimization",
		jobdata => {
			memlimit => 8000,
			timelimit => 28800,
			lpfile => $sting,
		},
		queuecommand => "Optimization",
		"state" => "queued",
		auth => $c->param("kbclientconfig.auth"),
		wsurl => "http://kbase.us/services/ws"
	};
	$js->queue_job($input);
}
{'fraction_non_alphanumeric': 0.24136460554371003, 'fraction_numerical': 0.01535181236673774, 'mean_word_length': 4.236607142857143, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 42, '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': '7541769', 'n_tokens_mistral': 1008, 'n_tokens_neox': 938, 'n_words': 186}