#!/usr/bin/perl
#########################################
# services_f
#   feeds bPod the file list for a valid thread
#########################################

use localbucky;

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

our $KWAREZ = $BUCKY_CONFIG->{BPOD_SERVICES_WAREZ_DIR};

our ($USER, $lastlog) = checkin();

our $logged_in = ($USER != -1);

# this start/end shit is all broken anyway
#my $start = $input->{s};
#my $end = $input->{e};
my $pid = $input->{pid};

print "Content-type: text/html\r\n\r\n";

my $thread = get_thread( $pid );
my $keyword = get_keyword( $thread->{keyword} );
exit unless check_privacy( $thread, $keyword );

my $files = get_files( $pid );

my $numItems = @$files;

my $returnString = " &numItems=" . ($numItems );

@$files = sort{ lc($a->{filename}) cmp lc($b->{filename}) } @$files;

my $fileCount = 0;
foreach my $file_row (@$files)
	{
	$returnString .= "&filetype$fileCount=" . fileEXT($file_row->{filename});
	$returnString .= "&filename$fileCount=" . lc($file_row->{filename});
	$returnString .= "&username$fileCount=" . $file_row->{username};
	$returnString .= "&date$fileCount=" . $file_row->{date};
	$returnString .= "&url$fileCount=" . $KWAREZ . $file_row->{thread} ."/". spaceReplace($file_row->{filename});
	$returnString .= "&size$fileCount=" . sizeinK($file_row->{size});
	$fileCount++;
	}
print $returnString ;

exit;

sub fileEXT
	{
	my $filename = shift;
	$filename =~ s/.+\.//;
	return uc($filename);
	}
sub spaceReplace
	{
	my $filename = shift;
	$filename =~ s/\ /\%20/g;
	return $filename;
	}
sub sizeinK
	{
	my $bytes = shift;
	my $size = $bytes / 1024;
	if ( $size < 1024 )
		{
		$size = sprintf "%2.2f", $size;
		$size .= "k";
		}
	elsif ( $size / 1024 < 1024 ) 
		{
		$size = sprintf "%2.2f", $size / 1024;
		$size .= "mb";
		}
	elsif ( $size / 1024 / 1024 < 1024 )
		{
		$size = sprintf "%2.2f", $size / 1024 / 1024;
		$size .= " GB";
		}
	return $size;
	}