#!/usr/bin/perl
########################################
# details
#########################################

use localbucky;

$dbh = DBI->connect ($dsn);

our ($USER, $lastlog) = checkin();
our $loggedin = ($USER != -1);

our ($t, $kw, $files, $comments) = details_init();
details_run($t, $kw, $files, $comments);

sub details_init
  {
  $input->{id} ||= $input->{object_from_uri} if defined($input->{object_from_uri});
  my $id = exists($input->{id}) ? $input->{id} : error("No such thread!");

  my $t = get_thread($id);
  error("No such post.") if ($t == -1);
  my $kw = get_keyword($t->{keyword});

  my $files = get_files($t->{id});
  my $comments = get_comments ($t->{id});

  if ( ! check_privacy($t, $kw) ) # || check_participation($files, $comments) )
  #unless ( check_privacy($t, $kw) || check_participation($files, $comments) )
    { error("No such post!"); }

  # Reset NULL viewed 
  if ( ! $t->{viewed} )
    { $t->{viewed} = 0; }

  # Increment viewed for this thread
  $t->{viewed}++;
  # Update thread viewed count
  update_thread_viewed( $t->{id}, $t->{viewed} );

  return ($t, $kw, $files, $comments);
  }

sub details_run
  {
  my ($t, $kw, $files, $comments) = @_;
  my $header_args =
    {
    title => $t->{title},
    sticky => $t->{keyword},
    color => get_color($t, $kw, $comments)
#    participation => check_participation($files, $comments) 
    };

  my $age = get_age($t->{lastmodified});
  $age .= " ago" unless $age eq "now";

  $header_args->{subtitle} =
    qq!posted by <a href="$BUCKY/profile/$t->{username}">$t->{username}</a> on ! .
    verbosedate($t->{createdate}) . " &middot; active " . $age .
    qq! &middot; $t->{viewed} view! . courtesy_s($t->{viewed});

  if ($t->{username} eq $USER->{username} || check_op($kw) || $header_args->{participation} == 2 || $USER->{ulevel} == 3)
    {
    $header_args->{subtitle} .= qq! &middot; !;
    $header_args->{subtitle} .= qq!<a href="$BUCKY/maintain/$t->{id}">options</a>!;
    }
#  else
#    {
#    $header_args->{subtitle} .=
#      qq! &middot; <a href="$BUCKY/index">go to <b>index</b></a>!;
#    }

  $header_args->{subtitle} .= qq! &middot; !;
  $header_args->{subtitle} .= qq!<span class="lite"><a href="scp://$BUCKY_FTP_USER\@$BUCKY_FTP_HOST/var/bucky/$t->{id}">download\!</a></span>!;

  my @participants = get_participants($t, $files, $comments);

  $header_args->{sidetitle} = details_participation(@participants)
    if (@participants > 0);
  $header_args->{sidesubtitle} = "<small><i>see also:</i> ".details_tags_box($t, $kw)."</small>"
    if (@{$t->{tags}});

  header($header_args);

  # 20070903 - marc - new menu args calling style
  my $menu_args;
  $menu_args->{keywords} = $kw if $kw;
  $menu_args->{ftp} = 1 if ($t->{files}+$t->{comments} + 1);
  menu( $menu_args );

  details_view($t, $kw, $comments, $files);
  footer();
  }


##############################

