/usr/share/stacks/php/view_sequence.php is in stacks-web 1.35-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | <?php
//
// Copyright 2010, Julian Catchen <jcatchen@uoregon.edu>
//
// This file is part of Stacks.
//
// Stacks is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, either version 3 of the License, or
// (at your option) any later version.
//
// Stacks is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Stacks. If not, see <http://www.gnu.org/licenses/>.
//
require_once("header.php");
$database = isset($_GET['db']) ? $_GET['db'] : "";
$seq_id = isset($_GET['id']) ? $_GET['id'] : 0;
// Connect to the database
$db = db_connect($database);
// Save these variables for automatic URL formation later on.
$display = array();
$display['db'] = $database;
$display['seq_id'] = $seq_id;
//
// Prepare some SQL queries
//
$query =
"SELECT id, catalog_id, seq_id, type, seq FROM sequence " .
"WHERE id=?";
$db['seq_sth'] = $db['dbh']->prepare($query);
check_db_error($db['seq_sth'], __FILE__, __LINE__);
$page_title = "Catalog RAD-Tag Sequence Viewer";
write_compact_header($page_title);
$result = $db['seq_sth']->execute($seq_id);
check_db_error($result, __FILE__, __LINE__);
$row = $result->fetchRow();
//
// Line wrap the sequence to 80 characters
//
$full_seq = $row['seq'];
$seq = "";
do {
$seq .= substr($full_seq, 0, 80) . "\n";
$full_seq = substr($full_seq, 80);
} while (strlen($full_seq) > 80);
if (strlen($seq) > 0) {
$seq .= $full_seq . "\n";
}
echo <<< EOQ
<pre>
>$row[catalog_id]|$row[seq_id]|$row[type]
$seq
</pre>
EOQ;
write_compact_footer();
?>
|