<% use strict; my $refseq = $Request->QueryString('db'); my $table = $Request->QueryString('table'); $table =~ s/\.\.//g; my $doc_dir = "./data/"; ###this information should be stored in a config file my $space=" "; unless ($table && open(TAB, "< $doc_dir$table")) { print "

Error: Can't find this table!

"; $Response->End(); exit; } my $txtfile =''; while(){ unless (/^#/){ $txtfile .= $_; } } close(TAB); $txtfile =~ s/\n+/\n/gs; my @tables = (); if ($txtfile =~ //i){ @tables = split(/
/i, $txtfile); for(my $i=0; $i<@tables; $i++){ $tables[$i] = "
$tables[$i]"; } }else{ $tables[0] = ''; $tables[1] = $txtfile; } for(my $i=1; $i<@tables; $i++){ my @lines = split(/\n/,$tables[$i]); my $FOOTER = 0; my $cols = 0; my @link = (); my $desc=''; my $if_table = 0; my $line_count = 0; foreach(@lines){ my $line = $_; $line =~ /^<(.+?)>/; my $tag = $1; if ($line_count == 0){ if ($tag =~ /page_title/i) { #### title of the page $line =~ s/^<.+?>//; print "$line\n"; } else { print "TableView\n"; } $line_count += 1; }elsif ($tag =~ /img_tag/i) { #### image to be included $line =~ s/^<.+?>//; print "


\n"; }elsif ($tag =~ /table/i) { #### name of tables $line =~ s/^<.+?>//; if($if_table) { print "
\n"; $if_table = 0; @link = (); } print "

$line

\n"; }elsif ($tag =~ /title/i){ ######### title of table $line =~ s/^<.+?>//; if($if_table) { print "
\n"; $if_table = 0; @link = (); } print "

$line

\n"; }elsif ($tag =~ /text/i){ ######### some text to be included in the html page $line =~ s/^<.+?>//; if($if_table) { print "\n"; $if_table = 0; @link = (); } print "$line\n

\n"; }elsif ($tag =~ /description/i) { ##### description of table $line =~ s/^<.+?>//; if($if_table) { print "\n"; $if_table = 0; @link = (); } $desc = $line; }elsif ($tag =~ /header/i) { ##### header of table my $tag = ''; if ($line =~ s/^<(.+?)>//){ $tag = $1; $tag =~ s/header\s*//ig; } my $width = "100%"; $width = $tag if ($tag && $tag >= 480); my @cols = split(/\t/,$line); $cols = @cols + 0; if ($desc){ print "\n\n"; print "
$desc
\n"; } $if_table = 1; print "\n\n"; for(my $i=0; $i<@cols; $i++){ if ($cols[$i] =~ s/<(.*?)>$//){ $link[$i] = $1; } print "\n"; } print "\n"; }elsif ($tag =~ /footer/i) { ##### footer of table $FOOTER++; $line =~ s/^<.+?>//; print "
$cols[$i]$space
\n

$line

\n"; }else{ #### body of table my $tag=''; if ($line =~ s/^<(.+?)>//){ $tag = $1; $tag =~ s/row\s*//ig; } print "\n"; my @cols = split(/\t/,$line); for(my $i=0; $i<$cols; $i++){ my $cell = ''; if ($link[$i] && $cols[$i]){ if ($cols[$i] eq "-" or $cols[$i] =~ /Please/) { $cell = "$cols[$i]$space"; } else { my $cols2 = ''; if ($cols[$i] =~ /^(.+?) \/ (.+?)$/){ $cols[$i] = $1; $cols2 = $2; } my $link = $link[$i]; my $linkid = $cols[$i]; $linkid =~ s/\*|<.*?>//g; if ($linkid=~/^(.+?)_variant.*$/i){ $linkid = "$1*"; } $link =~ s/\*/$linkid/; my $link2 = $link[$i]; $link2 =~ s/\*/$cols2/; my $cell2 = ''; $cell2 = "/ $cols2" if ($cols2); $cell = "$cols[$i]$space$cell2"; } }else{ $cell = "$cols[$i]$space"; } my $bg = ''; $bg = ' bgcolor="#BBBBBB"' if ($tag =~ /s/i); my $style = ""; $style = "" if ($tag =~ /b/i); my $font = ""; print "$style$font$cell\n"; } print "\n"; } } unless($FOOTER){ print "\n"; } } %>
Home