From 07a9cb3c0063555eb77ed35b0ec4c398552ea932 Mon Sep 17 00:00:00 2001 From: martinahansen Date: Mon, 14 Dec 2009 09:01:36 +0000 Subject: [PATCH] renaming BBrowser to BGB git-svn-id: http://biopieces.googlecode.com/svn/trunk@805 74ccb610-7750-0410-82ae-013aeee3265d --- code_perl/Maasha/BGB/Draw.pm | 2 +- code_perl/Maasha/BGB/Session.pm | 2 +- code_perl/Maasha/BGB/Track.pm | 2 +- www/index.cgi | 38 ++++++++++++++++----------------- 4 files changed, 22 insertions(+), 22 deletions(-) diff --git a/code_perl/Maasha/BGB/Draw.pm b/code_perl/Maasha/BGB/Draw.pm index d83ae2e..7053aa4 100644 --- a/code_perl/Maasha/BGB/Draw.pm +++ b/code_perl/Maasha/BGB/Draw.pm @@ -1,4 +1,4 @@ -package Maasha::BBrowser::Draw; +package Maasha::BGB::Draw; # Copyright (C) 2009 Martin A. Hansen. diff --git a/code_perl/Maasha/BGB/Session.pm b/code_perl/Maasha/BGB/Session.pm index 132d5cc..129e41f 100644 --- a/code_perl/Maasha/BGB/Session.pm +++ b/code_perl/Maasha/BGB/Session.pm @@ -1,4 +1,4 @@ -package Maasha::BBrowser::Session; +package Maasha::BGB::Session; # Copyright (C) 2009 Martin A. Hansen. diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm index 19602bd..11f583a 100644 --- a/code_perl/Maasha/BGB/Track.pm +++ b/code_perl/Maasha/BGB/Track.pm @@ -1,4 +1,4 @@ -package Maasha::BBrowser::Track; +package Maasha::BGB::Track; # Copyright (C) 2009 Martin A. Hansen. diff --git a/www/index.cgi b/www/index.cgi index 0da2599..1fc10db 100755 --- a/www/index.cgi +++ b/www/index.cgi @@ -33,9 +33,9 @@ use Maasha::Filesys; use Maasha::Calc; use Maasha::XHTML; use Maasha::KISS; -use Maasha::BBrowser::Session; -use Maasha::BBrowser::Track; -use Maasha::BBrowser::Draw; +use Maasha::BGB::Session; +use Maasha::BGB::Track; +use Maasha::BGB::Draw; my ( $cgi, $cookie, @html ); @@ -197,7 +197,7 @@ sub cookie_session my ( $session ); - $session = Maasha::BBrowser::Session::session_restore( "$cookie->{ 'SESSION_DIR' }/sessions.txt" ); + $session = Maasha::BGB::Session::session_restore( "$cookie->{ 'SESSION_DIR' }/sessions.txt" ); $cookie->{ 'PAGE' } = 'login' if not $cookie->{ 'SESSION_ID' }; $cookie->{ 'PAGE' } = 'login' if $cookie->{ 'SESSION_ID' } ne $ENV{ 'SSL_SESSION_ID' }; @@ -220,14 +220,14 @@ sub cookie_login my ( $session ); - $session = Maasha::BBrowser::Session::session_restore( "$cookie->{ 'SESSION_DIR' }/sessions.txt" ); + $session = Maasha::BGB::Session::session_restore( "$cookie->{ 'SESSION_DIR' }/sessions.txt" ); if ( $cookie->{ 'USER' } and $cookie->{ 'PASSWORD' } ) { if ( exists $session->{ $cookie->{ 'USER' } } and $session->{ $cookie->{ 'USER' } }->{ 'PASSWORD' } eq Digest::MD5::md5_hex( $cookie->{ 'PASSWORD' } ) ) { - # $session->{ $cookie->{ 'USER' } }->{ 'SESSION_ID' } ||= Maasha::BBrowser::Session::session_new(); + # $session->{ $cookie->{ 'USER' } }->{ 'SESSION_ID' } ||= Maasha::BGB::Session::session_new(); $session->{ $cookie->{ 'USER' } }->{ 'SESSION_ID' } = $ENV{ 'SSL_SESSION_ID' }; $session->{ $cookie->{ 'USER' } }->{ 'TIME' } = Maasha::Common::time_stamp(); @@ -236,7 +236,7 @@ sub cookie_login $cookie->{ 'USER' } = $cookie->{ 'USER' }; $cookie->{ 'PAGE' } = 'clade'; - Maasha::BBrowser::Session::session_store( "$cookie->{ 'SESSION_DIR' }/sessions.txt", $session ); + Maasha::BGB::Session::session_store( "$cookie->{ 'SESSION_DIR' }/sessions.txt", $session ); } else { @@ -285,7 +285,7 @@ sub cookie_end my ( $max ); - $max = Maasha::Filesys::file_size( Maasha::BBrowser::Track::path_seq( $cookie ) ); + $max = Maasha::Filesys::file_size( Maasha::BGB::Track::path_seq( $cookie ) ); if ( defined $cookie->{ 'NAV_END' } ) { @@ -313,7 +313,7 @@ sub cookie_zoom my ( $max, $dist, $new_dist, $dist_diff ); - $max = Maasha::Filesys::file_size( Maasha::BBrowser::Track::path_seq( $cookie ) ); + $max = Maasha::Filesys::file_size( Maasha::BGB::Track::path_seq( $cookie ) ); $dist = $cookie->{ 'NAV_END' } - $cookie->{ 'NAV_START' }; @@ -356,7 +356,7 @@ sub cookie_move my ( $max, $dist, $shift, $new_start, $new_end ); - $max = Maasha::Filesys::file_size( Maasha::BBrowser::Track::path_seq( $cookie ) ); + $max = Maasha::Filesys::file_size( Maasha::BGB::Track::path_seq( $cookie ) ); $dist = $cookie->{ 'NAV_END' } - $cookie->{ 'NAV_START' }; @@ -785,16 +785,16 @@ sub section_browse my ( @tracks, $i, @features, $feat, $elem, $surface, $cr, $png_data, @html, @img ); - push @features, [ Maasha::BBrowser::Track::track_ruler( $cookie ) ]; - push @features, [ Maasha::BBrowser::Track::track_seq( $cookie ) ]; + push @features, [ Maasha::BGB::Track::track_ruler( $cookie ) ]; + push @features, [ Maasha::BGB::Track::track_seq( $cookie ) ]; - @tracks = Maasha::BBrowser::Track::path_tracks( $cookie ); + @tracks = Maasha::BGB::Track::path_tracks( $cookie ); for ( $i = 0; $i < @tracks; $i++ ) { - $cookie->{ 'FEAT_COLOR' } = Maasha::BBrowser::Draw::palette( $i ); + $cookie->{ 'FEAT_COLOR' } = Maasha::BGB::Draw::palette( $i ); - push @features, [ Maasha::BBrowser::Track::track_feature( $tracks[ $i ], $cookie ) ]; + push @features, [ Maasha::BGB::Track::track_feature( $tracks[ $i ], $cookie ) ]; } $surface = Cairo::ImageSurface->create( 'argb32', $cookie->{ 'IMG_WIDTH' }, $cookie->{ 'TRACK_OFFSET' } ); @@ -805,10 +805,10 @@ sub section_browse $cr->fill; foreach $feat ( @features ) { - Maasha::BBrowser::Draw::draw_feature( $cr, $feat ) if $feat; + Maasha::BGB::Draw::draw_feature( $cr, $feat ) if $feat; } - $png_data = Maasha::BBrowser::Draw::base64_png( $surface ); + $png_data = Maasha::BGB::Draw::base64_png( $surface ); push @img, Maasha::XHTML::img( src => "data:image/png;base64,$png_data", @@ -904,7 +904,7 @@ sub section_search my ( $results, $result, $count, @html, $export, $browse ); - $results = Maasha::BBrowser::Track::search_tracks( $cookie ); + $results = Maasha::BGB::Track::search_tracks( $cookie ); $count = scalar @{ $results }; @@ -974,7 +974,7 @@ sub section_dna $end =~ tr/,//d; $seq = ">$cookie->{ 'CONTIG' }_$beg" . "_$end" . "_$cookie->{ 'STRAND' }\n"; - $seq .= Maasha::BBrowser::Track::dna_get( $cookie ); + $seq .= Maasha::BGB::Track::dna_get( $cookie ); push @html, Maasha::XHTML::h2( txt => "DNA", class => 'center' ); push @html, Maasha::XHTML::pre( txt => $seq ); -- 2.39.2