File plibrary.patch of Package xtandem

Overview Repositories Revisions Requests Users Attributes Meta

File plibrary.patch of Package xtandem

diff --git a/xtandem2mgf b/xtandem2mgf
index c574731..e8d9898 100644
--- a/xtandem2mgf
+++ b/xtandem2mgf
@@ -1,4 +1,4 @@
-#!c:/perl/bin/perl.exe
+#!/usr/bin/perl
 ##
 ##
 ## plibrary.pl
@@ -18,23 +18,10 @@
 ##
 
 use strict;
-use CGI qw(:all);
-use CGI::Carp qw(fatalsToBrowser);
-use HTTP::Request::Common qw(POST GET);
-use LWP::UserAgent; 
-my $cgi = CGI->new();
-
-require "./defines.pl";
-require "./common.pl";
 
 my $file_version = "plibrary.pl, v. 2009.08.18";
 
-my $gvalue = GetGsite('gpmdb_url');
-my $wvalue = GetGsite('wiki_url');
-my $mvalue= GetGsite('mrm_url');
-
-my $path = get_root() . $cgi->param('path');
-my $url = $cgi->param('path');
+my $path = $ARGV[0];
 
 my $label;
 my @taxa;
@@ -65,13 +52,7 @@ if(length($label) == 0) {
 }
 
 my $gpm = $path;
-if($gpm =~ /GPM[A-Z]*[0-9]{11}\./i)  {
-    $gpm =~ s/.*(GPM[A-Z]*[0-9]{11})\..*/$1/i;
-}
-else    {
-    ($gpm) = $gpm =~ /.+\/(.+?)\..*?/;
-}
-
+$gpm =~ s/.*\///i;
 
 open(INPUT,"<$path")  or die "$path not found";
 my @libraries;
@@ -137,8 +118,6 @@ sub GetLibrarySize
 sub PrintHead
 {
 	my ($_h,$_l) = @_;
-	print qq(Content-type: text/plain\nContent-disposition: attachment; filename=$_h.mgf\n\n);
-#	print qq(Content-type: text/plain\n\n<pre>);
 	print qq(SEARCH=MIS\r\nREPTYPE=Peptide\r\nLIBSIZE=$_l\r\n## created by: $file_version\r\n);
 	print qq(## original data set: $gpm\r\n);
 	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

Places

File plibrary.patch of Package xtandem

Places