sub details_view
  {
  my ($t, $kw, $comments, $files) = @_;
  my ($many_jpgs, $flagged) = find_jpeg_v2($files, $t->{flagged});
  if ($many_jpgs > 6)
    {
    print qq(<center><table border=0 cellpadding=0 cellspacing=0 width="100%">);
    }
  else
    {
    print qq(<center><table border=0 cellpadding=0 cellspacing=0>);
    }

  print qq(<tr><td align=right valign=top width=440>);
     print qq(<table class="commentbox" cellpadding=0 cellspacing=0 border=0 width=440>);

  if ($flagged != -1 && $many_jpgs > 1)
    {
    print qq(<td align=center valign=middle colspan=2>);
    print_flagged_jpeg($flagged);
    print qq(</td></tr>);
    }

  sideshow_comments({ thread => $t, keyword => $kw, comments => $comments });
  print qq(<tr><td align=center valign=top colspan=2>);
  reply_form($t->{id}, $t);
  print qq(</td></tr>);
  print qq(</table>);

  if ($flagged != -1 && $many_jpgs == 1)
    {
    print qq(<td align=left valign=top colspan=2 style="padding: 10px;">);
    print_flagged_jpeg($flagged);
    }
  elsif ($many_jpgs > 1 || @$files > $many_jpgs)
    {
    print qq(<td align=left valign=top style="padding-left: 5px;">);
    }
  else
    {
    print qq(<td align=left valign=top style="padding-left: 5px;">);
    }
  if ($many_jpgs > 1)
    {
    if ($many_jpgs < 6) # && @$files == $many_jpgs)
      { image_column($files, $flagged, $many_jpgs); }
    else
      { image_gallery($files, $flagged, $many_jpgs); }
    }
  if (@$files > $many_jpgs)
    {
    if (find_mp3($files))
       {
       my $z_playlist = "/cgi-bin/bucky/playlist/$t->{id}";
       my $z_autoplay = "false";
       if (check_key($USER->{boxes}, "autoplay"))
         { $z_autoplay = "true"; }
       print <<__PLAYLIST__;
        <div id='mp3player'>LOADING MP3 PLAYER ...</div>

<script type="text/javascript" src="/js/swfobject1.js"></script>
<script type="text/javascript">
	var s2 = new SWFObject("/mediaplayer.swf", "playlist", "392", "200", "7");
	s2.addVariable("file","$z_playlist");
	s2.addVariable("shuffle","false");
	s2.addVariable("backcolor","0xEEEEEE");
	s2.addVariable("frontcolor","0x111111");
	s2.addVariable("lightcolor","0x444444");
	s2.addVariable("displayheight","0");
	s2.addVariable("width","392");
	s2.addVariable("height","200");
	s2.addVariable("volume","50");
	s2.addVariable("autostart","$z_autoplay");
	s2.write("mp3player");
</script>
__PLAYLIST__
      }
    if (check_key($t->{display}, "nfl"))  # no file list
      { ; }
    elsif (check_key($t->{display}, "ffl")) # full file list
      {
      file_list($files, 0, 1, 0);
      }
    else                  # "terse" file list
      {
      file_list($files, 0, 1, $many_jpgs);
      }
    }
  if ($ZIP_BUTTON_ENABLED && @$files > 4)
    {
    zip_this_button($t);
    }

  details_keywords_box($t, $kw);
  print "</td>";

  print qq(</tr></table></center>);
  }

sub find_mp3
  {
  my ($q) = @_;
  foreach my $f (@$q)
    { return 1 if $f->{filename} =~ /mp3$/i; }
  return 0;
  }

sub details_tags_box
  {
  my ($t, $kw) = @_;
#  my $tags = $t->{tags};
  return tags_stringify_links ( $t );
#  return join(", ", @$tags);
  }

sub details_participation
  {
  my (@participants) = @_;
  my $pcount = 0;
  my $out;

  foreach my $p (@participants)
    {
    $pcount++;
    next if ($pcount > 6);
    my $image = get_profile_image($p, $AVATAR_MED_PREFIX);
    if ($image != -1)
      {
      $out .= qq(&nbsp;);
      $out .= qq(<a href="$BUCKY/profile/$p">);
      $out .= qq(<img src="$image" width="$AVATAR_MED_WIDTH" height="$AVATAR_MED_WIDTH" border=1">);
      $out .= qq(</a>);
      }
    }
  if ($pcount > 6)
    {
    $out .= "<small>&nbsp;+&nbsp;".($pcount - 4);
    $out .= "&nbsp;$BUCKY_DUDER_NOUN";
    $out .= courtesy_s($pcount - 4);
    $out .= "</small>";
    }
  return $out;
  }

# get list of unique users posting in thread
sub get_participants
  {
  my ($t, $files, $comments) = @_;
  my %participant;
  $participant{$t->{username}} = 1000;

  foreach my $f (@$files)
    { $participant{$f->{username}}++; }
  foreach my $c (keys %$comments)
    { $participant{$comments->{$c}->{username}}++; }

  return (sort { $participant{$b} <=> $participant{$a} } (keys(%participant)));
  }

sub details_keywords_box
  {
  my ($t, $kw) = @_;
  if (defined($t->{keyword}) && !check_key($t->{display}, "kws"))
    {
    my $t = get_threads_by_keyword($t->{keyword});
    if ($t != -1)
      {
      print qq(<table border=0 cellpadding=0 cellspacing=0 class="threadmain" width="$width">);
      thread_box({ threads => $t, kw => $kw });
      print qq(</table>);
      }
    }
  }

##############################

print "Details: " . &report_time() . "\n" if $timer;