Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
BEG
tapir
Commits
c2036b58
Commit
c2036b58
authored
Mar 25, 2015
by
Thomas Van Parys
Browse files
Change title result page and add extra white space check on input files
parent
4db52058
Changes
1
Hide whitespace changes
Inline
Side-by-side
tapir.cgi
View file @
c2036b58
...
...
@@ -39,8 +39,8 @@ else { # actually compute!
die
500
,
"
FIELD target sequence is empty
\n
"
if
!
$cgi
->
param
('
target_file
')
&&
!
$cgi
->
param
('
target
');
die
500
,
"
FIELD microRNA sequence is empty
\n
"
if
!
$cgi
->
param
('
microrna_file
')
&&
!
$cgi
->
param
('
microrna
');
die
500
,
"
file name of target sequence should not contain whitespace
"
if
$cgi
->
param
('
target_file
')
=~
m/[\s\+]/
;
die
500
,
"
file name of microRNA sequence should not contain whitespace
"
if
$cgi
->
param
('
microrna_file
')
=~
m/[\s\+]/
;
die
500
,
"
file name of target sequence should not contain whitespace
"
if
$cgi
->
param
('
target_file
')
&&
$cgi
->
param
('
target_file
')
=~
m/[\s\+]/
;
die
500
,
"
file name of microRNA sequence should not contain whitespace
"
if
$cgi
->
param
('
microrna_file
')
&&
$cgi
->
param
('
microrna_file
')
=~
m/[\s\+]/
;
# write down microRNA into file
my
$microrna
=
$cgi
->
param
('
microrna
');
...
...
@@ -176,7 +176,7 @@ sub get_file {
sub
get_header
{
my
$header
=
get_file
('
/www/group/biocomp/extra/cgi-bin/biocomp/layout_header.thtml
');
$header
=~
s/<\?
\=
\$title_for_layout
;
\?>/TAPIR/g
;
$header
=~
s/<\?
php echo
\$title_for_layout \?>/TAPIR
Results
/g
;
return
$header
;
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment