#!/usr/bin/perl -- print "Content-type: text/vnd.wap.wml\n\n"; require "../cgi-bin/board/Date.pl"; require "../cgi-bin/database/today.cgi"; require "../cgi-bin/database/db.cfg"; $today = $showthedateback; $yesterday = $showthedateback - 1; $database=$UNshowsdb; if ($input{'database'} eq ''){$db=$database;} else{$db=$input{'database'};} @members=("Hans|Guitars/Vocals|Faber","Brian|Guitars|Carreon","Robert|Bass|Marks","Donnie|Vocals|Marhefka","Frank|Drums|Herrera"); @galleries=("20040626|Gathering Of The Bestial Legion Fest|52"); ################################################################################################ print <

Unsanctified
UNSANCTIFIED.COM

 mobiledoc ################################################################################################ ################################################################################################ print <

Unsanctified
MENU
mobiledoc $TEST = $ENV{'HTTP_USER_AGENT'}; print "\t$TEST\n"; print "

"; ################################################################################################ ################################################################################################ print < mobiledoc open (ORGDB,"<$database"); flock("$database",2); @ODB=; flock("$database",8); close (ORGDB); $hff=0; foreach $rec (@ODB){ chomp($rec); ($id,$date,$datesort,$showtime,$venueurl,$venue,$venuemap,$addr,$city,$state,$zip,$miscadd,$phone,$title,$titleurl,$b1n,$b1cxl,$b1u,$b2n,$b2cxl,$b2u,$b3n,$b3cxl,$b3u,$b4n,$b4cxl,$b4u,$b5n,$b5cxl,$b5u,$b6n,$b6cxl,$b6u,$bandcomm,$price,$pricecomm,$tickets)=split(/\|/,$rec); if ($date ne 'date'){ if ($datesort gt $yesterday){ $hff=$hff+1; } } } if ($hff ge '1') { print" "; } print < Unsanctified mobiledoc open (ORGDB,"<$database"); flock("$database",2); @ODB=; flock("$database",8); close (ORGDB); $hff=0; foreach $rec (@ODB){ chomp($rec); ($id,$date,$datesort,$showtime,$venueurl,$venue,$venuemap,$addr,$city,$state,$zip,$miscadd,$phone,$title,$titleurl,$b1n,$b1cxl,$b1u,$b2n,$b2cxl,$b2u,$b3n,$b3cxl,$b3u,$b4n,$b4cxl,$b4u,$b5n,$b5cxl,$b5u,$b6n,$b6cxl,$b6u,$bandcomm,$price,$pricecomm,$tickets)=split(/\|/,$rec); if ($date ne 'date'){ if ($datesort gt $yesterday){ $hff=$hff+1; if ($hff eq '1') { print" "; } if ($hff eq "0") { print " MENU
No shows scheduled at this time"; } print "

"; ################################################################################################ ################################################################################################ print <

Unsanctified
MENU
>> 2-14-04 The new EP is now available for purchase on www.unsanctified.com for $5.99
>> 12-30-04 The new EP titled Demons Of My Own Making is temporarily delayed until mid-January due to circumstances out of our control.
>> 11-15-04 The new EP titled Demons Of My Own Making will be released soon. It is ultra-brutal.
>> 7-23-04 Unsanctified will begin re recording on August 22.
>> 6-3-04 Unsanctified will return to the studio soon to retrack "Banished From Heaven ".
>> 5-25-04 Frank Herrera has replaced Sean Harding on Drums.

mobiledoc ################################################################################################ ################################################################################################ print <

Unsanctified

"; foreach $member (@members) { ($nm,$inst,$fn)=split(/\|/,$member); print <

MENU
BAND
\$(bmember) - $inst
\$(bmember) - photo
\$(bmember)\@unsanctified.com

mobiledoc } ################################################################################################ ################################################################################################ open (ORGDB,"<$database"); flock("$database",2); @ODB=; flock("$database",8); close (ORGDB); foreach $rec (@ODB){ chomp($rec); ($id,$date,$datesort,$showtime,$venueurl,$venue,$venuemap,$addr,$city,$state,$zip,$miscadd,$phone,$title,$titleurl,$b1n,$b1cxl,$b1u,$b2n,$b2cxl,$b2u,$b3n,$b3cxl,$b3u,$b4n,$b4cxl,$b4u,$b5n,$b5cxl,$b5u,$b6n,$b6cxl,$b6u,$bandcomm,$price,$pricecomm,$tickets)=split(/\|/,$rec); if ($date ne 'date'){ if ($datesort gt $yesterday){ print <

Unsanctified MENU
SHOWS
$date
$showtime
hans $venue =~ s/´//gi; print "$venue
"; if ($addr ne "") { print"$addr
";} print"$city,$state $zip
"; if ($phone ne "") { print"$phone
";} print"$title

