Forum disk space PL

[Dean B]

Terra,
Do you think if I asked you nicely you'd divulge the contents of ubbDU.pl ? I'd really like to be able to use it on some of my intended sites.

Thx, Dean.

[Deb]

ftp://ftp.aota.net/ubbDS.zip


Deb

[Dean B]

<-- adds Deb to XMas card list

Thx.

[Dean B]

Deb,
That was straightforward enough but am I right in thinking that it only totals the space used for the UBB dir and dirs below it. It doesn't total the files in the UBB's cgi-bin, as in this case /big/dom/xdmcity/cgi-bin/ubb ?

Dean.

[Justin]

How hard could that be to modify? Besides, the cgi stuff is probably less than 100k, negligable compared to 20 megs or so (haven't looked in a while ) Either way, you could just add to it, make it check both dir's and add them up

------------------
Justin Nelson
FutureQuest Support

[Dean B]

To FQ Techie Team

I amended this line -
$du = `/usr/bin/du -hs /big/dom/xdmcity/www/ubb`;

to this -
$du = (`/usr/bin/du -hs /big/dom/xdmcity/www/ubb`) + (`/usr/bin/du -hs /big/dom/xdmcity/cgi-bin/ubb`);

and it appears to work ok (lucks obviously with me today ) but I lost the 'k' at the end of the total. I'm assuming this is because it went over 1000k. I simply added a 'k' in the print line to put it back (although there's now a space between the digits and the 'k').Is it possible to force it to display in MB when it gets over 1000k ? It currently shows 1267 k, could that be rounded off to show 1.3MB or is it not worth the hassle ?
It's here - http://www.dmcity.com/cgi-bin/ubb/ubbDS.pl

Dean.
ps. Justin, the scripts themselves total 623k !

[This message has been edited by Dean B (edited 04-08-99).]

[Paul]

Hey. I like that!... but mine prints out like this:
The current disk space used by the Forums is: 810.4
Is there a way to fix this?

Thanks..
--------
Paul

[Dean B]

Hey Paul... I do hope that's 'k' and not 'mb'

[Terra]

When I wrote it for AOTA, it was quick'n'dirty...

Here is a megafy routine that I wrote for the Disk_Space CNC module...

I'm sure you'll know where to use it...

sub megafy {
my $num = shift;
my $kb = 1024;
my $mb = $kb ** 2;

#Mega routine
if ($num >= $mb) {
return sprintf('%.2f Mb', $num/$mb);
}
else {
return sprintf('%.2f kb', $num/$kb);
}
}

Just plug this in and juice it up...

--
Terra
--Unsung hero--
FutureQuest

[Terra]

Here is a commify subroutine as well...

sub commify {
local $_ = shift;
1 while s/^(-?\d+)(\d{3})/$1,$2/;
return $_;
}

--
Terra
--Do you want coffee with your sugar and cream?--
FutureQuest