#!/usr/bin/perl

# viewjpg.pl
# ----------

require 'vxcgi.pl';
require 'gallery.pl';

$tx1 = "#5050A0";


cgi_vars();     # $coll = collection directory name;  $file = name of JPG file;  $fs = 1 if full-size

# $coll='ScreenThemes_Posters';
# $file='poster_arti001.jpg';


# NEW: Always show the full-size version right away.
$fs=1;


if (!$coll || !$file) { cgi_redirect("http://www.screenthemes.com/gallery/"); }
$coll =~ tr/ /+/;
$file =~ tr/ /+/;


$packid = ($coll =~ /^ScreenThemes_Posters$/i) ? lc(substr($file, 7, 7)) : "";
require "$visionx_com/vxsecure/st/packinfo.pl" if $packid;

require "$coll/data.pl" if -e "$coll/data.pl";


cgi_header();


# Write to data file if the user is getting the full-screen image.
if ($fs)
{
    my ($sec, $min, $hr, $day, $mo, $yr, $dow, $doy, $isdst) = localtime();
    my ($y, $m, $d) = ($yr + 1900, $mo + 1, $day);
    my $datafile = sprintf("_data_/%04d_%02d_%s.dat", $y, $m, $coll);
    my $datetime = sprintf("%02d/%02d %02d:%02d", $m, $d, $hr, $min);

    my $filetitle = $file;
    $filetitle =~ s/\.jpg$//i;

    $rawdata  = "$ENV{'REMOTE_HOST'}";
    $rawdata .= "\t$datetime";
    $rawdata .= "\t$filetitle";
    $rawdata .= "\n";

    open (DATA, ">>$datafile");
    print DATA "$rawdata";
    close(DATA);
}


gallery_header(1, $fs);


print <<".";
<STYLE TYPE='text/css'>
A:link{color:#000080;}A:visited{color:#0000A0;}A:hover{color:red;}
</STYLE>
<BR>
.


center_begin();

show_image($file);

center_end();

gallery_footer(1, $fs);


#---------------------------------------------------------------------

sub center_begin
{
    my $colltitle = $coll;    $colltitle =~ tr/_/ /;
    my $filetitle = $file;    $filetitle =~ tr/_/ /;    $filetitle =~ s/\.jpg$//i;

    my ($w, $h) = split /,/, ($actual{$file} ? $actual{$file} : "1024,768");
    my $who = ($who{$file} && $who{file} !~ /ScreenThemes/i) ? "<BR><I>by $who{$file}</I>" : "";

    print <<".";
<CENTER>
<TD VALIGN=TOP ALIGN=CENTER WIDTH="100%">
  <TABLE WIDTH="90%" CELLPADDING=7 CELLSPACING=0 BORDER=0>
  <TR><TD ALIGN=CENTER><FONT SIZE=3 FACE=VERDANA,ARIAL,HELVETICA>
    <TABLE CELLPADDING=7 CELLSPACING=0 BORDER=0>
    <TR><TD ALIGN=CENTER><FONT SIZE=5 FACE=VERDANA,ARIAL,HELVETICA COLOR="$tx1">
      <B>$colltitle</B>
    </FONT></TD></TR>
.

    if ($packid)
    {
        print <<"." ;
    <TR><TD ALIGN=CENTER><FONT SIZE=5 FACE=VERDANA,ARIAL,HELVETICA>
      <B>"$name{$packid}"</B>
    </FONT></TD></TR>
    <TR><TD ALIGN=CENTER><FONT SIZE=1 FACE=VERDANA,ARIAL,HELVETICA>
      <B><FONT SIZE=2>Enjoy this free poster compliments of ScreenThemes!</FONT></B>
      <P>
      <A HREF="https://www.visionx.com/vxsecure/st/buypack.pl?packid=$packid" TARGET="_top">Get this collection of $nimgs{$packid} FULL-SCREEN IMAGES, plus FIVE MORE COLLECTIONS of your choice, for only \$22.95</A>
    </FONT></TD></TR>
.
    }
    else
    {
        print <<"." ;
    <TR><TD ALIGN=CENTER><FONT SIZE=2 FACE=VERDANA,ARIAL,HELVETICA>
      $filetitle <NOBR>($w x $h)</NOBR>$who
    </FONT></TD></TR>
.
    }

    print <<".";
    </TABLE>
  </TD></TR>
.
}

sub center_end
{
    print <<".";
  </TABLE>
</TD>

</CENTER>
.
}


#---------------------------------------------------------------------

sub show_image
{
    my $title;
    if ($packid)
    {
        $title = $name{$packid};
    }
    else
    {
        $title = $file;
        $title =~ tr/_/ /;
        $title =~ s/\.jpg$//i;
    }

    my ($w, $h) = split /,/, ( $fs ? ($actual{$file} ? $actual{$file} : "1024,768") : ($medium{$file} ? $medium{$file} : "400,300") );
    my $h2 = $h + 20;

    my $jpg = $fs ? "$coll/$file" : "$coll/medium/$file";
    my $txt = $fs ? "Right-click on this image and select \"Set as Wallpaper\" and/or \"Save Picture As\" to save it" : "Click on this image for the full-size version";
    my $a1  = $fs ? "" : "<A HREF=\"viewjpg.pl?coll=$coll&file=$file&fs=1\">";
    my $a2  = $fs ? "" : "</A>";

    print <<".";
  <TR>
    <TD ALIGN=CENTER VALIGN=CENTER>
      <FONT SIZE=1 FACE=VERDANA,ARIAL,HELVETICA>
      $txt<BR>$a1<IMG SRC="$jpg" WIDTH=$w HEIGHT=$h BORDER=0 ALT=\"$title\">$a2<BR>$txt<BR><BR><BR>&nbsp;
      <FONT SIZE=3>
      <P><B><A HREF="http://www.screenthemes.com/gallery/viewcoll.pl?coll=ScreenThemes_Posters">View more free ScreenThemes posters</A></B>
      </FONT>
      </FONT>
    </TD>
  </TR>
.

#     print <<".";
#   <TR>
#     <TD ALIGN=CENTER VALIGN=CENTER>
#       <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
#         <TR><TD>          <A HREF="viewlarge.pl?coll=$coll&file=$file"><IMG SRC="$coll/medium/$file" WIDTH=$w HEIGHT=$h BORDER=0></A></TD>
#             <TD ROWSPAN=2><IMG SRC="shdw-r.gif" WIDTH=20 HEIGHT=$h2></TD>
#         </TR>
#         <TR><TD>          <IMG SRC="shdw-b.gif" WIDTH=$w HEIGHT=20 ></TD>
#         </TR>
#       </TABLE>
#     </TD>
#   </TR>
# .
}