UNSANCTIFIED w/
"; if ($b1n ne "") { print"$b1n
";} if ($b2n ne "") { print"$b2n
";} if ($b3n ne "") { print"$b3n
";} if ($b4n ne "") { print"$b4n
";} if ($b5n ne "") { print"$b5n
";} if ($b6n ne "") { print"$b6n
";} $bandcomm=~s/

//gi; $bandcomm=~s///gi; $bandcomm=~s/<\/center>//gi; $bandcomm=~s/<\/b>//gi; $bandcomm=~s/
//gi; if ($b6n ne "") { print " and more
";} #print "PRICE: $price
print "

"; } } } ################################################################################################ ################################################################################################ print <

Unsanctified

"; ################################################################################################ ################################################################################################ #foreach $gallery (@galleries) { #($fn,$desc,$ct)=split(/\|/,$gallery); #print < #

#MENU # #
#GALLERIES # #
#
#mobiledoc # #$j=1; #while ($j<=$ct) { #print "$j # #
"; #$j++; #} #print" #Coming Soon #
#

# #"; #} ################################################################################################ ################################################################################################ print <

Unsanctified
MENU
** Coming Soon **

mobiledoc ################################################################################################ ################################################################################################ # HERE IS THE NHL WEST PIOINTS STANDINGS sub lakings { use LWP::Simple; $STATS=get("http://www.nhl.com/onthefly/standings/20032004/print_conference_standings.html"); $STATS =~ s/\r\n//gi; $STATS =~ s/\015//gi; $STATS =~ s/\n//gi; $startpos=0; $endpos=0; $startstr="Western Conference"; $endstr=""; $STATlen=length($STATS); $slen=length($startstr); $elen=length($endstr); for ($i=0;$i<$STATlen;$i++) { if (substr($STATS,$i,$slen) eq $startstr) { $startpos=$i; } } for ($i=0;$i<$STATlen;$i++) { if (substr($STATS,$i,length($endstr)) eq $endstr) { $endpos=$i; } } $newSTR = substr($STATS,$startpos,$endpos-$startpos); $newSTR =~ s/ class="HEADLINEGRAPH" align="right"//gi; $newSTR =~ s/ class="HEADLINEGRAPH"//gi; $newSTR =~ s/ bgcolor="#E1D8B9"//gi; $newSTR =~ s/ bgcolor="#ffffff"//gi; $x="Western Conference"; $newSTR =~ s/ $x//gi; $newSTR =~ s/Western Conference//gi; $newSTR =~ s/class="HEADLINEGRAPH"//gi; $newSTR =~ s/ bgcolor="#AFB088"//gi; $x=""; $newSTR =~ s/$x//gi; $x="

"; $newSTR =~ s/$x//gi; $x="

"; $newSTR =~ s/$x//gi; $x=""; $newSTR =~ s/$x//gi; $x=""; $newSTR =~ s/$x//gi; $newSTR =~ s/>/> /gi; $newSTR =~ s/ //gi; $newSTR =~ s/<\/td> <\/tr>//; $newSTR =~ s/.html"> /.html">/gi; $newSTR =~ s/<\/a> \*<\/td>/<\/a>\*<\/td>/gi; $newSTR =~ s/<\/a> <\/td>/<\/a><\/td>/gi; $newSTR =~ s/ /HANS/gi; $newSTR =~ s/HANS <\/td>/HANS/gi; $newSTR =~ s/HANS <\/tr>//gi; $newSTR =~ s/<\/a>//gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; $newSTR =~ s///gi; chomp $newSTR; open (DATABASE,">temp.stats"); flock("temp.stats",2); print DATABASE "$newSTR"; flock("temp.stats",8); close (DATABASE); open (ORGDB,"; flock("temp.stats",8); close (ORGDB); $r=0; print <

MENU
mobiledoc print "\n"; foreach $rec (@ODB){ chomp($rec); if ($rec ne "") { $r++; if ($r>=1) { if (($r eq "1")|| ($r eq "2") || ($r eq "3") || ($r eq "9") || ($r eq "15") ) { if ($r eq "3") { #print substr($rec,1,7).substr($rec,4,7).substr($rec,length($rec)-6,length($rec)); $h=$rec; $h =~ s/"; } else { print $rec.""; } } } if ($r eq "15") { $r=0; } } } print "
//gi; $h =~ s/<\/td>//gi; if (substr($h,length($h)-1,1) eq "*") { $j="*"; } else { $j=""; } $h = substr($h,0,5); #if (substr($,length($rec)-1,length($rec)) eq "*") { #$h=$h."*"; #} print "$h$j
"; print "

"; print ""; } ################################################################################################ ################################################################################################ print "";