X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FUtil.pm;h=1443cb5307bcda39c1214a70d1339b133335c7da;hb=refs%2Ftags%2Fupstream%2F3.3.1;hp=2334e5775485674e1e7fb3940357ea8e0fcc0a7a;hpb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;p=debian%2Famanda

diff --git a/perl/Amanda/Util.pm b/perl/Amanda/Util.pm
index 2334e57..1443cb5 100644
--- a/perl/Amanda/Util.pm
+++ b/perl/Amanda/Util.pm
@@ -1,5 +1,5 @@
 # This file was automatically generated by SWIG (http://www.swig.org).
-# Version 1.3.39
+# Version 2.0.4
 #
 # Do not make changes to this file unless you know what you are doing--modify
 # the SWIG interface file instead.
@@ -67,6 +67,10 @@ package Amanda::Util;
 *stream_server = *Amanda::Utilc::stream_server;
 *stream_accept = *Amanda::Utilc::stream_accept;
 *check_security = *Amanda::Utilc::check_security;
+*match_host = *Amanda::Utilc::match_host;
+*match_disk = *Amanda::Utilc::match_disk;
+*match_datestamp = *Amanda::Utilc::match_datestamp;
+*match_level = *Amanda::Utilc::match_level;
 *set_pname = *Amanda::Utilc::set_pname;
 *get_pname = *Amanda::Utilc::get_pname;
 *set_ptype = *Amanda::Utilc::set_ptype;
@@ -542,7 +546,17 @@ function always completely overwrites the file.
   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
 
 
@@ -955,6 +969,8 @@ sub unmarshal_tapespec {
 }
 
 
+push @EXPORT_OK, qw(match_host match_disk match_datestamp match_level);
+
 sub check_std_fds {
     fcntl(STDIN, F_GETFD, 0) or critical("Standard input is not open");
     fcntl(STDOUT, F_GETFD, 0) or critical("Standard output is not open");