renaming BBrowser to BGB

git-svn-id: http://biopieces.googlecode.com/svn/trunk@805 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/BGB/Draw.pm b/code_perl/Maasha/BGB/Draw.pm
index d83ae2e3df2c5e60978d1dc3681267d4f2ae9247..7053aa4fad3503a334dec80ead00a7a95e3c3169 100644 (file)
--- 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 132d5ccd38cb1ed036e245fff3da6176fa652724..129e41fd8d0a91f9dc676da7002021948ef439cd 100644 (file)
--- 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 19602bdb3a6523278a4370aa62f2d99020aec05a..11f583ac48dc6228b57edea5892c23ad990ee51c 100644 (file)
--- 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 0da25999dfc111cedc77cec42144471291e40dd1..1fc10db23b37336386438d198a49f28a21534f8c 100755 (executable)
--- 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 );