#!/usr/bin/perl -w use CGI qw/standard/; use DBI; $db = "hr"; $dsn = "dbi:mysql:$db"; %attr = ( RaiseError => 1 ); $dbh = DBI->connect($dsn, "locquer","locqw14",\%attr); $q = new CGI; print $q->header(-expires=>'-1d'),$q->start_html('Flagship Resort'); $getRec = qq{ select seq from jobs}; do_connect($getRec); @ents = @out; print < Flagship Resorts
You Are Here:

Employment Opportunities

Applications will be accepted at:

4278-C Harbour Beach Blvd,
Brigantine, NJ 08203

Office hours are Monday thru Friday 9am - 5pm.
You may also fax your resume to (609) 266-6581
or email employment@60north.net

Thank you for your interest in the Flagship All Suites Resort and Hotel.

Atlantic City's premier non-casino resort property has exciting employment opportunities for dedicated individuals with excellent customer service skills and a will to succeed! If you're a "people" person and seeking a career in the hospitality industry, you want to come in fill out an application in our Human Resources Office.


END1 $titleSet = ''; $endBfnt = ''; $locFnt = ''; $hrsFnt = ''; $descFnt = ''; for (0..$#ents){ $jobRec = qq{select jname, numPos, location, hours, descript from jobs where seq = $ents[$_] }; #$jobRec = qq{select date_format(ts,'%m/%d/%y'), jname, numPos, location, # hours, descript from jobs where seq = $ents[$_] }; do_connect($jobRec); $jsName = "applyOnline(\'$out[0]\')"; print $titleSet; print "$out[0] $endBfnt $out[1]"; print "
" if (length($out[0]." ".$out[1]." ".$out[2]." ") > 60); print " $locFnt $out[2] $endBfnt"; print " - $hrsFnt $out[3] $endBfnt
"; print "$descFnt $out[4] $endBfnt "; print "
", $q->button(-name=>'Apply Online',-onClick=>$jsName),"
"; } print <
END2 sub do_connect { %attr = ( RaiseError => 1 ); @out = (); my @wid; my ($ncols,$ary_ref); $sth = $dbh->prepare($_[0]); $sth->execute(); (@wid) = @{$sth->{mysql_max_length}} ; ($ncols) = scalar (@wid); #print_row1 ($sth->{NAME}, $ncols) ; # column headings while ($ary_ref = $sth->fetchrow_arrayref){ print_row1 ($ary_ref, $ncols); # row data values } $sth->finish (); #$dbh->disconnect (); return @wid; } #end do connect sub print_row1 { my ($val_ary_ref) = shift; # column values my ($cols) = shift; # number of columns for (my $i = 0; $i < $cols; $i++){ push(@out, (defined $val_ary_ref->[$i] ? $val_ary_ref->[$i] : "NULL")); } }