Subversion Repositories DevTools

Rev

Rev 1042 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1042 Rev 1044
Line 43... Line 43...
43 
#
 43 
#
44 
#   Options
 44 
#   Options
45 
#
 45 
#
46 
our $opt_age        = 100;                          # Keep for xxx days
 46 
our $opt_age        = 100;                          # Keep for xxx days
47 
our $opt_verbose    = 0;
 47 
our $opt_verbose    = 0;
- 
 
 48 
our $opt_info       = 0;
48 
 
 49 
 
49 
#
 50 
#
50 
#   Globals
 51 
#   Globals
51 
#
 52 
#
52 
our $needPkgs;                                  # Need these packages
 53 
our $needPkgs;                                  # Need these packages
Line 62... Line 63...
62 
# Returns         : None Zero on error
 63 
# Returns         : None Zero on error
63 
#
 64 
#
64 
 
 65 
 
65 
my $result = GetOptions (
 66 
my $result = GetOptions (
66 
                "verbose:+"     => \$opt_verbose,
 67 
                "verbose:+"     => \$opt_verbose,
- 
 
 68 
                "info:+"        => \$opt_info,
67 
                "age=i"         => \$opt_age,
 69 
                "age=i"         => \$opt_age,
68 
 
 70 
 
69 
                );
 71 
                );
70 
die ("Bad options") if ! $result;
 72 
die ("Bad options") if ! $result;
71 
 
 73 
 
Line 155... Line 157...
155 
            else
 157 
            else
156 
            {
 158 
            {
157 
                if ( $opt_verbose > 0 )
 159 
                if ( $opt_verbose > 0 )
158 
                {
 160 
                {
159 
                    my $age = -M "$vdir/$deleteTag";
 161 
                    my $age = -M "$vdir/$deleteTag";
160 
                    Log ("Package not old enough:$age: $pname $vname") ;
 162 
                    Log ("Package not old enough: $age: $pname $vname") ;
161 
                }
 163 
                }
162 
            }
 164 
            }
163 
        }
 165 
        }
164 
    }
 166 
    }
165 
}
 167 
}
Line 177... Line 179...
177 
#
 179 
#
178 
# Returns         : Nothing
 180 
# Returns         : Nothing
179 
#
 181 
#
180 
sub RemoveTagFile
 182 
sub RemoveTagFile
181 
{
 183 
{
182 
    system ("$rootDir/delete_package", '-K', @_ );
 184 
    system ("$rootDir/delete_package", '-K', @_ ) unless $opt_info;
183 
    Log ("Package marked for retention: @_");
 185 
    Log ("Package marked for retention: @_");
184 
}
 186 
}
185 
 
 187 
 
186 
sub DeletePackage
 188 
sub DeletePackage
187 
{
 189 
{
188 
    system ("$rootDir/delete_package", @_ );
 190 
    system ("$rootDir/delete_package", @_ ) unless $opt_info;
189 
    Log ("Package Deleted: @_");
 191 
    Log ("Package Deleted: @_");
190 
}
 192 
}
191 
 
 193 
 
192 
sub CreateTagFile
 194 
sub CreateTagFile
193 
{
 195 
{
194 
    system ("$rootDir/delete_package", '-T', @_ );
 196 
    system ("$rootDir/delete_package", '-T', @_ ) unless $opt_info;
195 
    Log ("Package Tagged: @_");
 197 
    Log ("Package Tagged: @_");
196 
}
 198 
}
197 
 
 199 
 
198 
#-------------------------------------------------------------------------------
 200 
#-------------------------------------------------------------------------------
199 
# Function        : Log
 201 
# Function        : Log
200 
#
 202 
#
201 
# Description     : Log action to log file
 203 
# Description     : Log action to log file
- 
 
 204 
#                   If in info mode then simply display it
202 
#
 205 
#
203 
# Inputs          : $text to log
 206 
# Inputs          : $text to log
204 
#
 207 
#
205 
# Returns         : Nothing
 208 
# Returns         : Nothing
206 
#
 209 
#
207 
sub Log
 210 
sub Log
208 
{
 211 
{
209 
	my ($text) = @_;
 212 
	my ($text) = @_;
- 
 
 213 
    if ( $opt_info )
- 
 
 214 
    {
- 
 
 215 
        print "$text\n";
- 
 
 216 
        return;
- 
 
 217 
    }
210 
 
 218 
 
211 
    my $logfile = "$metadir/pkg_purge/";
 219 
    my $logfile = "$metadir/pkg_purge/";
212 
    mkpath ($logfile);
 220 
    mkpath ($logfile);
213
221
214 
    $logfile .= strftime "pkg_purge.%Y-%m-%d.txt", localtime();
 222 
    $logfile .= strftime "pkg_purge.%Y-%m-%d.txt", localtime();