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