--- /dev/null
+# This file was automatically generated by SWIG (http://www.swig.org).
+# Version 1.3.33
+#
+# Don't modify this file, modify the SWIG interface instead.
+
+package Amanda::Logfile;
+require Exporter;
+require DynaLoader;
+@ISA = qw(Exporter DynaLoader);
+package Amanda::Logfilec;
+bootstrap Amanda::Logfile;
+package Amanda::Logfile;
+@EXPORT = qw( );
+
+# ---------- BASE METHODS -------------
+
+package Amanda::Logfile;
+
+sub TIEHASH {
+ my ($classname,$obj) = @_;
+ return bless $obj, $classname;
+}
+
+sub CLEAR { }
+
+sub FIRSTKEY { }
+
+sub NEXTKEY { }
+
+sub FETCH {
+ my ($self,$field) = @_;
+ my $member_func = "swig_${field}_get";
+ $self->$member_func();
+}
+
+sub STORE {
+ my ($self,$field,$newval) = @_;
+ my $member_func = "swig_${field}_set";
+ $self->$member_func($newval);
+}
+
+sub this {
+ my $ptr = shift;
+ return tied(%$ptr);
+}
+
+
+# ------- FUNCTION WRAPPERS --------
+
+package Amanda::Logfile;
+
+*open_logfile = *Amanda::Logfilec::open_logfile;
+*close_logfile = *Amanda::Logfilec::close_logfile;
+*get_logline = *Amanda::Logfilec::get_logline;
+*find_log = *Amanda::Logfilec::find_log;
+*search_logfile = *Amanda::Logfilec::search_logfile;
+*dumps_match = *Amanda::Logfilec::dumps_match;
+
+############# Class : Amanda::Logfile::find_result_t ##############
+
+package Amanda::Logfile::find_result_t;
+use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
+@ISA = qw( Amanda::Logfile );
+%OWNER = ();
+%ITERATORS = ();
+sub DESTROY {
+ return unless $_[0]->isa('HASH');
+ my $self = tied(%{$_[0]});
+ return unless defined $self;
+ delete $ITERATORS{$self};
+ if (exists $OWNER{$self}) {
+ Amanda::Logfilec::delete_find_result_t($self);
+ delete $OWNER{$self};
+ }
+}
+
+*swig_timestamp_get = *Amanda::Logfilec::find_result_t_timestamp_get;
+*swig_timestamp_set = *Amanda::Logfilec::find_result_t_timestamp_set;
+*swig_hostname_get = *Amanda::Logfilec::find_result_t_hostname_get;
+*swig_hostname_set = *Amanda::Logfilec::find_result_t_hostname_set;
+*swig_diskname_get = *Amanda::Logfilec::find_result_t_diskname_get;
+*swig_diskname_set = *Amanda::Logfilec::find_result_t_diskname_set;
+*swig_level_get = *Amanda::Logfilec::find_result_t_level_get;
+*swig_level_set = *Amanda::Logfilec::find_result_t_level_set;
+*swig_label_get = *Amanda::Logfilec::find_result_t_label_get;
+*swig_label_set = *Amanda::Logfilec::find_result_t_label_set;
+*swig_filenum_get = *Amanda::Logfilec::find_result_t_filenum_get;
+*swig_filenum_set = *Amanda::Logfilec::find_result_t_filenum_set;
+*swig_status_get = *Amanda::Logfilec::find_result_t_status_get;
+*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;
+sub new {
+ my $pkg = shift;
+ my $self = Amanda::Logfilec::new_find_result_t(@_);
+ bless $self, $pkg if defined($self);
+}
+
+sub DISOWN {
+ my $self = shift;
+ my $ptr = tied(%$self);
+ delete $OWNER{$ptr};
+}
+
+sub ACQUIRE {
+ my $self = shift;
+ my $ptr = tied(%$self);
+ $OWNER{$ptr} = 1;
+}
+
+
+# ------- VARIABLE STUBS --------
+
+package Amanda::Logfile;
+
+*L_BOGUS = *Amanda::Logfilec::L_BOGUS;
+*L_FATAL = *Amanda::Logfilec::L_FATAL;
+*L_ERROR = *Amanda::Logfilec::L_ERROR;
+*L_WARNING = *Amanda::Logfilec::L_WARNING;
+*L_INFO = *Amanda::Logfilec::L_INFO;
+*L_SUMMARY = *Amanda::Logfilec::L_SUMMARY;
+*L_START = *Amanda::Logfilec::L_START;
+*L_FINISH = *Amanda::Logfilec::L_FINISH;
+*L_DISK = *Amanda::Logfilec::L_DISK;
+*L_DONE = *Amanda::Logfilec::L_DONE;
+*L_PART = *Amanda::Logfilec::L_PART;
+*L_PARTPARTIAL = *Amanda::Logfilec::L_PARTPARTIAL;
+*L_SUCCESS = *Amanda::Logfilec::L_SUCCESS;
+*L_PARTIAL = *Amanda::Logfilec::L_PARTIAL;
+*L_FAIL = *Amanda::Logfilec::L_FAIL;
+*L_STRANGE = *Amanda::Logfilec::L_STRANGE;
+*L_CHUNK = *Amanda::Logfilec::L_CHUNK;
+*L_CHUNKSUCCESS = *Amanda::Logfilec::L_CHUNKSUCCESS;
+*L_STATS = *Amanda::Logfilec::L_STATS;
+*L_MARKER = *Amanda::Logfilec::L_MARKER;
+*L_CONT = *Amanda::Logfilec::L_CONT;
+*P_UNKNOWN = *Amanda::Logfilec::P_UNKNOWN;
+*P_PLANNER = *Amanda::Logfilec::P_PLANNER;
+*P_DRIVER = *Amanda::Logfilec::P_DRIVER;
+*P_REPORTER = *Amanda::Logfilec::P_REPORTER;
+*P_DUMPER = *Amanda::Logfilec::P_DUMPER;
+*P_CHUNKER = *Amanda::Logfilec::P_CHUNKER;
+*P_TAPER = *Amanda::Logfilec::P_TAPER;
+*P_AMFLUSH = *Amanda::Logfilec::P_AMFLUSH;
+
+@EXPORT_OK = ();
+%EXPORT_TAGS = ();
+
+=head1 NAME
+
+Amanda::Logfile - manage Amanda trace logs
+
+=head1 SYNOPSIS
+
+ use Amanda::Logfile qw(:logtype_t); # XXX change
+ use Amanda::Config qw( :getconf config_dir_relative );
+
+ for my $logfile (Amanda::Logfile::find_log()) {
+ $logfile = config_dir_relative(getconf($CNF_LOGDIR)) . "/" . $logfile;
+
+ my $hdl = Amanda::Logfile::open_logfile($logfile);
+ while (my ($type, $prog, $str) = Amanda::Logfile::get_logline($hdl)) {
+ if ($type == $L_INFO) {
+ my $pname = Amanda::Logfile::program_t_to_string($prog);
+ print "Found info line from $pname: $str\n";
+ }
+ }
+ Amanda::Logfile::close_logfile($log);
+
+ my @dumps = Amanda::Logfile::search_logfile("TapeLabel-001", "19780615", $logfile);
+
+ my @matching = Amanda::Logfile::dumps_match([@dumps], "myhost", "/usr", undef, undef, 0);
+ for my $dump (@matching) {
+ print "$dump->{'label'}:$dump->{'filenum'} = $dump->{'hostname'}:$dump->{'disk'}\n";
+ }
+ }
+
+=head1 API STATUS
+
+Stabilizing
+
+=head1 RAW LOGFILE ACCESS
+
+This section corresponds to the C C<logfile> module.
+
+Raw access to logfiles is accomplished by opening a logfile and
+fetching log lines one by one via the C<get_logline> function.
+
+A log line is represented by a list C<($type, $prog, $string)>
+where C<$type> is one of the C<L_*> constants (available in export
+tag C<logtype_t>), C<$prog> is one of the C<P_*> constants (available
+in export tag C<program_t>), and C<$str> is the remainder of the line.
+
+Both families of constants can be converted to symbolic names with
+C<logtype_t_to_string> and C<program_t_to_string>, respectively.
+
+=head2 FUNCTIONS
+
+=over
+
+=item C<open_logfile($filename)>
+
+Opens a logfile for reading, returning an opaque log file handle.
+
+=item C<close_logfile($handle)>
+
+Closes a log file handle.
+
+=item C<get_logline($handle)>
+
+Return a list as described above representing the next log line in
+C<$handle>, or nothing at the end of the logfile.
+
+=back
+
+All of these functions can be imported by name if desired.
+
+=head1 Amanda::Find::find_result_t objects
+
+These objects contain information about dumps, as read from logfiles.
+Instance variables are:
+
+=over
+
+=item C<$timestamp>
+
+=item C<$hostname>
+
+=item C<$diskname>
+
+=item C<$level>
+
+=item C<$label>
+
+=item C<$filenum>
+
+=item C<$status>
+
+=item C<$partnum>
+
+=back
+
+=head1 HIGHER-LEVEL FUNCTIONS
+
+Functions in this section extract information from logfiles.
+
+=over
+
+=item C<find_log()>
+
+Return a list of logfiles for active tapes. The tapelist must be loaded before
+this function is called (see L<Amanda::Tapelist>).
+
+=item C<search_logfile($label, $datestamp, $logfile, $add_missing_disks)>
+
+Return all results in C<$logfile> matching C<$label> and C<$datestamp>.
+If C<$add_missing_disks> is true, then any disks in the logfile
+not present in the disklist are added to the disklist; otherwise,
+such dumps are skipped.
+
+=item C<dumps_match([@results], $hostname, $diskname, $datestamp, $level, $ok)>
+
+Return a filtered version of C<@results> containing only results that match the
+given expressions. If C<$ok> is true, don't match partial results. Note that
+C<$level> is given as a string, since it is a match expression.
+
+All of these functions can be imported by name.
+
+=cut
+
+push @EXPORT_OK, qw(open_logfile get_logline close_logfile);
+
+push @EXPORT_OK, qw(logtype_t_to_string);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw(logtype_t_to_string);
+
+my %_logtype_t_VALUES;
+#Convert an enum value to a single string
+sub logtype_t_to_string {
+ my ($enumval) = @_;
+
+ for my $k (keys %_logtype_t_VALUES) {
+ my $v = $_logtype_t_VALUES{$k};
+
+ #is this a matching flag?
+ if ($enumval == $v) {
+ return $k;
+ }
+ }
+
+#default, just return the number
+ return $enumval;
+}
+
+push @EXPORT_OK, qw($L_BOGUS);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_BOGUS);
+
+$_logtype_t_VALUES{"L_BOGUS"} = $L_BOGUS;
+
+push @EXPORT_OK, qw($L_FATAL);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_FATAL);
+
+$_logtype_t_VALUES{"L_FATAL"} = $L_FATAL;
+
+push @EXPORT_OK, qw($L_ERROR);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_ERROR);
+
+$_logtype_t_VALUES{"L_ERROR"} = $L_ERROR;
+
+push @EXPORT_OK, qw($L_WARNING);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_WARNING);
+
+$_logtype_t_VALUES{"L_WARNING"} = $L_WARNING;
+
+push @EXPORT_OK, qw($L_INFO);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_INFO);
+
+$_logtype_t_VALUES{"L_INFO"} = $L_INFO;
+
+push @EXPORT_OK, qw($L_SUMMARY);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_SUMMARY);
+
+$_logtype_t_VALUES{"L_SUMMARY"} = $L_SUMMARY;
+
+push @EXPORT_OK, qw($L_START);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_START);
+
+$_logtype_t_VALUES{"L_START"} = $L_START;
+
+push @EXPORT_OK, qw($L_FINISH);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_FINISH);
+
+$_logtype_t_VALUES{"L_FINISH"} = $L_FINISH;
+
+push @EXPORT_OK, qw($L_DISK);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_DISK);
+
+$_logtype_t_VALUES{"L_DISK"} = $L_DISK;
+
+push @EXPORT_OK, qw($L_DONE);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_DONE);
+
+$_logtype_t_VALUES{"L_DONE"} = $L_DONE;
+
+push @EXPORT_OK, qw($L_PART);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_PART);
+
+$_logtype_t_VALUES{"L_PART"} = $L_PART;
+
+push @EXPORT_OK, qw($L_PARTPARTIAL);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_PARTPARTIAL);
+
+$_logtype_t_VALUES{"L_PARTPARTIAL"} = $L_PARTPARTIAL;
+
+push @EXPORT_OK, qw($L_SUCCESS);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_SUCCESS);
+
+$_logtype_t_VALUES{"L_SUCCESS"} = $L_SUCCESS;
+
+push @EXPORT_OK, qw($L_PARTIAL);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_PARTIAL);
+
+$_logtype_t_VALUES{"L_PARTIAL"} = $L_PARTIAL;
+
+push @EXPORT_OK, qw($L_FAIL);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_FAIL);
+
+$_logtype_t_VALUES{"L_FAIL"} = $L_FAIL;
+
+push @EXPORT_OK, qw($L_STRANGE);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_STRANGE);
+
+$_logtype_t_VALUES{"L_STRANGE"} = $L_STRANGE;
+
+push @EXPORT_OK, qw($L_CHUNK);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_CHUNK);
+
+$_logtype_t_VALUES{"L_CHUNK"} = $L_CHUNK;
+
+push @EXPORT_OK, qw($L_CHUNKSUCCESS);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_CHUNKSUCCESS);
+
+$_logtype_t_VALUES{"L_CHUNKSUCCESS"} = $L_CHUNKSUCCESS;
+
+push @EXPORT_OK, qw($L_STATS);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_STATS);
+
+$_logtype_t_VALUES{"L_STATS"} = $L_STATS;
+
+push @EXPORT_OK, qw($L_MARKER);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_MARKER);
+
+$_logtype_t_VALUES{"L_MARKER"} = $L_MARKER;
+
+push @EXPORT_OK, qw($L_CONT);
+push @{$EXPORT_TAGS{"logtype_t"}}, qw($L_CONT);
+
+$_logtype_t_VALUES{"L_CONT"} = $L_CONT;
+
+push @EXPORT_OK, qw(program_t_to_string);
+push @{$EXPORT_TAGS{"program_t"}}, qw(program_t_to_string);
+
+my %_program_t_VALUES;
+#Convert an enum value to a single string
+sub program_t_to_string {
+ my ($enumval) = @_;
+
+ for my $k (keys %_program_t_VALUES) {
+ my $v = $_program_t_VALUES{$k};
+
+ #is this a matching flag?
+ if ($enumval == $v) {
+ return $k;
+ }
+ }
+
+#default, just return the number
+ return $enumval;
+}
+
+push @EXPORT_OK, qw($P_UNKNOWN);
+push @{$EXPORT_TAGS{"program_t"}}, qw($P_UNKNOWN);
+
+$_program_t_VALUES{"P_UNKNOWN"} = $P_UNKNOWN;
+
+push @EXPORT_OK, qw($P_PLANNER);
+push @{$EXPORT_TAGS{"program_t"}}, qw($P_PLANNER);
+
+$_program_t_VALUES{"P_PLANNER"} = $P_PLANNER;
+
+push @EXPORT_OK, qw($P_DRIVER);
+push @{$EXPORT_TAGS{"program_t"}}, qw($P_DRIVER);
+
+$_program_t_VALUES{"P_DRIVER"} = $P_DRIVER;
+
+push @EXPORT_OK, qw($P_REPORTER);
+push @{$EXPORT_TAGS{"program_t"}}, qw($P_REPORTER);
+
+$_program_t_VALUES{"P_REPORTER"} = $P_REPORTER;
+
+push @EXPORT_OK, qw($P_DUMPER);
+push @{$EXPORT_TAGS{"program_t"}}, qw($P_DUMPER);
+
+$_program_t_VALUES{"P_DUMPER"} = $P_DUMPER;
+
+push @EXPORT_OK, qw($P_CHUNKER);
+push @{$EXPORT_TAGS{"program_t"}}, qw($P_CHUNKER);
+
+$_program_t_VALUES{"P_CHUNKER"} = $P_CHUNKER;
+
+push @EXPORT_OK, qw($P_TAPER);
+push @{$EXPORT_TAGS{"program_t"}}, qw($P_TAPER);
+
+$_program_t_VALUES{"P_TAPER"} = $P_TAPER;
+
+push @EXPORT_OK, qw($P_AMFLUSH);
+push @{$EXPORT_TAGS{"program_t"}}, qw($P_AMFLUSH);
+
+$_program_t_VALUES{"P_AMFLUSH"} = $P_AMFLUSH;
+
+push @EXPORT_OK, qw(find_log search_logfile dumps_match);
+1;
projects / debian / amanda / blobdiff