admin scripts I use.

git-svn-id: svn://10.0.0.236/trunk@108080 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
kestes%walrus.com
2001-11-14 21:24:36 +00:00
parent 9434b0aefc
commit 866a37470f
2 changed files with 60 additions and 0 deletions

View File

@@ -0,0 +1,49 @@
#!#perl# #perlflags# --
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# processmail_null - A null mail handler for throwing out mail instead
# of delivering it.
# $Revision: 1.1 $
# $Date: 2001-11-14 21:24:32 $
# $Author: kestes%walrus.com $
# $Source: /home/befator/cvs/jail/cvsroot/mozilla/webtools/tinderbox2/src/bin/processmail_null,v $
# $Name: not supported by cvs2svn $
# The contents of this file are subject to the Mozilla Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/NPL/
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
#
# The Original Code is the Tinderbox build tool.
#
# The Initial Developer of the Original Code is Netscape Communications
# Corporation. Portions created by Netscape are
# Copyright (C) 1998 Netscape Communications Corporation. All
# Rights Reserved.
#
# complete rewrite by Ken Estes:
# kestes@staff.mail.com Old work.
# kestes@reefedge.com New work.
# kestes@walrus.com Home.
# Contributor(s):
# --------------------main-------------------------
{
undef $/;
my $message = <>;
exit 0;
}

View File

@@ -0,0 +1,11 @@
#!/usr/bin/perl
$t=time();
print (
"The current time on ".`hostname`. "\n".
"UnixTime: ".$t."\n".
"LocalTime: ".localtime($t)."\n".
"GMTime: ".gmtime($t)."\n".
"\n"
);