kmig.d/bin/mig-export

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use DBI;
   7 use Data::Dumper;
   8 use Env qw(
   9     HOME MYSQL_HOST MYSQL_TCP_PORT MYSQL_USER MYSQL_DATABASE MYSQL_PW
  10         MIGSCHEMA MIGBASEWORKDIR MIGBASEGITDIR MIGGITDIR MIGWORKDIR
  11 );
  12 use open ':encoding(utf8)';
  13 use Cwd 'abs_path';
  14 use Cwd qw(getcwd);
  15 use FindBin;
  16 my $mig_bin = "$FindBin::Bin/";
  17 use lib "$FindBin::Bin/";
  18 use XML::Writer;
  19 use open ':std', ':encoding(UTF-8)';
  20 use Encode qw( decode_utf8 );
  21 use KMig;
  22
  23 my $dbh = KMig::db_connect();
  24 $dbh->{mysql_enable_utf8mb4} = 1;
  25
  26 #to do check for array passed and if not present then use tags
  27
  28 my @taglist = @ARGV;
  29 my $arg_list_length = scalar @taglist;
  30 if($arg_list_length < 1) { @taglist = ("authorisedvalues","booksellers","budgets","borrowerattributes","calendar","circrules","itemtypes","letters","libraries","patrontypes","preferences","reports","smsproviders"); }
  31 $MIGGITDIR =~ s/\/\//\//;
  32
  33 my $timestamp = create_timestamp();
  34
  35 foreach my $backup (@taglist) {
  36     my $backupfile;
  37     if ($backup eq 'authorisedvalues') {
  38         $backupfile = $MIGGITDIR . 'authorisedvalues' . '.' . $timestamp . '.xml';
  39         print "Backing up $backupfile ... \n";
  40         backup_authorisedvalues($dbh,$backupfile);
  41     }
  42     if ($backup eq 'booksellers') {
  43         $backupfile = $MIGGITDIR . 'booksellers' . '.' . $timestamp . '.xml';
  44         print "Backing up $backupfile ... \n";
  45         backup_booksellers($dbh,$backupfile);
  46     }
  47     if ($backup eq 'borrowerattributes') {
  48         $backupfile = $MIGGITDIR . 'borrowerattributes' . '.' . $timestamp . '.xml';
  49         print "Backing up $backupfile ... \n";
  50             backup_borrower_attributes($dbh,$backupfile);
  51     }
  52     if ($backup eq 'budgets') {
  53         $backupfile = $MIGGITDIR . 'budgets' . '.' . $timestamp . '.xml';
  54         print "Backing up $backupfile ... \n";
  55         backup_budgets($dbh,$backupfile);
  56     }
  57     if ($backup eq 'calendar') {
  58         $backupfile = $MIGGITDIR . 'calendar' . '.' . $timestamp . '.xml';
  59         print "Backing up $backupfile ... \n";
  60         backup_calendar($dbh,$backupfile);
  61     }
  62     if ($backup eq 'circrules') {
  63         $backupfile = $MIGGITDIR . 'circrules' . '.' . $timestamp . '.xml';
  64         print "Backing up $backupfile ... \n";
  65         backup_circrules($dbh,$backupfile);
  66     }
  67     if ($backup eq 'itemtypes') {
  68         $backupfile = $MIGGITDIR . 'itemtypes' . '.' . $timestamp . '.xml';
  69         print "Backing up $backupfile ... \n";
  70         backup_itemtypes($dbh,$backupfile);
  71     }
  72     if ($backup eq 'letters') {
  73         $backupfile = $MIGGITDIR . 'letters' . '.' . $timestamp . '.xml';
  74         print "Backing up $backupfile ... \n";
  75         backup_letters($dbh,$backupfile);
  76     }
  77     if ($backup eq 'libraries') {
  78         $backupfile = $MIGGITDIR . 'libraries' . '.' . $timestamp . '.xml';
  79         print "Backing up $backupfile ... \n";
  80         backup_libraries($dbh,$backupfile);
  81     }
  82     if ($backup eq 'patrontypes') {
  83         $backupfile = $MIGGITDIR . 'patrontypes' . '.' . $timestamp . '.xml';
  84         print "Backing up $backupfile ... \n";
  85         backup_patrontypes($dbh,$backupfile);
  86     }
  87     if ($backup eq 'preferences') {
  88         $backupfile = $MIGGITDIR . 'systempreferences' . '.' . $timestamp . '.xml';
  89         print "Backing up $backupfile ... \n";
  90         backup_preferences($dbh,$backupfile);
  91     }
  92     if ($backup eq 'reports') {
  93         $backupfile = $MIGGITDIR . 'reports' . '.' . $timestamp . '.xml';
  94         print "Backing up $backupfile ... \n";
  95         backup_reports($dbh,$backupfile);
  96     }
  97     if ($backup eq 'smsproviders') {
  98         $backupfile = $MIGGITDIR . 'smsproviders' . '.' . $timestamp . '.xml';
  99         print "Backing up $backupfile ... \n";
 100         backup_smsproviders($dbh,$backupfile);
 101     }
 102 }
 103
 104 sub backup_authorisedvalues {
 105     my $dbh = shift;
 106     my $backupfile = shift;
 107
 108     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 109     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 110     $xml->xmlDecl('UTF-8');
 111     $xml->startTag('document');
 112
 113     $xml->startTag('authorisedvalues');
 114     my $query = "SELECT category,authorised_value,lib,lib_opac,imageurl FROM authorised_values WHERE category != 'ITEMTYPECAT'";
 115     my $sth = $dbh->prepare($query);
 116     $sth->execute();
 117     while (my @row = $sth->fetchrow_array) {
 118         $xml->startTag('value');
 119         $xml->dataElement('category', $row[0]);
 120         $xml->dataElement('authorised_value', $row[1]);
 121         $xml->dataElement('lib', $row[2]);
 122         $xml->dataElement('lib_opac', $row[3]);
 123         $xml->dataElement('imageurl', $row[4]);
 124         $xml->endTag('value');
 125     }
 126     $xml->endTag('authorisedvalues');
 127
 128     $xml->startTag('categories');
 129     $query = "SELECT category_name FROM authorised_value_categories WHERE category_name != 'ITEMTYPECAT'";
 130     $sth = $dbh->prepare($query);
 131     $sth->execute();
 132     while (my @row = $sth->fetchrow_array) {
 133         $xml->startTag('value');
 134         $xml->dataElement('name', $row[0]);
 135         $xml->endTag('value');
 136     }
 137     $xml->endTag('categories');
 138
 139     $xml->endTag('document');
 140     $xml->end();
 141     close $fh;
 142     return;
 143 }
 144
 145 sub backup_booksellers {
 146     my $dbh = shift;
 147     my $backupfile = shift;
 148
 149     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 150     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 151     $xml->xmlDecl('UTF-8');
 152     $xml->startTag('booksellers');
 153     my $query = "SELECT name,address1,address2,address3,address4,phone,accountnumber,othersupplier,currency,booksellerfax,notes,bookselleremail,booksellerurl,postal,url,active,listprice,invoiceprice,gstreg,listincgst,invoiceincgst,tax_rate,discount,fax,deliverytime FROM aqbooksellers";
 154     my $sth = $dbh->prepare($query);
 155     $sth->execute();
 156     while (my @row = $sth->fetchrow_array) {
 157         $xml->startTag('value');
 158         $xml->dataElement('name', $row[1]);
 159         $xml->dataElement('address1', $row[2]);
 160         $xml->dataElement('address2', $row[3]);
 161         $xml->dataElement('address3', $row[4]);
 162         $xml->dataElement('address4', $row[5]);
 163         $xml->dataElement('phone', $row[6]);
 164         $xml->dataElement('accountnumber', $row[7]);
 165         $xml->dataElement('othersupplier', $row[8]);
 166         $xml->dataElement('currency', $row[9]);
 167         $xml->dataElement('booksellerfax', $row[10]);
 168         $xml->dataElement('notes', $row[11]);
 169         $xml->dataElement('bookselleremail', $row[12]);
 170         $xml->dataElement('booksellerurl', $row[13]);
 171         $xml->dataElement('postal', $row[14]);
 172         $xml->dataElement('url', $row[15]);
 173         $xml->dataElement('active', $row[16]);
 174         $xml->dataElement('listprice', $row[17]);
 175         $xml->dataElement('invoiceprice ', $row[18]);
 176         $xml->dataElement('gstreg', $row[19]);
 177         $xml->dataElement('listincgst', $row[20]);
 178         $xml->dataElement('invoiceincgst', $row[21]);
 179         $xml->dataElement('tax_rate', $row[22]);
 180         $xml->dataElement('discount', $row[23]);
 181         $xml->dataElement('fax ', $row[24]);
 182         $xml->dataElement('deliverytime', $row[25]);
 183         $xml->endTag('value');
 184     }
 185     $xml->endTag('booksellers');
 186     $xml->end();
 187     close $fh;
 188     return;
 189 }
 190
 191 sub backup_borrower_attributes {
 192     my $dbh = shift;
 193     my $backupfile = shift;
 194
 195     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 196     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 197     $xml->xmlDecl('UTF-8');
 198     $xml->startTag('document');
 199
 200     $xml->startTag('borrower_attribute_types');
 201     my $query = "SELECT code,description,repeatable,opac_display,opac_editable,staff_searchable,authorised_value_category,display_checkout,category_code,class FROM borrower_attribute_types";
 202     my $sth = $dbh->prepare($query);
 203     $sth->execute();
 204     while (my @row = $sth->fetchrow_array) {
 205         $xml->startTag('value');
 206         $xml->dataElement('code', $row[0]);
 207         $xml->dataElement('description', $row[1]);
 208         $xml->dataElement('repeat', $row[2]);
 209         $xml->dataElement('opac_display', $row[3]);
 210         $xml->dataElement('staff_searchable', $row[4]);
 211         $xml->dataElement('auth_value_cat', $row[5]);
 212         $xml->dataElement('display_checkout', $row[6]);
 213         $xml->dataElement('category_code', $row[7]);
 214         $xml->dataElement('class', $row[8]);
 215         $xml->endTag('value');
 216     }
 217     $xml->endTag('borrower_attribute_types');
 218
 219     $xml->startTag('authorised_value_categories');
 220     $query = "SELECT category_name FROM authorised_value_categories WHERE category_name IN (select category_name from borrower_attribute_types)";
 221     $sth = $dbh->prepare($query);
 222     $sth->execute();
 223     while (my @row = $sth->fetchrow_array) {
 224         $xml->dataElement('value', $row[0]);
 225     }
 226     $xml->endTag('authorised_value_categories');
 227
 228     $xml->startTag('authorised_values');
 229     $query = "SELECT category,authorised_value,lib,lib_opac,imageurl FROM authorised_values where category in (select category_code from borrower_attribute_types);";
 230     $sth = $dbh->prepare($query);
 231     $sth->execute();
 232     while (my @row = $sth->fetchrow_array) {
 233         $xml->startTag('value');
 234         $xml->dataElement('category', $row[0]);
 235         $xml->dataElement('authvalue', $row[1]);
 236         $xml->dataElement('lib', $row[2]);
 237         $xml->dataElement('lib_opac', $row[3]);
 238         $xml->dataElement('image_url', $row[4]);
 239         $xml->endTag('value');
 240     }
 241     $xml->endTag('authorised_values');
 242
 243     $xml->endTag('document');
 244     $xml->end();
 245     close $fh;
 246     return;
 247 }
 248
 249 sub backup_budgets {
 250     my $dbh = shift;
 251     my $backupfile = shift;
 252
 253     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 254     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 255     $xml->xmlDecl('UTF-8');
 256     $xml->startTag('document');
 257
 258     $xml->startTag('budgets');
 259     my $query = 'SELECT AUTO_INCREMENT FROM information_schema.TABLES WHERE TABLE_NAME = "aqbudgets"';
 260     my $sth = $dbh->prepare($query);
 261     $sth->execute();
 262     my @ai = $sth->fetchrow_array;
 263     $xml->dataElement('autoincrement', $ai[0]);
 264     $query = "SELECT budget_id,budget_parent_id,budget_code,budget_name,budget_branchcode,budget_amount,budget_encumb,budget_expend,budget_notes,timestamp,budget_period_id,sort1_authcat,sort2_authcat,budget_owner_id,budget_permission FROM aqbudgets";
 265     $sth = $dbh->prepare($query);
 266     $sth->execute();
 267     while (my @row = $sth->fetchrow_array) {
 268         $xml->startTag('value');
 269         $xml->dataElement('budget_id', $row[0]);
 270         $xml->dataElement('budget_parent_id', $row[1]);
 271         $xml->dataElement('budget_code', $row[2]);
 272         $xml->dataElement('budget_name', $row[3]);
 273         $xml->dataElement('budget_branchcode', $row[4]);
 274         $xml->dataElement('budget_amount', $row[5]);
 275         $xml->dataElement('budget_encumb', $row[6]);
 276         $xml->dataElement('budget_expend', $row[7]);
 277         $xml->dataElement('budget_notes', $row[8]);
 278         $xml->dataElement('timestamp', $row[9]);
 279         $xml->dataElement('budget_period_id', $row[10]);
 280         $xml->dataElement('sort1_authcat', $row[11]);
 281         $xml->dataElement('sort2_authcat', $row[12]);
 282         $xml->dataElement('budget_owner_id', $row[13]);
 283         $xml->dataElement('budget_permission', $row[14]);
 284         $xml->endTag('value');
 285     }
 286     $xml->endTag('budgets');
 287
 288     $xml->startTag('budgetperiods');
 289     $query = 'SELECT AUTO_INCREMENT FROM information_schema.TABLES WHERE TABLE_NAME = "aqbudgetperiods"';
 290     $sth = $dbh->prepare($query);
 291     $sth->execute();
 292     @ai = $sth->fetchrow_array;
 293     $xml->dataElement('autoincrement', $ai[0]);
 294     $query = "SELECT budget_period_id,budget_period_startdate,budget_period_enddate,budget_period_active,budget_period_description,budget_period_total,budget_period_locked,sort1_authcat,sort2_authcat FROM aqbudgetperiods";
 295     $sth = $dbh->prepare($query);
 296     $sth->execute();
 297     while (my @row = $sth->fetchrow_array) {
 298         $xml->startTag('value');
 299         $xml->dataElement('budget_period_id', $row[0]);
 300         $xml->dataElement('budget_period_startdate', $row[1]);
 301         $xml->dataElement('budget_period_enddate', $row[2]);
 302         $xml->dataElement('budget_period_active', $row[3]);
 303         $xml->dataElement('budget_period_description', $row[4]);
 304         $xml->dataElement('budget_period_total', $row[5]);
 305         $xml->dataElement('budget_period_locked', $row[6]);
 306         $xml->dataElement('sort1_authcat', $row[7]);
 307         $xml->dataElement('sort2_authcat', $row[8]);
 308         $xml->endTag('value');
 309     }
 310     $xml->endTag('budgetperiods');
 311
 312     $xml->endTag('document');
 313     $xml->end();
 314     close $fh;
 315     return;
 316 }
 317
 318 sub backup_calendar {
 319     my $dbh = shift;
 320     my $backupfile = shift;
 321
 322     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 323     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 324     $xml->xmlDecl('UTF-8');
 325     $xml->startTag('holidays');
 326
 327     my $query = "SELECT branchcode,weekday,day,month,title,description FROM repeatable_holidays";
 328     my $sth = $dbh->prepare($query);
 329     $sth->execute();
 330     while (my @row = $sth->fetchrow_array) {
 331         $xml->startTag('repeatable');
 332         $xml->dataElement('branchcode',$row[0]);
 333         $xml->dataElement('weekday',$row[1]);
 334         $xml->dataElement('day',$row[2]);
 335         $xml->dataElement('month',$row[3]);
 336         $xml->dataElement('title',$row[4]);
 337         $xml->dataElement('description',$row[5]);
 338         $xml->endTag('repeatable');
 339     }
 340
 341     $query = "SELECT branchcode,day,month,year,isexception,title,description FROM special_holidays";
 342     $sth = $dbh->prepare($query);
 343     $sth->execute();
 344     while (my @row = $sth->fetchrow_array) {
 345         $xml->startTag('special');
 346         $xml->dataElement('branchcode',$row[0]);
 347         $xml->dataElement('day',$row[1]);
 348         $xml->dataElement('month',$row[2]);
 349         $xml->dataElement('year',$row[3]);
 350         $xml->dataElement('isexception',$row[4]);
 351         $xml->dataElement('title',$row[5]);
 352         $xml->dataElement('description',$row[6]);
 353         $xml->endTag('special');
 354     }
 355
 356     $xml->endTag('holidays');
 357     $xml->end();
 358     close $fh;
 359     return;
 360 }
 361
 362 sub backup_circrules {
 363     my $dbh = shift;
 364     my $backupfile = shift;
 365
 366     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 367     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 368     $xml->xmlDecl('UTF-8');
 369     $xml->startTag('document');
 370
 371     $xml->startTag('circ');
 372     my $query = "SELECT branchcode, categorycode, itemtype, rule_name, rule_value FROM circulation_rules";
 373     my $sth = $dbh->prepare($query);
 374     $sth->execute();
 375     while (my @row = $sth->fetchrow_array) {
 376         $xml->startTag('rule');
 377         $xml->dataElement('branchcode', $row[0]);
 378         $xml->dataElement('categorycode', $row[1]);
 379         $xml->dataElement('itemtype', $row[2]);
 380         $xml->dataElement('rule_name', $row[3]);
 381         $xml->dataElement('rule_value', $row[4]);
 382         $xml->endTag('rule');
 383     }
 384     $xml->endTag('circ');
 385
 386     $xml->startTag('issuing');
 387     $query = "SELECT categorycode,itemtype,restrictedtype,rentaldiscount,reservecharge,fine,finedays,maxsuspensiondays,suspension_chargeperiod,firstremind,chargeperiod,chargeperiod_charge_at,accountsent,issuelength,lengthunit,hardduedate,hardduedatecompare,renewalsallowed,renewalperiod,norenewalbefore,auto_renew,no_auto_renewal_after,no_auto_renewal_after_hard_limit,reservesallowed,holds_per_record,holds_per_day,branchcode,overduefinescap,cap_fine_to_replacement_price,onshelfholds,opacitemholds,article_requests,note FROM issuingrules";
 388     $sth = $dbh->prepare($query);
 389     $sth->execute();
 390     while (my @row = $sth->fetchrow_array) {
 391         $xml->startTag('rule');
 392         $xml->dataElement('categorycode', $row[0]);
 393         $xml->dataElement('itemtype', $row[1]);
 394         $xml->dataElement('restrictedtype', $row[2]);
 395         $xml->dataElement('rentaldiscount', $row[3]);
 396         $xml->dataElement('reservecharge', $row[4]);
 397         $xml->dataElement('fine', $row[5]);
 398         $xml->dataElement('finedays', $row[6]);
 399         $xml->dataElement('maxsuspensiondays', $row[7]);
 400         $xml->dataElement('suspension_chargeperiod', $row[8]);
 401         $xml->dataElement('firstremind', $row[9]);
 402         $xml->dataElement('chargeperiod', $row[10]);
 403         $xml->dataElement('chargeperiod_charge_at', $row[11]);
 404         $xml->dataElement('accountsent', $row[12]);
 405         $xml->dataElement('issuelength', $row[13]);
 406         $xml->dataElement('lengthunit', $row[14]);
 407         $xml->dataElement('hardduedate', $row[15]);
 408         $xml->dataElement('hardduedatecompare', $row[16]);
 409         $xml->dataElement('renewalsallowed', $row[17]);
 410         $xml->dataElement('renewalperiod', $row[18]);
 411         $xml->dataElement('norenewalbefore', $row[19]);
 412         $xml->dataElement('auto_renew', $row[20]);
 413         $xml->dataElement('no_auto_renewal_after', $row[21]);
 414         $xml->dataElement('no_auto_renewal_after_hard_limit', $row[22]);
 415         $xml->dataElement('reservesallowed', $row[23]);
 416         $xml->dataElement('holds_per_record', $row[24]);
 417         $xml->dataElement('holds_per_day', $row[25]);
 418         $xml->dataElement('branchcode', $row[26]);
 419         $xml->dataElement('overduefinescap', $row[27]);
 420         $xml->dataElement('cap_fine_to_replacement_price', $row[28]);
 421         $xml->dataElement('onshelfholds', $row[29]);
 422         $xml->dataElement('opacitemholds', $row[30]);
 423         $xml->dataElement('article_requests', $row[31]);
 424         $xml->dataElement('note', $row[32]);
 425         $xml->endTag('rule');
 426     }
 427     $xml->endTag('issuing');
 428
 429     $xml->endTag('document');
 430     $xml->end();
 431     close $fh;
 432     return;
 433 }
 434
 435
 436 sub backup_itemtypes {
 437     my $dbh = shift;
 438     my $backupfile = shift;
 439
 440     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 441     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 442     $xml->xmlDecl('UTF-8');
 443     $xml->startTag('document');
 444
 445     $xml->startTag('itemtypes');
 446     my $query = "SELECT itemtype, description, rentalcharge, rentalcharge_daily, rentalcharge_hourly, defaultreplacecost, processfee, notforloan, imageurl, summary, checkinmsg, checkinmsgtype, sip_media_type, hideinopac, searchcategory FROM itemtypes";
 447     my $sth = $dbh->prepare($query);
 448     $sth->execute();
 449     while (my @row = $sth->fetchrow_array) {
 450         $xml->startTag('value');
 451         $xml->dataElement('itemtype', $row[0]);
 452         $xml->dataElement('description', $row[1]);
 453         $xml->dataElement('rentalcharge', $row[2]);
 454         $xml->dataElement('rentalcharge_daily', $row[3]);
 455         $xml->dataElement('rentalcharge_hourly', $row[4]);
 456         $xml->dataElement('defaultreplacecost', $row[5]);
 457         $xml->dataElement('processfee', $row[6]);
 458         $xml->dataElement('notforloan', $row[7]);
 459         $xml->dataElement('imageurl', $row[8]);
 460         $xml->dataElement('summary', $row[9]);
 461         $xml->dataElement('checkinmsg', $row[10]);
 462         $xml->dataElement('checkinmsgtype', $row[11]);
 463         $xml->dataElement('sip_media_type', $row[12]);
 464         $xml->dataElement('hideinopac', $row[13]);
 465         $xml->dataElement('searchcategory', $row[14]);
 466         $xml->endTag('value');
 467     }
 468     $xml->endTag('itemtypes');
 469
 470     $xml->startTag('authorised_values');
 471     $query = "SELECT category,authorised_value,lib,lib_opac,imageurl FROM authorised_values where category = 'ITEMTYPECAT';";
 472     $sth = $dbh->prepare($query);
 473     $sth->execute();
 474     while (my @row = $sth->fetchrow_array) {
 475         $xml->startTag('value');
 476         $xml->dataElement('category', $row[0]);
 477         $xml->dataElement('authvalue', $row[1]);
 478         $xml->dataElement('lib', $row[2]);
 479         $xml->dataElement('lib_opac', $row[3]);
 480         $xml->dataElement('image_url', $row[4]);
 481         $xml->endTag('value');
 482     }
 483     $xml->endTag('authorised_values');
 484
 485     $xml->startTag('localizations');
 486     $query = "SELECT entity, code, lang, translation FROM localization WHERE entity = 'itemtypes';";
 487     $sth = $dbh->prepare($query);
 488     $sth->execute();
 489     while (my @row = $sth->fetchrow_array) {
 490         $xml->startTag('value');
 491         $xml->dataElement('entity', $row[0]);
 492         $xml->dataElement('code', $row[1]);
 493         $xml->dataElement('lang', $row[2]);
 494         $xml->dataElement('translation', $row[3]);
 495         $xml->endTag('value');
 496     }
 497     $xml->endTag('localizations');
 498
 499     $xml->endTag('document');
 500     $xml->end();
 501     close $fh;
 502     return;
 503 }
 504
 505 sub backup_letters {
 506     my $dbh = shift;
 507     my $backupfile = shift;
 508
 509     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 510     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 511     $xml->xmlDecl('UTF-8');
 512     $xml->startTag('letters');
 513
 514     my $query = "SELECT module,code,branchcode,name,is_html,title,content,message_transport_type,lang FROM letter";
 515     my $sth = $dbh->prepare($query);
 516     $sth->execute();
 517     while (my @row = $sth->fetchrow_array) {
 518         $xml->startTag('letter');
 519         $xml->dataElement('module',$row[0]);
 520         $xml->dataElement('code',$row[1]);
 521         $xml->dataElement('branchcode',$row[2]);
 522         $xml->dataElement('name',$row[3]);
 523         $xml->dataElement('is_html',$row[4]);
 524         $xml->dataElement('title',$row[5]);
 525         $xml->dataElement('content',$row[6]);
 526         $xml->dataElement('message_transport_type',$row[7]);
 527         $xml->dataElement('lang',$row[8]);
 528         $xml->endTag('letter');
 529     }
 530
 531     $xml->endTag('letters');
 532     $xml->end();
 533     close $fh;
 534     return;
 535 }
 536
 537 sub backup_libraries {
 538     my $dbh = shift;
 539     my $backupfile = shift;
 540
 541     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 542     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 543     $xml->xmlDecl('UTF-8');
 544     $xml->startTag('libraries');
 545
 546     my $query = "SELECT id,parent_id,branchcode,title,description,ft_hide_patron_info,ft_search_groups_opac,ft_search_groups_staff FROM library_groups";
 547     my $sth = $dbh->prepare($query);
 548     $sth->execute();
 549     while (my @row = $sth->fetchrow_array) {
 550         $xml->startTag('library_group');
 551         $xml->dataElement('id',$row[0]);
 552         $xml->dataElement('parent_id',$row[1]);
 553         $xml->dataElement('branchcode',$row[2]);
 554         $xml->dataElement('title',$row[3]);
 555         $xml->dataElement('description',$row[4]);
 556         $xml->dataElement('ft_hide_patron_info',$row[5]);
 557         $xml->dataElement('ft_search_groups_opac',$row[6]);
 558         $xml->dataElement('ft_search_groups_staff',$row[7]);
 559         $xml->endTag('library_group');
 560     }
 561
 562     $query = "SELECT branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchzip,branchcity,branchstate,branchcountry,branchphone,branchfax,branchemail,branchreplyto,branchreturnpath,branchurl,issuing,branchip,branchprinter,branchnotes,opac_info,geolocation,marcorgcode,pickup_location FROM branches";
 563     $sth = $dbh->prepare($query);
 564     $sth->execute();
 565     while (my @row = $sth->fetchrow_array) {
 566         $xml->startTag('library');
 567         $xml->dataElement('branchcode',$row[0]);
 568         $xml->dataElement('branchname',$row[1]);
 569         $xml->dataElement('branchaddress1',$row[2]);
 570         $xml->dataElement('branchaddress2',$row[3]);
 571         $xml->dataElement('branchaddress3',$row[4]);
 572         $xml->dataElement('branchzip',$row[5]);
 573         $xml->dataElement('branchcity',$row[6]);
 574         $xml->dataElement('branchstate',$row[7]);
 575         $xml->dataElement('branchcountry',$row[8]);
 576         $xml->dataElement('branchphone',$row[9]);
 577         $xml->dataElement('branchfax',$row[10]);
 578         $xml->dataElement('branchemail',$row[11]);
 579         $xml->dataElement('branchreplyto',$row[12]);
 580         $xml->dataElement('branchreturnpath',$row[13]);
 581         $xml->dataElement('branchurl',$row[14]);
 582         $xml->dataElement('issuing',$row[15]);
 583         $xml->dataElement('branchip',$row[16]);
 584         $xml->dataElement('branchprinter',$row[17]);
 585         $xml->dataElement('branchnotes',$row[18]);
 586         $xml->dataElement('opac_info',$row[19]);
 587         $xml->dataElement('geolocation',$row[20]);
 588         $xml->dataElement('marcorgcode',$row[21]);
 589         $xml->dataElement('pickup_location',$row[22]);
 590         $xml->endTag('library');
 591     }
 592
 593     $xml->endTag('libraries');
 594     $xml->end();
 595     close $fh;
 596     return;
 597 }
 598
 599 sub backup_patrontypes {
 600     my $dbh = shift;
 601     my $backupfile = shift;
 602
 603     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 604     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 605     $xml->xmlDecl('UTF-8');
 606     $xml->startTag('patron');
 607     my $query = "SELECT categorycode,description,enrolmentperiod,enrolmentperioddate,upperagelimit,dateofbirthrequired,finetype,bulk,enrolmentfee,overduenoticerequired,issuelimit,reservefee,hidelostitems,category_type,BlockExpiredPatronOpacActions,default_privacy,checkprevcheckout,reset_password,change_password FROM categories";
 608     my $sth = $dbh->prepare($query);
 609     $sth->execute();
 610     while (my @row = $sth->fetchrow_array) {
 611         $xml->startTag('category');
 612         $xml->dataElement('categorycode',$row[0]);
 613         $xml->dataElement('description',$row[1]);
 614         $xml->dataElement('enrolmentperiod',$row[2]);
 615         $xml->dataElement('enrolmentperioddate',$row[3]);
 616         $xml->dataElement('upperagelimit',$row[4]);
 617         $xml->dataElement('dateofbirthrequired',$row[5]);
 618         $xml->dataElement('finetype',$row[6]);
 619         $xml->dataElement('bulk',$row[7]);
 620         $xml->dataElement('enrolmentfee',$row[8]);
 621         $xml->dataElement('overduenoticerequired',$row[9]);
 622         $xml->dataElement('issuelimit',$row[10]);
 623         $xml->dataElement('reservefee',$row[11]);
 624         $xml->dataElement('hidelostitems',$row[12]);
 625         $xml->dataElement('category_type',$row[13]);
 626         $xml->dataElement('BlockExpiredPatronOpacActions',$row[14]);
 627         $xml->dataElement('default_privacy',$row[15]);
 628         $xml->dataElement('checkprevcheckout',$row[16]);
 629         $xml->dataElement('reset_password',$row[17]);
 630         $xml->dataElement('change_password',$row[18]);
 631         $xml->endTag('category');
 632     }
 633     $xml->endTag('patron');
 634     $xml->end();
 635     close $fh;
 636     return;
 637 }
 638
 639 sub backup_preferences {
 640     my $dbh = shift;
 641     my $backupfile = shift;
 642
 643     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 644     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 645     $xml->xmlDecl('UTF-8');
 646     $xml->startTag('preferences');
 647     my $query = "SELECT variable,value FROM systempreferences WHERE value != '' AND value IS NOT NULL";
 648     my $sth = $dbh->prepare($query);
 649     $sth->execute();
 650     while (my @row = $sth->fetchrow_array) {
 651         $xml->startTag('pref');
 652         $xml->dataElement('variable',$row[0]);
 653         $xml->dataElement('value',$row[1]);
 654         $xml->endTag('pref');
 655     }
 656     $xml->endTag('preferences');
 657     $xml->end();
 658     close $fh;
 659     return;
 660 }
 661
 662 sub backup_reports {
 663     my $dbh = shift;
 664     my $backupfile = shift;
 665
 666     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 667     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 668     $xml->xmlDecl('UTF-8');
 669     $xml->startTag('reports');
 670
 671     my $query = "SELECT s.date_created, s.last_modified, s.savedsql, s.report_name, s.type, s.notes, s.cache_expiry, s.public, s.report_area, s.report_group, s.report_subgroup, b.userid FROM saved_sql s LEFT JOIN borrowers b ON b.borrowernumber = s.borrowernumber";
 672     my $sth = $dbh->prepare($query);
 673     $sth->execute();
 674     while (my @row = $sth->fetchrow_array) {
 675         $xml->startTag('sqlreport');
 676         $xml->dataElement('date_created',$row[0]);
 677         $xml->dataElement('last_modified',$row[1]);
 678         $xml->dataElement('savedsql',$row[2]);
 679         $xml->dataElement('report_name',$row[3]);
 680         $xml->dataElement('type',$row[4]);
 681         $xml->dataElement('notes',$row[5]);
 682         $xml->dataElement('cache_expiry',$row[6]);
 683         $xml->dataElement('public',$row[7]);
 684         $xml->dataElement('report_area',$row[8]);
 685         $xml->dataElement('report_group',$row[9]);
 686         $xml->dataElement('report_subgroup',$row[10]);
 687         $xml->dataElement('userid',$row[11]);
 688         $xml->endTag('sqlreport');
 689     }
 690
 691     $xml->endTag('reports');
 692     $xml->end();
 693     close $fh;
 694     return;
 695 }
 696
 697 sub backup_smsproviders {
 698     my $dbh = shift;
 699     my $backupfile = shift;
 700
 701     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 702     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 703     $xml->xmlDecl('UTF-8');
 704     $xml->startTag('sms');
 705     my $query = "SELECT name,domain FROM sms_providers";
 706     my $sth = $dbh->prepare($query);
 707     $sth->execute();
 708     while (my @row = $sth->fetchrow_array) {
 709         $xml->startTag('provider');
 710         $xml->dataElement('name',$row[0]);
 711         $xml->dataElement('domain',$row[1]);
 712         $xml->endTag('provider');
 713     }
 714     $xml->endTag('sms');
 715     $xml->end();
 716     close $fh;
 717     return;
 718 }
 719
 720
 721 sub create_timestamp {
 722     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 723     $year += 1900;
 724     $mon = sprintf("%02s",$mon);
 725     $mday = sprintf("%02s",$mday);
 726     $hour = sprintf("%02s",$hour);
 727     $min = sprintf("%02s",$min);
 728     $sec = sprintf("%02s",$sec);
 729     my $str = "$year$mon$mday$hour$min$sec";
 730     return $str;
 731 }
 732
 733 sub abort {
 734     my $msg = shift;
 735     print STDERR "$0: $msg", "\n";
 736     print_usage();
 737     exit 1;
 738 }
 739
 740 sub print_usage {
 741     print <<_USAGE_;
 742
 743     mig export foo_a foo_b foo_c
 744
 745 _USAGE_
 746 }
 747