View of /FigWebServices/split_functional_role.cgi

# -*- perl -*-
#
# Copyright (c) 1003-1006 University of Chicago and Fellowship
# for Interpretations of Genomes. All Rights Reserved.
#
# This file is part of the SEED Toolkit.
# 
# The SEED Toolkit is free software. You can redistribute
# it and/or modify it under the terms of the SEED Toolkit
# Public License. 
#
# You should have received a copy of the SEED Toolkit Public License
# along with this program; if not write to the University of Chicago
# at info@ci.uchicago.edu or the Fellowship for Interpretation of
# Genomes at veronika@thefig.info or download a copy from
# http://www.theseed.org/LICENSE.TXT.
#

use FIG;
my $fig = new FIG;
use CGI;
my $cgi = new CGI;

if (0) {
    my $VAR1;
    eval(join("",`cat /tmp/split_functional_role_parms`));
    $cgi = $VAR1;
#   print STDERR &Dumper($cgi);
}

if (0) {
    print $cgi->header;
    my @params = $cgi->param;
    print "<pre>\n";
    foreach $_ (@params) {
		print "$_\t:",join(",",$cgi->param($_)),":\n";
    }

    if (0) {
        if (open(TMP,">/tmp/split_functional_role_parms")) {
	    	print TMP &Dumper($cgi);
	    	close(TMP);
		}
    }
    exit;
}

use HTML;
my $html = [];

my $to_split = $cgi->param('to_split');
my @param = grep { $_ =~ /^set\d+$/ } $cgi->param;
my @set = ();
foreach $_ (@param)
{
    my $val = $cgi->param($_);
    if ($val =~ /\S/)
    {
	$val =~ s/^\s+//;
	$val =~ s/\s+$//;
	push(@set,$val);
    }
}

my(@subs);
if ($to_split)
{
    my %subs = map { $_->[0] => 1 } grep { ($_->[1] eq $to_split) } $fig->subsystems_for_role($to_split);
    @subs = sort keys(%subs);
}

if ($to_split && (@subs > 0) && (@set > 1))
{
    my $sub;
    foreach $sub (@subs)
    {
	my $subsystem = new Subsystem($sub,$fig,0);
        my @roles = $subsystem->get_roles;
	my $which = $subsystem->get_role_index($to_split);
	@roles = map { [$_,$subsystem->get_role_abbr($subsystem->get_role_index($_))] } @roles;

	if (my $abbrev = $subsystem->get_role_abbr($which))
	{
	    my $n = 1;
	    my @to_add = ();
	    for ($i=0; ($i < @set); $i++)
	    {
		push(@to_add,[$set[$i],"$abbrev-$n"]);
		$n++;
	    }
	    splice(@roles,$which,1,@to_add);
	    $subsystem->set_roles(\@roles);
	    $subsystem->set_subsetC("\*$abbrev",[map { $_->[0] } @to_add]);
	    $subsystem->write_subsystem;
	    system('index_subsystems',@subs);
	    push(@$html,$cgi->h2("split in $sub"));
	}
	else
	{
	    push(@$html,$cgi->h1("*** could not split in $sub"),"\n");
	}
    }
}
else
{
    push(@$html,$cgi->start_form(-action=>"split_functional_role.cgi"),
	        "Role to Split: ",$cgi->textfield( -name => "to_split", -size => 100 ),$cgi->br,$cgi->br,
	        "Set  1: ",$cgi->textfield( -name => "set1", -size => 100 ),$cgi->br,
	        "Set  2: ",$cgi->textfield( -name => "set2", -size => 100 ),$cgi->br,
	        "Set  3: ",$cgi->textfield( -name => "set3", -size => 100 ),$cgi->br,
	        "Set  4: ",$cgi->textfield( -name => "set4", -size => 100 ),$cgi->br,
	        "Set  5: ",$cgi->textfield( -name => "set5", -size => 100 ),$cgi->br,
	        "Set  6: ",$cgi->textfield( -name => "set6", -size => 100 ),$cgi->br,
	        "Set  7: ",$cgi->textfield( -name => "set7", -size => 100 ),$cgi->br,
	        "Set  8: ",$cgi->textfield( -name => "set8", -size => 100 ),$cgi->br,
	        "Set  9: ",$cgi->textfield( -name => "set9", -size => 100 ),$cgi->br,
	        "Set 10: ",$cgi->textfield( -name => "set10", -size => 100 ),$cgi->br,
	        "Set 11: ",$cgi->textfield( -name => "set11", -size => 100 ),$cgi->br,
	        "Set 12: ",$cgi->textfield( -name => "set12", -size => 100 ),$cgi->br,
	        "Set 13: ",$cgi->textfield( -name => "set13", -size => 100 ),$cgi->br,
	        "Set 14: ",$cgi->textfield( -name => "set14", -size => 100 ),$cgi->br,
	        "Set 15: ",$cgi->textfield( -name => "set15", -size => 100 ),$cgi->br,
	        "Set 16: ",$cgi->textfield( -name => "set16", -size => 100 ),$cgi->br,
	        "Set 17: ",$cgi->textfield( -name => "set17", -size => 100 ),$cgi->br,
	        "Set 18: ",$cgi->textfield( -name => "set18", -size => 100 ),$cgi->br,
	        "Set 19: ",$cgi->textfield( -name => "set19", -size => 100 ),$cgi->br,
	        "Set 20: ",$cgi->textfield( -name => "set20", -size => 100 ),$cgi->br,
	        $cgi->submit('Split'),
	        $cgi->end_form
	 );
}

&HTML::show_page($cgi,$html);