#meta_data.pm #Time-stamp: <2006-04-06 16:45:47 lstearns> # #Abstract: This module will read in tables of tower related meta data # and output hash arrays of the information based on param id. Hacked # together from the subroutine in tower_parse.perl and perl_defs.pm, # a piece of code from Brian Blanton (Thanks Brian!!). # perl defs and subroutines common to quoddy nc/fc runs # v11/07/2001 B.O.B. # v02/09/2002 B.O.B. to work out of dmf # v06/04/2002 B.O.B. added initial da stuff # v19/08/2002 B.O.B. fixes for changes to "edu" from "com" # v13/09/2002 B.O.B. added truxton stuff # v13/12/2002 B.O.B. version for casco4b inclusion/ ssh assim # vxx/09/2003 B.O.B. modified for SEACOOS # v15/02/2004 B.O.B. turned into perl package provider (seacoos_sab_defs) package nccoos_page_info_orgtest; # assumes seacoos_sab_defs.pm use strict; use warnings; use vars qw(); #use lib '/opt/local/seacoos/bin/'; #use Web_dev; BEGIN{ use Exporter (); our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); $VERSION="1.0"; @ISA = qw(Exporter); @EXPORT = qw( %page %article ); @EXPORT_OK=(); } our(%page,%article ); #my( # ); ###################################################################### # Enter Page Data ###################################################################### ###################################################################### ## Platforms Main Page ## ~/obs/index_test.html ## ###################################################################### $page{'plats'} = Web->new_page(); $page{'plats'} -> afs_path ( "plats/" ); $page{'plats'} -> path2main ( "../" ); $page{'plats'} -> file_name ( "index_test.html" ); $page{'plats'} -> short_title ( "Platforms" ); $page{'plats'} -> long_title ( "Observation Platforms Operated ". "by NC-COOS" ); $page{'plats'} -> menu_items ( 'radar','tower_R4','buoy','jpop','neuse', 'roof' ); $page{'plats'} -> menu_type ( "vertical" ); $page{'plats'} -> script_files ( "plats_page.js" ); $page{'plats'} -> content_files ( "plats.txt" ); #$page{'plats'} -> articles ( 'radar','tower_R4','buoy','jpop','neuse', # 'roof' ); ###################################################################### ## Menu Entries ###################################################### ###################################################################### $page{'radar'} = Web->new_page(); $page{'radar'} -> afs_path ( "plats/radar/" ); $page{'radar'} -> short_title ( "HF Radar" ); $page{'radar'} -> long_title ( "Surface Current Radar" ); $page{'radar'} -> file_name ( "index_test.html" ); $page{'radar'} -> path2main ( "../../" ); $page{'radar'} -> parent ( "plats" ); $page{'radar'} -> menu_items ( 'radar_comp','radar_pub' ); $page{'radar'} -> content_files ( "radar_1.txt", #"radar_2.txt", "technical.txt", "radar_3.txt"); #"radar_4.txt"); #$page{'radar'} -> dynamic_table ( "contents/tables/codar_suv.txt" ); #$page{'radar'} -> script_files ( 'loc_data.js' ); $page{'radar_hist'} = Web->new_page(); $page{'radar_hist'} -> afs_path ( "plats/radar/" ); $page{'radar_hist'} -> short_title ( "HF Radar" ); $page{'radar_hist'} -> long_title ( "Surface Current Radar (Historical)" ); $page{'radar_hist'} -> file_name ( "historical_test.html" ); $page{'radar_hist'} -> path2main ( "../../" ); $page{'radar_hist'} -> parent ( "plats/radar" ); $page{'radar_hist'} -> content_files ( "radar_1.txt", "radar_3.fix1", "radar_anim_script.txt", "radar_3.fix2", "radar_anim.txt", "radar_3.fix3"); $page{'radar_pub'} = Web->new_page(); $page{'radar_pub'} -> afs_path ( "plats/radar/" ); $page{'radar_pub'} -> short_title ( "Publications" ); $page{'radar_pub'} -> long_title ( "Publications and Presentations" ); $page{'radar_pub'} -> file_name ( "radar_pub_test.html" ); $page{'radar_pub'} -> path2main ( "../../" ); $page{'radar_pub'} -> parent ( "plats/radar" ); $page{'radar_pub'} -> content_files ( "radar_1.txt","radar_pub.txt" ); $page{'radar_comp'} = Web->new_page(); $page{'radar_comp'} -> afs_path ( "plats/radar/" ); $page{'radar_comp'} -> short_title ( "Compare" ); $page{'radar_comp'} -> long_title ( "Data Comparissons" ); $page{'radar_comp'} -> file_name ( "radar_comp_test.html" ); $page{'radar_comp'} -> path2main ( "../../" ); $page{'radar_comp'} -> parent ( "plats/radar" ); $page{'radar_comp'} -> content_files ( "radar_1.txt","radar_comp.txt" ); $page{'radar_analysis'} = Web->new_page(); $page{'radar_analysis'} -> afs_path ( "plats/radar/" ); $page{'radar_analysis'} -> short_title ( "Analysis" ); $page{'radar_analysis'} -> long_title ( "Data Analysis" ); $page{'radar_analysis'} -> file_name ( "radar_analysis_test.html" ); $page{'radar_analysis'} -> path2main ( "../../" ); $page{'radar_analysis'} -> parent ( "plats/radar" ); $page{'radar_analysis'} -> content_files ( "radar_1.txt","radar_analysis.txt" ); $page{'tower_R4'} = Web->new_page(); $page{'tower_R4'} -> afs_path ( "plats/tower_R4/" ); $page{'tower_R4'} -> short_title ( "R4 Tower" ); $page{'tower_R4'} -> long_title ( "Navy Tower R4" ); $page{'tower_R4'} -> file_name ( "index_test.html" ); $page{'tower_R4'} -> path2main ( "../../" ); $page{'tower_R4'} -> menu_items ( 'tower_R4_sys','tower_R4_pkg' ); $page{'tower_R4'} -> parent ( "plats" ); $page{'tower_R4'} -> content_files ( "tower_R4.txt" ); $page{'tower_R4'} -> dynamic_table ( "contents/tables/tower_r4.txt" ); $page{'tower_R4_sys'} = Web->new_page(); $page{'tower_R4_sys'} -> afs_path ( "plats/tower_R4/" ); $page{'tower_R4_sys'} -> short_title ( "System" ); $page{'tower_R4_sys'} -> long_title ( "System Info" ); $page{'tower_R4_sys'} -> file_name ( "sys_info_test.html" ); $page{'tower_R4_sys'} -> path2main ( "../../" ); $page{'tower_R4_sys'} -> parent ( "plats/tower_R4" ); $page{'tower_R4_sys'} -> content_files ( "tower_R4.txt" ); $page{'tower_R4_sys'} -> dynamic_table ( "contents/tables/tower_r4_sys.txt" ); $page{'buoy'} = Web->new_page(); $page{'buoy'} -> afs_path ( "plats/buoy/" ); $page{'buoy'} -> short_title ( "Buoy" ); $page{'buoy'} -> long_title ( "Lookout Shoals Research Buoy" ); $page{'buoy'} -> file_name ( "index_test.html" ); $page{'buoy'} -> path2main ( "../../" ); $page{'buoy'} -> parent ( "plats" ); $page{'buoy'} -> menu_items ( 'buoy_sys','buoy_pkg' ); $page{'buoy'} -> content_files ( "buoy_lsrb.txt" ); # "buoy_down.txt" ); # "technical.txt" ); $page{'buoy'} -> script_files ( "popup.js" ); $page{'buoy'} -> dynamic_table ( "contents/tables/buoy_lsrb.txt"); #"contents/tables/buoy_lsrb_surf.txt", #"contents/tables/buoy_lsrb_midw.txt"); $page{'buoy_sys'} = Web->new_page(); $page{'buoy_sys'} -> afs_path ( "plats/buoy/" ); $page{'buoy_sys'} -> short_title ( "System" ); $page{'buoy_sys'} -> long_title ( "Buoy System Data" ); $page{'buoy_sys'} -> file_name ( "sys_test.html" ); $page{'buoy_sys'} -> path2main ( "../../" ); $page{'buoy_sys'} -> parent ( "plats/buoy" ); $page{'buoy_sys'} -> content_files ( "buoy_lsrb.txt" );#,"buoy_down.txt"); $page{'buoy_sys'} -> dynamic_table ( "contents/tables/buoy_lsrb_sys.txt" ); $page{'buoy_pkg'} = Web->new_page(); $page{'buoy_pkg'} -> afs_path ( "plats/buoy/" ); $page{'buoy_pkg'} -> short_title ( "Package" ); $page{'buoy_pkg'} -> long_title ( "Buoy Package Info" ); $page{'buoy_pkg'} -> file_name ( "pkg_test_test.html" ); $page{'buoy_pkg'} -> path2main ( "../../" ); $page{'buoy_pkg'} -> parent ( "plats/buoy" ); $page{'buoy_pkg'} -> content_files ( "buoy_lsrb.txt", "buoy_pkg.txt" ); $page{'jpop'} = Web->new_page(); $page{'jpop'} -> afs_path ( "plats/jpop/" ); $page{'jpop'} -> short_title ( "JPOP" ); $page{'jpop'} -> long_title ( "Jennette's Pier Observing Partnership" ); $page{'jpop'} -> file_name ( "index_test.html" ); $page{'jpop'} -> path2main ( "../../" ); $page{'jpop'} -> parent ( "plats" ); $page{'jpop'} -> content_files ( "jpop.txt" ); $page{'neuse'} = Web->new_page(); $page{'neuse'} -> afs_path ( "plats/neuse/" ); $page{'neuse'} -> short_title ( "Neuse" ); $page{'neuse'} -> long_title ( "Neuse River Profiling Station" ); $page{'neuse'} -> file_name ( "index_test.html" ); $page{'neuse'} -> path2main ( "../../" ); $page{'neuse'} -> parent ( "plats" ); $page{'neuse'} -> content_files ( "neuse.txt" ); $page{'roof'} = Web->new_page(); $page{'roof'} -> afs_path ( "plats/roof/" ); $page{'roof'} -> short_title ( "Roof" ); $page{'roof'} -> long_title ( "Roof Development Package" ); $page{'roof'} -> file_name ( "index_test.html" ); $page{'roof'} -> path2main ( "../../" ); $page{'roof'} -> parent ( "plats" ); $page{'roof'} -> menu_items ( 'roof_sys','roof_pkg' ); $page{'roof'} -> content_files ( "roof.txt" ); $page{'roof'} -> dynamic_table ( "contents/tables/roof.txt" ); $page{'roof_sys'} = Web->new_page(); $page{'roof_sys'} -> afs_path ( "plats/roof/" ); $page{'roof_sys'} -> short_title ( "System" ); $page{'roof_sys'} -> long_title ( "System Info" ); $page{'roof_sys'} -> file_name ( "sys_info_test.html" ); $page{'roof_sys'} -> path2main ( "../../" ); $page{'roof_sys'} -> parent ( "plats/roof" ); $page{'roof_sys'} -> content_files ( "roof.txt","roof_sys.txt" ); $page{'roof_sys'} -> dynamic_table ( "contents/tables/roof_sys.txt" ); $page{'roof_pkg'} = Web->new_page(); $page{'roof_pkg'} -> afs_path ( "plats/roof/" ); $page{'roof_pkg'} -> short_title ( "Package" ); $page{'roof_pkg'} -> long_title ( "Package Details" ); $page{'roof_pkg'} -> file_name ( "pkg_info_test.html" ); $page{'roof_pkg'} -> path2main ( "../../" ); $page{'roof_pkg'} -> parent ( "plats/roof" ); #$page{'roof_pkg'} -> articles ( 'roof_daq','roof_com','roof_trans' ); $page{'roof_pkg'} -> content_files ( "roof.txt","roof_pkg.txt" ); $page{'blank'} = Web->new_page(); $page{'blank'} -> afs_path ( "" ); $page{'blank'} -> short_title ( '' ); $page{'blank'} -> long_title ( "" ); $page{'blank'} -> path2main ( "" ); $article{'radar'} = Web->new_article(); $article{'radar'} -> short_title ( "Radar" ); $article{'radar'} -> long_title ( "Surface Current Radar Observations" ); $article{'radar'} -> target_url ( "plats/radar/" ); #$article{'radar'} -> thumbnail ( "radar_thumb.png" ); $article{'radar'} -> thumbnail ( "img/thumbnails/codar_receive.jpg" ); $article{'radar'} -> content_files ( "radar.txt" );