Index: amanda/branches/3_3/client-src/amdump_client.pl =================================================================== --- amanda/branches/3_3/client-src/amdump_client.pl (revision 4389) +++ amanda/branches/3_3/client-src/amdump_client.pl (revision 4390) @@ -28,7 +28,7 @@ use Amanda::Util qw( :constants ); use Amanda::Config qw( :init :getconf ); use Amanda::Paths; -use Amanda::Logfile qw( log_rename get_current_log_timestamp $amanda_log_trace_log ); +use Amanda::Util qw ( match_disk ); use Amanda::Debug qw( debug ); Amanda::Util::setup_application("amdump_client", "client", $CONTEXT_CMDLINE); @@ -95,7 +95,7 @@ #find the diskname that match for (my $i=1; $i <= $#ARGV; $i++) { for my $diskname (@disks) { - if (Amanda::Logfile::match_disk($ARGV[$i], $diskname)) { + if (match_disk($ARGV[$i], $diskname)) { debug("send: DISK " . Amanda::Util::quote_string($diskname)); print {$amservice_in} "DISK " . Amanda::Util::quote_string($diskname) . "\n"; my $a = <$amservice_out>; @@ -118,7 +118,7 @@ #find the diskname that match for (my $i=1; $i <= $#ARGV; $i++) { for my $diskname (@disks) { - if (Amanda::Logfile::match_disk($ARGV[$i], $diskname)) { + if (match_disk($ARGV[$i], $diskname)) { debug("send: DISK " . Amanda::Util::quote_string($diskname)); print {$amservice_in} "DISK " . Amanda::Util::quote_string($diskname) . "\n"; my $a = <$amservice_out>; Index: amanda/branches/3_3/server-src/amvault.pl =================================================================== --- amanda/branches/3_3/server-src/amvault.pl (revision 4389) +++ amanda/branches/3_3/server-src/amvault.pl (revision 4390) @@ -108,8 +108,8 @@ use Amanda::Cmdline; use Amanda::Paths; use Amanda::Logfile qw( :logtype_t log_add log_add_full - log_rename $amanda_log_trace_log make_stats - match_datestamp match_level ); + log_rename $amanda_log_trace_log make_stats ); +use Amanda::Util qw ( match_datestamp match_level ); use base qw( Amanda::Recovery::Clerk::Feedback Index: amanda/branches/3_3/server-src/amidxtaped.pl =================================================================== --- amanda/branches/3_3/server-src/amidxtaped.pl (revision 4389) +++ amanda/branches/3_3/server-src/amidxtaped.pl (revision 4390) @@ -118,7 +118,7 @@ use Amanda::Debug qw( debug info warning ); use Amanda::MainLoop qw( :GIOCondition ); -use Amanda::Util qw( :constants ); +use Amanda::Util qw( :constants match_disk match_host ); use Amanda::Feature; use Amanda::Config qw( :init :getconf ); use Amanda::Changer; @@ -130,7 +130,6 @@ use Amanda::Recovery::Scan; use Amanda::DB::Catalog; use Amanda::Disklist; -use Amanda::Logfile qw( match_disk match_host ); # Note that this class performs its control IO synchronously. This is adequate # for this service, as it never receives unsolicited input from the remote Index: amanda/branches/3_3/server-src/amdumpd.pl =================================================================== --- amanda/branches/3_3/server-src/amdumpd.pl (revision 4389) +++ amanda/branches/3_3/server-src/amdumpd.pl (revision 4390) @@ -39,7 +39,7 @@ use Amanda::Cmdline; use Amanda::Paths; use Amanda::Disklist; -use Amanda::Logfile qw( match_disk match_host ); +use Amanda::Util qw( match_disk match_host ); # Note that this class performs its control IO synchronously. This is adequate # for this service, as it never receives unsolicited input from the remote Index: amanda/branches/3_3/perl/Amanda/Logfile.swg =================================================================== --- amanda/branches/3_3/perl/Amanda/Logfile.swg (revision 4389) +++ amanda/branches/3_3/perl/Amanda/Logfile.swg (revision 4390) @@ -251,7 +251,6 @@ amglue_export_ok( find_log search_logfile dumps_match log_rename - match_host match_disk match_datestamp match_level ); char **find_log(void); @@ -289,13 +288,6 @@ amglue_dumpspec_list *dumpspecs, gboolean ok); -/* these are actually available for clients as well, but they do not deserve - * their own perl module, so they're stuck here */ -gboolean match_host(char *pat, char *value); -gboolean match_disk(char *pat, char *value); -gboolean match_datestamp(char *pat, char *value); -gboolean match_level(char *pat, char *value); - %immutable; amanda_log_handler_t *amanda_log_trace_log; %mutable; Index: amanda/branches/3_3/perl/Amanda/DB/Catalog.pm =================================================================== --- amanda/branches/3_3/perl/Amanda/DB/Catalog.pm (revision 4389) +++ amanda/branches/3_3/perl/Amanda/DB/Catalog.pm (revision 4390) @@ -401,11 +401,10 @@ =cut -use Amanda::Logfile qw( :constants match_disk match_host - match_datestamp match_level ); +use Amanda::Logfile qw( :constants ); use Amanda::Tapelist; use Amanda::Config qw( :init :getconf config_dir_relative ); -use Amanda::Util qw( quote_string weaken_ref ); +use Amanda::Util qw( quote_string weaken_ref match_disk match_host match_datestamp match_level); use File::Glob qw( :glob ); use warnings; use strict; Index: amanda/branches/3_3/perl/Amanda/Util.pod =================================================================== --- amanda/branches/3_3/perl/Amanda/Util.pod (revision 4389) +++ amanda/branches/3_3/perl/Amanda/Util.pod (revision 4390) @@ -421,7 +421,17 @@ burp $filename, $header; These functions can (and should) be exported to the main namespace - + +=head1 MATCHING + +The following functions are available to match strings against patterns using +the rules described in amanda(8): + + match_host($pat, $str); + match_disk($pat, $str); + match_datestamp($pat, $str); + match_level($pat, $str); + =cut %} Index: amanda/branches/3_3/perl/Amanda/Logfile.pod =================================================================== --- amanda/branches/3_3/perl/Amanda/Logfile.pod (revision 4389) +++ amanda/branches/3_3/perl/Amanda/Logfile.pod (revision 4390) @@ -206,16 +206,6 @@ All of these functions can be imported by name. -=head1 MATCHING - -The following functions are available to match strings against patterns using -the rules described in amanda(8): - - match_host($pat, $str); - match_disk($pat, $str); - match_datestamp($pat, $str); - match_level($pat, $str); - =head1 DEBUG LOGGING HANDLER This package provides C<$amanda_log_trace_log>, which sends C Index: amanda/branches/3_3/perl/Amanda/Util.swg =================================================================== --- amanda/branches/3_3/perl/Amanda/Util.swg (revision 4389) +++ amanda/branches/3_3/perl/Amanda/Util.swg (revision 4390) @@ -633,6 +633,16 @@ %} +amglue_export_ok( + match_host match_disk match_datestamp match_level +); + +gboolean match_host(char *pat, char *value); +gboolean match_disk(char *pat, char *value); +gboolean match_datestamp(char *pat, char *value); +gboolean match_level(char *pat, char *value); + + /* ------------------------------------------------------------------------- * Functions below this line are only meant to be called within this module; * do not call them externally. */