From 62d216858f491b6b988c237f105be6e93f5f14d1 Mon Sep 17 00:00:00 2001
From: Jules <jules@asdf.us>
Date: Wed, 21 Jan 2015 00:49:03 -0500
Subject: info

---
 index.html |  5 +++--
 xdcc.pl    | 51 +++++++++++++++++++++++++++++++++++++++++++++++----
 2 files changed, 50 insertions(+), 6 deletions(-)

diff --git a/index.html b/index.html
index d12e3b6..8cfda59 100644
--- a/index.html
+++ b/index.html
@@ -6,7 +6,7 @@
 XDCC server for <tt>irssi</tt>.
 <p>
 
-Run a fileserver. People can request DCC sends over CTCP. Trusted users can upload files.
+Run a fileserver. People can request DCC sends over CTCP. Trusted users can also upload files.
 <p>
 
 Download it here! &rarr; &rarr; &rarr; <a href="xdcc.pl" style="color:blue!important"><i>xdcc.pl</i></a>
@@ -48,6 +48,7 @@ People can request files from you using these CTCP commands:
 /ctcp <i>nick</i> XDCC remove 3        <i># remove from queue</i>
 /ctcp <i>nick</i> XDCC cancel          <i># cancel file transfer</i>
 /ctcp <i>nick</i> XDCC queue
+/ctcp <i>nick</i> XDCC info 1          <i># file information</i>
 /ctcp <i>nick</i> XDCC stats
 /ctcp <i>nick</i> XDCC help
 /ctcp <i>nick</i> XDCC about</pre>
@@ -89,5 +90,5 @@ Greetings to all on #sally and thanks as always to Khaled Mardam-Bey for inventi
 <p>
 
 <hr>
+<span style="float:right"><a href="https://github.com/julescarbon/xdcc.pl/"><i>Push to Master<i></a></span>
 <i>Last updated 20 January 2015 &mdash; <a href="/dither/">Julie LaLa</a></i>
-
diff --git a/xdcc.pl b/xdcc.pl
index 33146c0..9c8f496 100644
--- a/xdcc.pl
+++ b/xdcc.pl
@@ -156,7 +156,7 @@ sub ctcp_reply {
      if ($cmd eq "get")      { xdcc_enqueue($server, $nick, $index) }
   elsif ($cmd eq "send")     { xdcc_enqueue($server, $nick, $index) }
   elsif ($cmd eq "batch")    { xdcc_batch($server, $nick, $index) }
-  elsif ($cmd eq "info")     { xdcc_info($server, $nick, $index) }
+  elsif ($cmd eq "info")     { xdcc_info_remote($server, $nick, $index) }
   elsif ($cmd eq "remove")   { xdcc_remove($server, $nick, $index) }
   elsif ($cmd eq "delete")   { xdcc_delete($server, $nick, $index) }
   elsif ($cmd eq "cancel")   { xdcc_cancel($server, $nick) }
@@ -291,12 +291,54 @@ sub xdcc_describe {
     xdcc_message( $server, $nick, 'xdcc_described', $file->{id}+1, $file->{'fn'} );
   }
 }
-sub xdcc_info {
+sub xdcc_info_remote {
   my ($server, $nick, $index) = @_;
+  my $info = xdcc_get_info(index);
+  if (! $info) { return; }
+  xdcc_message( $server, $nick, 'xdcc_stats', '#', $info->{id} );
+  xdcc_message( $server, $nick, 'xdcc_stats', 'name', $info->{name} );
+  xdcc_message( $server, $nick, 'xdcc_stats', 'date', $info->{date} );
+  xdcc_message( $server, $nick, 'xdcc_stats', 'size', $info->{size} );
+  xdcc_message( $server, $nick, 'xdcc_stats', 'desc', $info->{desc} );
+}
+sub xdcc_info {
+  my ($index) = @_;
+  my $info = xdcc_get_info(index);
+  if (! $info) { return; }
+  Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'xdcc_stats', '#', $info->{id} );
+  Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'xdcc_stats', 'name', $info->{name} );
+  Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'xdcc_stats', 'date', $info->{date} );
+  Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'xdcc_stats', 'size', $info->{size} );
+  Irssi::printformat(MSGLEVEL_CLIENTCRAP, 'xdcc_stats', 'desc', $info->{desc} );
+}
+sub xdcc_get_info {
+  my ($index) = @_;
   my $id = int $index;
-  return if (! $id);
+  return if ($id < 1 || $id > scalar @files);
   $id -= 1;
-  # get stat data
+  my $file = $files[$id];
+
+  my @stats = stat($file->{path});
+  my $size = $stats[7];
+  my $date = $stats[9];
+
+  my ($m,$h,$d,$n,$y) = (localtime $date)[1..5];
+  my @months = qw[Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec];
+  my $ymd = sprintf "%d-%s-%d %d:%02d", $d, $months[$n], 1900+$y, $h, $m;
+  
+  my $bytes;
+  if ($size < 1024) { $bytes = $size + " b." }
+  elsif ($size < 1024*1024) { $bytes = floor($size/1024) + " kb." }
+  elsif ($size < 1024*1024*1024) { $bytes = sprintf("%0.1d",floor((10*$size)/(1024*1024))) + " kb." }
+
+  return {
+    id => $id+1,
+    name => $file->{fn},
+    nick => $file->{nick},
+    date => $ymd,
+    size => $size,
+    desc => $file->{desc},
+  }
 }
 sub xdcc_list {
   my ($server, $nick) = @_;
@@ -551,6 +593,7 @@ sub xdcc {
 
      if ($cmd eq "add")      { xdcc_add($fn, $desc, $server->{nick}) }
   elsif ($cmd eq "del")      { xdcc_del($fn) }
+  elsif ($cmd eq "info")     { xdcc_info($fn) }
   elsif ($cmd eq "list")     { xdcc_report() }
   elsif ($cmd eq "reset")    { xdcc_reset() }
   elsif ($cmd eq "stats")    { xdcc_stats() }
-- 
cgit v1.2.3-70-g09d2