Commit 905f126a authored by bnachtw's avatar bnachtw
Browse files

Apache License added, RC added

parent d26ef8ca
......@@ -11,12 +11,25 @@
# (C) 2016, 2017 GWDG Goettingen, Bjørn Nachtwey
# mailto:bjoern.nachtwey@gwdg.de
#
# Licensed under the Apache License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
##############################################################################
#
# changelog
# date version remark
# 2016-08-04 0.9 initial coding
# date version remark
# 2016-08-04 0.9 initial coding
# 2017-12-20 0.9.1 renamed, added filling tapes not used
# 2018-07-18 0.9.2 added Apache License
#
##############################################################################
......@@ -44,7 +57,7 @@ my $sizelimit_GB = $ARGV[3]; # threshold amount of data to be moved [GB]
# my $sparsetaperation = $ARGV[4]; # minimum ratio of scratch tape to start reclmation
my $libman = 'lm101'; # Name of Libman as given in dsm.sys
# list of servers to be processed:
# list of servers to be processed (names as given in "dsm.sys"):
my @serverlist = qw /tsm110 tsm113 tsm131 tsm182 tsm230 tsm231 tsm234/;
my $devc = "I1%"; # Name or pattern to look for in select
......@@ -107,10 +120,12 @@ if ($emptydrives < 2 )
die "not enough drives empty.";
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# check if emptying tapes is needed at all
# thanks to Maurice van't Loo for this idea :-)
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# check for need of emptying tapes
#t.b.d
# t.b.d :-|
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
# main loop over all servers
......@@ -148,8 +163,9 @@ VOLUME: foreach $thisvolume (@volumelist)
# order all volumes by size
if ( ! @global_volumelist )
{
printf LOGFILE "%s: nothing to do! \n", $time;
close LOGFILE;
printf LOGFILE "%s: nothing to do! \n", $time;
close LOGFILE;
exit 0;
}
shift @global_volumelist;
......@@ -176,4 +192,5 @@ ALLVOLUMES: foreach $thisvolume (@sorted_global_volumelist)
}
} # EO for (@global_volumeslist)
close LOGFILE;
close LOGFILE;
exit 0;
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment