#!/usr/bin/perl -w
-# Copyright (C) 2000-2001 Simon Huggins
+# Copyright (C) 2000-2003 Simon Huggins
# uptime merely calls uptime. You can influence the output a bit.
# This program is free software; you can redistribute it and/or modify it
$uptime =~ s/[ ]+/ /g;
foreach my $f (@found) {
my @f = @{$f};
- if (length $uptime <= $f[1]) {
+ if ($f[1] eq "*") {
+ print OUT $uptime,"\n";
+ } elsif (length $uptime <= $f[1]) {
print OUT chunksizealign($uptime, $f[1], $f[2]),"\n";
} else {
htagdie "Can't fit uptime in <= $f[1].\nPerhaps your space isn't big enough.\nAlternatively modify this script to give less information.\n";