X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FLogfile.pm;h=282478f2bde33c562241ede707eccbae2ea6e3ca;hb=2627875b7d18858bc1f9f7652811e4d8c15a23eb;hp=4bec9e9c52465eaa9efc958c79ba9b06b322ad41;hpb=fb2bd066c2f8b34addafe48d62550e3033a59431;p=debian%2Famanda diff --git a/perl/Amanda/Logfile.pm b/perl/Amanda/Logfile.pm index 4bec9e9..282478f 100644 --- a/perl/Amanda/Logfile.pm +++ b/perl/Amanda/Logfile.pm @@ -1,5 +1,5 @@ # This file was automatically generated by SWIG (http://www.swig.org). -# Version 1.3.33 +# Version 1.3.35 # # Don't modify this file, modify the SWIG interface instead. @@ -92,6 +92,10 @@ sub DESTROY { *swig_status_set = *Amanda::Logfilec::find_result_t_status_set; *swig_partnum_get = *Amanda::Logfilec::find_result_t_partnum_get; *swig_partnum_set = *Amanda::Logfilec::find_result_t_partnum_set; +*swig_sec_get = *Amanda::Logfilec::find_result_t_sec_get; +*swig_sec_set = *Amanda::Logfilec::find_result_t_sec_set; +*swig_kb_get = *Amanda::Logfilec::find_result_t_kb_get; +*swig_kb_set = *Amanda::Logfilec::find_result_t_kb_set; sub new { my $pkg = shift; my $self = Amanda::Logfilec::new_find_result_t(@_); @@ -154,7 +158,7 @@ Amanda::Logfile - manage Amanda trace logs =head1 SYNOPSIS - use Amanda::Logfile qw(:logtype_t); # XXX change + use Amanda::Logfile qw(:logtype_t); use Amanda::Config qw( :getconf config_dir_relative ); for my $logfile (Amanda::Logfile::find_log()) { @@ -169,7 +173,7 @@ Amanda::Logfile - manage Amanda trace logs } Amanda::Logfile::close_logfile($log); - my @dumps = Amanda::Logfile::search_logfile("TapeLabel-001", "19780615", $logfile); + my @dumps = Amanda::Logfile::search_logfile("TapeLabel-001", "19780615", $logfile, 1); my @matching = Amanda::Logfile::dumps_match([@dumps], "myhost", "/usr", undef, undef, 0); for my $dump (@matching) { @@ -224,24 +228,33 @@ Instance variables are: =over -=item C<$timestamp> +=item C -=item C<$hostname> +=item C -=item C<$diskname> +=item C -=item C<$level> +=item C -=item C<$label> +=item C