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