Archie Cobbs
992971e53f
One package less failing in science. OBS-URL: https://build.opensuse.org/request/show/726471 OBS-URL: https://build.opensuse.org/package/show/science/xtandem?expand=0&rev=18
60 lines
1.4 KiB
Diff
60 lines
1.4 KiB
Diff
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);
|