#!/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>);
  print <<__PLAYER__;
<script>
(function(){

var is_mobile = /Android|webOS|iPhone|iPad|iPod|BlackBerry/i.test(navigator.userAgent)
var links = document.querySelectorAll("a")
var audio, music = [], current_index = -1, typing = false
var comment = document.querySelector("#comment")
Array.prototype.slice.apply(links).forEach(function(url){
  if (! url.href.match(/(opus|mp3|wav|ogg)/i)) return
  var index = music.length
  if (is_mobile) url.href = url.href.replace(/^https/,"http")
  music.push(url)
  url.addEventListener("click", function(e){
    if (e.ctrlKey || e.altKey || e.metaKey || e.shiftKey) return
    e.preventDefault()
    play(index)
  })
})
if (music.length) {
  audio = document.createElement("audio")
  audio.setAttribute("controls", true)
  audio.addEventListener("ended", next)
  audio.src = music[0]
  var table = document.querySelector(".main")
  table.parentNode.insertBefore(audio, table)
  document.body.addEventListener("keydown", keydown)
  comment.addEventListener("focus", focusTextBox)
  comment.addEventListener("blur", blurTextBox)
}
function play(index){
  current_index = (index + music.length) % music.length
  audio.src = music[current_index].href
  audio.play()
  var playing = document.querySelector(".playing")
  if (playing) playing.classList.remove("playing")
  music[current_index].classList.add("playing")
}
function prev(){
  play(current_index - 1)
}
function next(){
  play(current_index + 1)
}
function toggle(){
  if (audio.paused) audio.play()
  else audio.pause()
}
function keydown(e){
  if (typing || e.ctrlKey || e.altKey || e.metaKey || e.shiftKey) return
  switch (e.keyCode) {
    case 37: // left
      prev()
      break;
    case 39: // right
      next()
      break;
    case 32: // spacebar
      e.preventDefault()
      toggle()
      break;
  }
}
function focusTextBox (){ typing = true }
function blurTextBox (){ typing = false }

})()
</script>
__PLAYER__
  }

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;