X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FHeader.swg;h=a7d391b630246cf6c0de37835f12729e2e3c1c57;hb=cbd38c3886af26bd4f51c6eb2513d4f07639718b;hp=b224d38fc2b8e7a243102d35900e9fa08d261169;hpb=011a59f5a54864108a16af570a6b287410597cc2;p=debian%2Famanda

diff --git a/perl/Amanda/Header.swg b/perl/Amanda/Header.swg
index b224d38..a7d391b 100644
--- a/perl/Amanda/Header.swg
+++ b/perl/Amanda/Header.swg
@@ -148,6 +148,12 @@ sub from_string {
     return C_from_string(@_);
 }
 
+sub get_dle {
+    my $self = shift;
+
+    return Amanda::Header::HeaderXML->new($self->{'dle_str'});
+}
+
 package Amanda::Header::Header;
 
 # point $hdr->matches_dumpspecs() to Amanda::Cmdline::header_matches_dumpspecs.  When
@@ -159,3 +165,60 @@ sub matches_dumpspecs {
 
 package Amanda::Header;
 %}
+
+%{
+#include "amxml.h"
+%}
+
+%rename(HeaderXML) dle_t;
+typedef struct {
+    char   *disk;
+    char   *device;
+    int     program_is_application_api;
+    char   *program;
+    estimatelist_t estimatelist;
+    int     spindle;
+    int     compress;
+    int     encrypt;
+    int     kencrypt;
+    levellist_t levellist;
+    int     nb_level;
+    char   *dumpdate;
+    char   *compprog;
+    char   *srv_encrypt;
+    char   *clnt_encrypt;
+    char   *srv_decrypt_opt;
+    char   *clnt_decrypt_opt;
+    int     record;
+    int     create_index;
+    char   *auth;
+    sl_t   *exclude_file;
+    sl_t   *exclude_list;
+    sl_t   *include_file;
+    sl_t   *include_list;
+    int     exclude_optional;
+    int     include_optional;
+    proplist_t application_property;
+    scriptlist_t scriptlist;
+    data_path_t  data_path;
+    GSList      *directtcp_list;
+    struct a_dle_s *next;
+
+    %extend {
+	/* constructor */
+	dle_t(char *dle_str) {
+	    char  *errmsg = NULL;
+	    dle_t *dle;
+	    dle = amxml_parse_node_CHAR(dle_str, &errmsg);
+	    amfree(errmsg);
+	    
+	    return dle;
+	}
+
+	/* destructor */
+	~dle_t(void) {
+	    amfree(self);
+	}
+    }
+} dle_t;
+