comment on

Dear Monks

i have a problem by using the perl code .

if i run a code in a local mechine rasmol script runs fine . but if i run a same rasmol script in remote mechine it shows nothing please help me here with i am attaching the script. thanks in advance

#!/usr/bin/perl -w
#print "content-type:text/html \n\n"; 
print "content-type:application/x-rasmol\n\n";
use CGI;
$cgi = new CGI;
$value=$cgi->param('value');
#print "$value ::::";
@array=split(/-/,$value);
$pdbid=$array[0];
$from=$array[1];
$to=$array[2];
$chainid=$array[3];
if($chainid eq "_")
{
$chainid=" ";
}
$menu1=$array[4];
$menu2=$array[5];
$menu3=$array[6];
@array=();
=pod
$timi=time();
open(FILE2,">/home/inputfiles/$timi.txt");
open(FILE,"/data/pub/pdb/pdb$pdbid.ent")
if($menu1==0)
{
while(<FILE>)
{
    $temi=substr($_,23,3);
    if(substr($_,21,1)=~/$chainid/ && $_=~/^ATOM/)
    {
        print FILE2 $_;
    }
}
}
if($menu1==1)
{
while(<FILE>)
{
    $temi=substr($_,23,3);
    if(substr($_,21,1)=~/$chainid/ && $_=~/^ATOM/)
    {
        print FILE2 $_;
    }
}
}
close(FILE2);close(FILE);


