comment on

Hi monks

I have a problem while running the perl script with rasmol script. the perl program is in server,while i am runiing the server in server mechine it self it will display the rasmol files (I checked the file permission also.) the same program if i run from the client mechine, that particular load file is in client mechine than only it is displaying.(but all files we are having in server.eventhougth the particular load file is in the client mechine than only it is displaying otherwise it is showing emptry rasmol window.) here with i am attaching the code also 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 ::::";
($pdbid,$from,$to,$chainid)=split(/-/,$value);
=pod
$pdbid=$array[0];
$from=$array[1];
$to=$array[2];
$chainid=$array[3];
=cut
if($chainid eq "_")
{
$chainid=" ";
}
$menu1=$array[4];
$menu2=$array[5];
$menu3=$array[6];
@array=();

$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);
system("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";

}
[download]

please help me

In reply to 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.