#! /usr/local/bin/sybperl
#
#   Run through the logs and print out if the log gets over 1000K
#   Usually run through cron
#	donp 5/3/94

require "sybperl.pl";
require "sql.pl";

#
# Log us in to Sybase.
$ENV{'SYBASE'}="/usr/sybase";
#`stty -echo`;
#print "SA password: ";
#$sapw = <>; chop($sapw); print "\n";
$sapw = "xxxxxxxx";
#`stty echo`;

#foreach $server ("CIMP") {
foreach $server ("crimson") {
$ENV{'DSQUERY'} = $server;

#$d = &dblogin("sa", $sapw.substr($server,0,1));

$d = &dblogin("sa", $sapw);

&sql($d, "use master");
@dbs = &sql($d, "select name from sysdatabases order by name");

foreach $n (@dbs) {
    &sql($d, "use $n");
    $x = join('~', &sql($d, 'sp_spaceused syslogs'));
    $x =~ s/ //g;
    $x =~ s/MB|KB//g;
    ($name, $rows, $res, $data, $index, $free ) = split("~",$x);
    write if($res > 1000);
}
  &dbclose($d);
}
format top=
Space usage for syslogs Server @<<<<<<<<<<
				$server

Name        Reserved       Data      
	                   (KB)     
------------------------------------------------------------------
. 
format stdout=
@<<<<<<<<<  @>>>>>>>>>  @>>>>>>>>  
$n,         $res,       $data
.