=cut
$timi=time();
open(FILE2,">/home/inputfiles/$timi.txt") or die $!;
open(FILE,"/data/pub/pdb/pdb$pdbid.ent");
if($menu1==0)
{
    while(<FILE>)
    {
        $temi=substr($_,23,3);$temi=~s/ //g;
        if($_=~/^ATOM/ && substr($_,21,1)=~/$chainid/ && $temi>=$from 
+&& $temi<=$to)
        {
            print FILE2 $_;    
        
        }
    }
}
if($menu1==1)
{
    while(<FILE>)
    {
        #$temi=substr($_,23,3);$temi=~s/ //g;
        if($_=~/^ATOM/ && substr($_,21,1)=~/$chainid/ )
        {
            print FILE2 $_;    
        
        }
    }

}
close(FILE);
close(FILE2);
`chmod 777 $timi.txt`;
#print "$pdbid ::: $from ::: $to ::: $chainid ::: $menu1 ::: $menu2 ::
+: $menu3";
if(open(FILE,"/home/inputfiles/$timi.txt"))
{
@file=<FILE>;
close(FILE);
print "rasmol -script\n";
print "zap\n";
print "load /home/inputfiles/$timi.txt\n";

if($menu1==0)
{
    print "select all\n";
    print "wireframe off\n";
        if($menu2 == 0)
        {
        print "select $from-$to:$chainid\n";
        print "wireframe on\n";
        print "select $from-$to:$chainid\n";
        print "wireframe 100\n";
        
        }
        elsif($menu2 == 1)
        {
        print "select $from-$to:$chainid\n";
        print "backbone on\n";
        print "select $from-$to:$chainid\n";
        print "backbone 100\n";
        
        }
        elsif($menu2 == 2)
        {
        print "select $from-$to:$chainid\n";
        print "ribbon on\n";
        print "select $from-$to:$chainid\n";
        print "ribbon 100\n";
        
        }
        elsif($menu2 == 3)
        {
        print "select $from-$to:$chainid\n";
        print "wireframe on\n";
        print "wireframe 50\n";
        print "select $from-$to:$chainid\n";
        print "spacefill on\n";
        print "spacefill 0.55\n";
        
         }
    #}
}
elsif($menu1==1)
{
    print "select all\n";
    print "wireframe off\n";
    if($menu2==0 && $menu3==0)
    {
        print "select :$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        print "select :$chainid\n";
        
        #print "select $from-$to:$chainid\n";
        
    }
    elsif($menu2==0 && $menu3==1)
    {
        print "select :$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "wireframe off\n";
        print "select $from-$to:$chainid\n";
        print "backbone on\n";
        print "backbone 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    }
    elsif($menu2==0 && $menu3==2)
    {
        print "select :$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "wireframe off\n";
        print "select $from-$to:$chainid\n";
        print "ribbon on\n";
        print "ribbon 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    }
    elsif($menu2==0 && $menu3==3)
    {
    
        print "select :$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "spacefill on\n";
        print "select $from-$to:$chainid\n";
        print "spacefill 0.55\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    
    }
    elsif($menu2==1 && $menu3==0)
    {
        print "select :$chainid\n";
        print "backbone on\n";
        print "backbone 70\n";
        print "select $from-$to:$chainid\n";
        print "backbone off \n";
        print "select $from-$to:$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    
    
    
    }
    elsif($menu2==1 && $menu3==1)
    {
        print "select :$chainid\n";
        print "backbone on\n";
        print "backbone 70\n";
        print "select $from-$to:$chainid\n";
        print "backbone off \n";
        print "select $from-$to:$chainid\n";
        print "backbone on\n";
        print "backbone 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    
    }
    elsif($menu2==1 && $menu3==2)
    {
        print "select :$chainid\n";
        print "backbone on\n";
        print "backbone 70\n";
        print "select $from-$to:$chainid\n";
        print "backbone off \n";
        print "select $from-$to:$chainid\n";
        print "ribbon on\n";
        print "ribbon 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    
    }
    elsif($menu2==1 && $menu3==3)
    {
        print "select :$chainid\n";
        print "backbone on\n";
        print "backbone 70\n";
        print "select $from-$to:$chainid\n";
        print "backbone off \n";
        print "select $from-$to:$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "spacefill on\n";
        print "select $from-$to:$chainid\n";
        print "spacefill 0.55\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    }
    elsif($menu2==2 && $menu3==0)
    {
        print "select :$chainid\n";
        print "ribbon on\n";
        print "ribbon 70\n";
        print "select $from-$to:$chainid\n";
        print "ribbon off \n";
        print "select $from-$to:$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    
    }
    elsif($menu2==2 && $menu3==1)
    {
        print "select :$chainid\n";
        print "ribbon on\n";
        print "select $from-$to:$chainid\n";
        print "ribbon off \n";
        print "select $from-$to:$chainid\n";
        print "backbone on\n";
        print "select $from-$to:$chainid\n";
        print "backbone 100\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    }
    elsif($menu2==2 && $menu3==2)
    {
        print "select :$chainid\n";
        print "ribbon on\n";
        print "ribbon 70\n";
        print "select $from-$to:$chainid\n";
        print "ribbon off \n";
        print "select $from-$to:$chainid\n";
        print "ribbon on\n";
        print "ribbon 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    }
    elsif($menu2==2 && $menu3==3)
    {
        print "select :$chainid\n";
        print "ribbon on\n";
        print "ribbon 70\n";
        print "select $from-$to:$chainid\n";
        print "ribbon off \n";
        print "select $from-$to:$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "spacefill on\n";
        print "select $from-$to:$chainid\n";
        print "spacefill 0.55\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    
    }
    elsif($menu2==3 && $menu3==0)
    {
        print "select :$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select :$chainid\n";
        print "spacefill on\n";
        print "select :$chainid\n"; 
        print "spacefill 0.55\n";
        print "select $from-$to:$chainid\n";
        print "wireframe off\n";
        print "select $from-$to:$chainid\n";
        print "spacefill off\n";
        print "select $from-$to:$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    }
    elsif($menu2==3 && $menu3==1)
    {
        print "select :$chainid\n";
        print "wireframe on\n";
        print "select :$chainid\n";
        print "spacefill on\n";
        print "select :$chainid\n"; 
        print "spacefill 0.55\n";
        print "select $from-$to:$chainid\n";
        print "wireframe off\n";
        print "select $from-$to:$chainid\n";
        print "spacefill off\n";
        print "select $from-$to:$chainid\n";
        print "backbone on\n";
        print "backbone 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    }
    elsif($menu2==3 && $menu3==2)
    {
        print "select :$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select :$chainid\n";
        print "spacefill on\n";
        print "select :$chainid\n"; 
        print "spacefill 0.55\n";
        print "select $from-$to:$chainid\n";
        print "wireframe off\n";
        print "select $from-$to:$chainid\n";
        print "spacefill off\n";
        print "select $from-$to:$chainid\n";
        print "ribbon on\n";
        print "ribbon 70\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    }
    elsif($menu2==3 && $menu3==3)
    {
        print "select :$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select :$chainid\n";
        print "spacefill on\n";
        print "select :$chainid\n"; 
        print "spacefill 0.55\n";
        print "select $from-$to:$chainid\n";
        print "wireframe on\n";
        print "wireframe 70\n";
        print "select $from-$to:$chainid\n";
        print "spacefill on\n";
        print "select $from-$to:$chainid\n";
        print "spacefill 0.55\n";
        print "select $from-$to:$chainid\n";
        print "color green\n";
        
    }
}
}
else
{
#print "sorry i cannot open the file";

}


#print "<html>";
#print "<body>";
#print "hai";
#print "</body>";
#print "</html>";
[download]

Plz help me.

Edit: g0n - fix formatting and readmores

In reply to Regarding Perl+Rasmol Script by editi

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.