#! /usr/bin/perl -w # ######################################## # # displays media page for DTN site # written by benjamin ramey # bsr@rameydesign.net # april, 2004 # ######################################## $data_file = "./data/media_data.txt"; print "Content-type: text/html\n\n"; &Print_Top_HTML; &Print_Albums; &Print_Middle_HTML; &Print_Videos; &Print_Bottom_HTML; ################################################################################################################################################ # SUB ROUTINES FOR DYNAMIC HTML ################################################################################################################################################ ##############prints out photo albums from data file############## sub Print_Albums { my $album_name = 0; my $album_link = 0; my $album_counter = 0; my $display_album = 0; print "\n"; open( INFILE, "$data_file" ) or print "ERROR: Could not open $data_file."; while( (my $file_line = ) && ($file_line !~ m/<\/albumsection>/) ) { if( $file_line =~ m// ) { if( $album_counter == 4 ) { print "\n\n"; $album_counter = 0; } while( ($file_line = ) && ($file_line !~ m/<\/album>/) ) { if( $file_line =~ m/(.*)<\/name>/ ) { $album_name = $1; } #if( $file_line =~ m/(.*)<\/link>/ ) { $album_link = $1; } #$album_link =~ s/([ ,',",\\,\/,-])/sprintf( "%%%lx", (unpack( "C", $1 )) )/eg; if( $file_line =~ m/(.*)<\/inside>/ ) { if( $1 eq 'none' ) { $display_album = 1; } else { $display_album = 0; } } if( $file_line =~ m/(.*)<\/imagefolder>/ ) { $album_folder = $1; } } if( $display_album ) { print<<"HTML";
$album_name HTML $album_counter++; } } } close( INFILE ); if( $album_counter < 4 ) { my $num_fillers = 4 - $album_counter; for( my $i = 1; $i <= $num_fillers; $i++ ) { print<<"HTML";   HTML } } print "\n"; } ##############prints out videos from data file############## sub Print_Videos { my $video_name = 0; my $video_link = 0; my $video_image = 0; my $video_counter = 0; print "\n"; open( INFILE, "$data_file" ) or print "ERROR: Could not open $data_file."; while( (my $file_line = ) && ($file_line !~ m/<\/videosection>/) ) { if( $file_line =~ m/