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","calendar","circrules","itemtypes","libraries","patrontypes","preferences","reports","smsproviders"); } #borrowerattributes
  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 'borrowerattributes') {
  43         $backupfile = $MIGGITDIR . 'borrower_attributes' . '.' . $timestamp . '.xml';
  44         print "Backing up $backupfile ... \n";
  45         backup_borrower_attributes($dbh,$backupfile);
  46     }
  47     if ($backup eq 'calendar') {
  48         $backupfile = $MIGGITDIR . 'calendar' . '.' . $timestamp . '.xml';
  49         print "Backing up $backupfile ... \n";
  50         backup_calendar($dbh,$backupfile);
  51     }
  52     if ($backup eq 'circrules') {
  53         $backupfile = $MIGGITDIR . 'circrules' . '.' . $timestamp . '.xml';
  54         print "Backing up $backupfile ... \n";
  55         backup_circrules($dbh,$backupfile);
  56     }
  57     if ($backup eq 'itemtypes') {
  58         $backupfile = $MIGGITDIR . 'itemtypes' . '.' . $timestamp . '.xml';
  59         print "Backing up $backupfile ... \n";
  60         backup_itemtypes($dbh,$backupfile);
  61     }
  62     if ($backup eq 'libraries') {
  63         $backupfile = $MIGGITDIR . 'libraries' . '.' . $timestamp . '.xml';
  64         print "Backing up $backupfile ... \n";
  65         backup_libraries($dbh,$backupfile);
  66     }
  67     if ($backup eq 'patrontypes') {
  68         $backupfile = $MIGGITDIR . 'patrontypes' . '.' . $timestamp . '.xml';
  69         print "Backing up $backupfile ... \n";
  70         backup_patrontypes($dbh,$backupfile);
  71     }
  72     if ($backup eq 'preferences') {
  73         $backupfile = $MIGGITDIR . 'systempreferences' . '.' . $timestamp . '.xml';
  74         print "Backing up $backupfile ... \n";
  75         backup_preferences($dbh,$backupfile);
  76     }
  77     if ($backup eq 'reports') {
  78         $backupfile = $MIGGITDIR . 'reports' . '.' . $timestamp . '.xml';
  79         print "Backing up $backupfile ... \n";
  80         backup_reports($dbh,$backupfile);
  81     }
  82     if ($backup eq 'smsproviders') {
  83         $backupfile = $MIGGITDIR . 'smsproviders' . '.' . $timestamp . '.xml';
  84         print "Backing up $backupfile ... \n";
  85         backup_smsproviders($dbh,$backupfile);
  86     }
  87 }
  88
  89 sub backup_authorisedvalues {
  90     my $dbh = shift;
  91     my $backupfile = shift;
  92
  93     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
  94     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
  95     $xml->xmlDecl('UTF-8');
  96     $xml->startTag('authorisedvalues');
  97     my $query = "SELECT category,authorised_value,lib,lib_opac,imageurl FROM authorised_values WHERE category != 'ITEMTYPECAT'";
  98     my $sth = $dbh->prepare($query);
  99     $sth->execute();
 100     while (my @row = $sth->fetchrow_array) {
 101         $xml->startTag('value');
 102         $xml->dataElement('category', $row[0]);
 103         $xml->dataElement('authorised_value', $row[1]);
 104         $xml->dataElement('lib', $row[2]);
 105         $xml->dataElement('lib_opac', $row[3]);
 106         $xml->dataElement('imageurl', $row[4]);
 107         $xml->endTag('value');
 108     }
 109     $xml->endTag('authorisedvalues');
 110     $xml->end();
 111     close $fh;
 112     return;
 113 }
 114
 115 sub backup_borrower_attributes {
 116     my $dbh = shift;
 117     my $backupfile = shift;
 118
 119     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 120     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 121     $xml->xmlDecl('UTF-8');
 122     $xml->startTag('document');
 123
 124     $xml->startTag('borrower_attribute_types');
 125     my $query = "SELECT code,description,repeatable,opac_display,opac_editable,staff_searchable,authorised_value_category,display_checkout,category_code,class FROM borrower_attribute_types";
 126     my $sth = $dbh->prepare($query);
 127     $sth->execute();
 128     while (my @row = $sth->fetchrow_array) {
 129         $xml->startTag('value');
 130         $xml->dataElement('code', $row[0]);
 131         $xml->dataElement('description', $row[1]);
 132         $xml->dataElement('repeat', $row[2]);
 133         $xml->dataElement('opac_display', $row[3]);
 134         $xml->dataElement('staff_searchable', $row[4]);
 135         $xml->dataElement('auth_value_cat', $row[5]);
 136         $xml->dataElement('display_checkout', $row[6]);
 137         $xml->dataElement('category_code', $row[7]);
 138         $xml->dataElement('class', $row[8]);
 139         $xml->endTag('value');
 140     }
 141     $xml->endTag('borrower_attribute_types');
 142
 143     $xml->startTag('authorised_value_categories');
 144     $query = "SELECT category_name FROM authorised_value_categories WHERE category_name IN (select category_name from borrower_attribute_types)";
 145     $sth = $dbh->prepare($query);
 146     $sth->execute();
 147     while (my @row = $sth->fetchrow_array) {
 148         $xml->dataElement('value', $row[0]);
 149     }
 150     $xml->endTag('authorised_value_categories');
 151
 152     $xml->startTag('authorised_values');
 153     $query = "SELECT category,authorised_value,lib,lib_opac,imageurl FROM authorised_values where category in (select category_code from borrower_attribute_types);";
 154     $sth = $dbh->prepare($query);
 155     $sth->execute();
 156     while (my @row = $sth->fetchrow_array) {
 157         $xml->startTag('value');
 158         $xml->dataElement('category', $row[0]);
 159         $xml->dataElement('authvalue', $row[1]);
 160         $xml->dataElement('lib', $row[2]);
 161         $xml->dataElement('lib_opac', $row[3]);
 162         $xml->dataElement('image_url', $row[4]);
 163         $xml->endTag('value');
 164     }
 165     $xml->endTag('authorised_values');
 166
 167     $xml->endTag('document');
 168     $xml->end();
 169     close $fh;
 170     return;
 171 }
 172
 173 sub backup_calendar {
 174     my $dbh = shift;
 175     my $backupfile = shift;
 176
 177     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 178     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 179     $xml->xmlDecl('UTF-8');
 180     $xml->startTag('holidays');
 181
 182     my $query = "SELECT branchcode,weekday,day,month,title,description FROM repeatable_holidays";
 183     my $sth = $dbh->prepare($query);
 184     $sth->execute();
 185     while (my @row = $sth->fetchrow_array) {
 186         $xml->startTag('repeatable');
 187         $xml->dataElement('branchcode',$row[0]);
 188         $xml->dataElement('weekday',$row[1]);
 189         $xml->dataElement('day',$row[2]);
 190         $xml->dataElement('month',$row[3]);
 191         $xml->dataElement('title',$row[4]);
 192         $xml->dataElement('description',$row[5]);
 193         $xml->endTag('repeatable');
 194     }
 195
 196     $query = "SELECT branchcode,day,month,year,isexception,title,description FROM special_holidays";
 197     $sth = $dbh->prepare($query);
 198     $sth->execute();
 199     while (my @row = $sth->fetchrow_array) {
 200         $xml->startTag('special');
 201         $xml->dataElement('branchcode',$row[0]);
 202         $xml->dataElement('day',$row[1]);
 203         $xml->dataElement('month',$row[2]);
 204         $xml->dataElement('year',$row[3]);
 205         $xml->dataElement('isexception',$row[4]);
 206         $xml->dataElement('title',$row[5]);
 207         $xml->dataElement('description',$row[6]);
 208         $xml->endTag('special');
 209     }
 210
 211     $xml->endTag('holidays');
 212     $xml->end();
 213     close $fh;
 214     return;
 215 }
 216
 217 sub backup_circrules {
 218     my $dbh = shift;
 219     my $backupfile = shift;
 220
 221     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 222     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 223     $xml->xmlDecl('UTF-8');
 224     $xml->startTag('document');
 225
 226     $xml->startTag('circ');
 227     my $query = "SELECT branchcode, categorycode, itemtype, rule_name, rule_value FROM circulation_rules";
 228     my $sth = $dbh->prepare($query);
 229     $sth->execute();
 230     while (my @row = $sth->fetchrow_array) {
 231         $xml->startTag('rule');
 232         $xml->dataElement('branchcode', $row[0]);
 233         $xml->dataElement('categorycode', $row[1]);
 234         $xml->dataElement('itemtype', $row[2]);
 235         $xml->dataElement('rule_name', $row[3]);
 236         $xml->dataElement('rule_value', $row[4]);
 237         $xml->endTag('rule');
 238     }
 239     $xml->endTag('circ');
 240
 241     $xml->startTag('issuing');
 242     $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";
 243     $sth = $dbh->prepare($query);
 244     $sth->execute();
 245     while (my @row = $sth->fetchrow_array) {
 246         $xml->startTag('rule');
 247         $xml->dataElement('categorycode', $row[0]);
 248         $xml->dataElement('itemtype', $row[1]);
 249         $xml->dataElement('restrictedtype', $row[2]);
 250         $xml->dataElement('rentaldiscount', $row[3]);
 251         $xml->dataElement('reservecharge', $row[4]);
 252         $xml->dataElement('fine', $row[5]);
 253         $xml->dataElement('finedays', $row[6]);
 254         $xml->dataElement('maxsuspensiondays', $row[7]);
 255         $xml->dataElement('suspension_chargeperiod', $row[8]);
 256         $xml->dataElement('firstremind', $row[9]);
 257         $xml->dataElement('chargeperiod', $row[10]);
 258         $xml->dataElement('chargeperiod_charge_at', $row[11]);
 259         $xml->dataElement('accountsent', $row[12]);
 260         $xml->dataElement('issuelength', $row[13]);
 261         $xml->dataElement('lengthunit', $row[14]);
 262         $xml->dataElement('hardduedate', $row[15]);
 263         $xml->dataElement('hardduedatecompare', $row[16]);
 264         $xml->dataElement('renewalsallowed', $row[17]);
 265         $xml->dataElement('renewalperiod', $row[18]);
 266         $xml->dataElement('norenewalbefore', $row[19]);
 267         $xml->dataElement('auto_renew', $row[20]);
 268         $xml->dataElement('no_auto_renewal_after', $row[21]);
 269         $xml->dataElement('no_auto_renewal_after_hard_limit', $row[22]);
 270         $xml->dataElement('reservesallowed', $row[23]);
 271         $xml->dataElement('holds_per_record', $row[24]);
 272         $xml->dataElement('holds_per_day', $row[25]);
 273         $xml->dataElement('branchcode', $row[26]);
 274         $xml->dataElement('overduefinescap', $row[27]);
 275         $xml->dataElement('cap_fine_to_replacement_price', $row[28]);
 276         $xml->dataElement('onshelfholds', $row[29]);
 277         $xml->dataElement('opacitemholds', $row[30]);
 278         $xml->dataElement('article_requests', $row[31]);
 279         $xml->dataElement('note', $row[32]);
 280         $xml->endTag('rule');
 281     }
 282     $xml->endTag('issuing');
 283
 284     $xml->endTag('document');
 285     $xml->end();
 286     close $fh;
 287     return;
 288 }
 289
 290
 291 sub backup_itemtypes {
 292     my $dbh = shift;
 293     my $backupfile = shift;
 294
 295     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 296     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 297     $xml->xmlDecl('UTF-8');
 298     $xml->startTag('document');
 299
 300     $xml->startTag('itemtypes');
 301     my $query = "SELECT itemtype, description, rentalcharge, rentalcharge_daily, rentalcharge_hourly, defaultreplacecost, processfee, notforloan, imageurl, summary, checkinmsg, checkinmsgtype, sip_media_type, hideinopac, searchcategory FROM itemtypes";
 302     my $sth = $dbh->prepare($query);
 303     $sth->execute();
 304     while (my @row = $sth->fetchrow_array) {
 305         $xml->startTag('value');
 306         $xml->dataElement('itemtype', $row[0]);
 307         $xml->dataElement('description', $row[1]);
 308         $xml->dataElement('rentalcharge', $row[2]);
 309         $xml->dataElement('rentalcharge_daily', $row[3]);
 310         $xml->dataElement('rentalcharge_hourly', $row[4]);
 311         $xml->dataElement('defaultreplacecost', $row[5]);
 312         $xml->dataElement('processfee', $row[6]);
 313         $xml->dataElement('notforloan', $row[7]);
 314         $xml->dataElement('imageurl', $row[8]);
 315         $xml->dataElement('summary', $row[9]);
 316         $xml->dataElement('checkinmsg', $row[10]);
 317         $xml->dataElement('checkinmsgtype', $row[11]);
 318         $xml->dataElement('sip_media_type', $row[12]);
 319         $xml->dataElement('hideinopac', $row[13]);
 320         $xml->dataElement('searchcategory', $row[14]);
 321         $xml->endTag('value');
 322     }
 323     $xml->endTag('itemtypes');
 324
 325     $xml->startTag('authorised_values');
 326     $query = "SELECT category,authorised_value,lib,lib_opac,imageurl FROM authorised_values where category = 'ITEMTYPECAT';";
 327     $sth = $dbh->prepare($query);
 328     $sth->execute();
 329     while (my @row = $sth->fetchrow_array) {
 330         $xml->startTag('value');
 331         $xml->dataElement('category', $row[0]);
 332         $xml->dataElement('authvalue', $row[1]);
 333         $xml->dataElement('lib', $row[2]);
 334         $xml->dataElement('lib_opac', $row[3]);
 335         $xml->dataElement('image_url', $row[4]);
 336         $xml->endTag('value');
 337     }
 338     $xml->endTag('authorised_values');
 339
 340     $xml->startTag('localizations');
 341     $query = "SELECT entity, code, lang, translation FROM localization WHERE entity = 'itemtypes';";
 342     $sth = $dbh->prepare($query);
 343     $sth->execute();
 344     while (my @row = $sth->fetchrow_array) {
 345         $xml->startTag('value');
 346         $xml->dataElement('entity', $row[0]);
 347         $xml->dataElement('code', $row[1]);
 348         $xml->dataElement('lang', $row[2]);
 349         $xml->dataElement('translation', $row[3]);
 350         $xml->endTag('value');
 351     }
 352     $xml->endTag('localizations');
 353
 354     $xml->endTag('document');
 355     $xml->end();
 356     close $fh;
 357     return;
 358 }
 359
 360 sub backup_libraries {
 361     my $dbh = shift;
 362     my $backupfile = shift;
 363
 364     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 365     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 366     $xml->xmlDecl('UTF-8');
 367     $xml->startTag('libraries');
 368
 369     my $query = "SELECT id,parent_id,branchcode,title,description,ft_hide_patron_info,ft_search_groups_opac,ft_search_groups_staff FROM library_groups";
 370     my $sth = $dbh->prepare($query);
 371     $sth->execute();
 372     while (my @row = $sth->fetchrow_array) {
 373         $xml->startTag('library_group');
 374         $xml->dataElement('id',$row[0]);
 375         $xml->dataElement('parent_id',$row[1]);
 376         $xml->dataElement('branchcode',$row[2]);
 377         $xml->dataElement('title',$row[3]);
 378         $xml->dataElement('description',$row[4]);
 379         $xml->dataElement('ft_hide_patron_info',$row[5]);
 380         $xml->dataElement('ft_search_groups_opac',$row[6]);
 381         $xml->dataElement('ft_search_groups_staff',$row[7]);
 382         $xml->endTag('library_group');
 383     }
 384
 385     $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";
 386     $sth = $dbh->prepare($query);
 387     $sth->execute();
 388     while (my @row = $sth->fetchrow_array) {
 389         $xml->startTag('library');
 390         $xml->dataElement('branchcode',$row[0]);
 391         $xml->dataElement('branchname',$row[1]);
 392         $xml->dataElement('branchaddress1',$row[2]);
 393         $xml->dataElement('branchaddress2',$row[3]);
 394         $xml->dataElement('branchaddress3',$row[4]);
 395         $xml->dataElement('branchzip',$row[5]);
 396         $xml->dataElement('branchcity',$row[6]);
 397         $xml->dataElement('branchstate',$row[7]);
 398         $xml->dataElement('branchcountry',$row[8]);
 399         $xml->dataElement('branchphone',$row[9]);
 400         $xml->dataElement('branchfax',$row[10]);
 401         $xml->dataElement('branchemail',$row[11]);
 402         $xml->dataElement('branchreplyto',$row[12]);
 403         $xml->dataElement('branchreturnpath',$row[13]);
 404         $xml->dataElement('branchurl',$row[14]);
 405         $xml->dataElement('issuing',$row[15]);
 406         $xml->dataElement('branchip',$row[16]);
 407         $xml->dataElement('branchprinter',$row[17]);
 408         $xml->dataElement('branchnotes',$row[18]);
 409         $xml->dataElement('opac_info',$row[19]);
 410         $xml->dataElement('geolocation',$row[20]);
 411         $xml->dataElement('marcorgcode',$row[21]);
 412         $xml->dataElement('pickup_location',$row[22]);
 413         $xml->endTag('library');
 414     }
 415
 416     $xml->endTag('libraries');
 417     $xml->end();
 418     close $fh;
 419     return;
 420 }
 421
 422 sub backup_patrontypes {
 423     my $dbh = shift;
 424     my $backupfile = shift;
 425
 426     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 427     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 428     $xml->xmlDecl('UTF-8');
 429     $xml->startTag('patron');
 430     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";
 431     my $sth = $dbh->prepare($query);
 432     $sth->execute();
 433     while (my @row = $sth->fetchrow_array) {
 434         $xml->startTag('category');
 435         $xml->dataElement('categorycode',$row[0]);
 436         $xml->dataElement('description',$row[1]);
 437         $xml->dataElement('enrolmentperiod',$row[2]);
 438         $xml->dataElement('enrolmentperioddate',$row[3]);
 439         $xml->dataElement('upperagelimit',$row[4]);
 440         $xml->dataElement('dateofbirthrequired',$row[5]);
 441         $xml->dataElement('finetype',$row[6]);
 442         $xml->dataElement('bulk',$row[7]);
 443         $xml->dataElement('enrolmentfee',$row[8]);
 444         $xml->dataElement('overduenoticerequired',$row[9]);
 445         $xml->dataElement('issuelimit',$row[10]);
 446         $xml->dataElement('reservefee',$row[11]);
 447         $xml->dataElement('hidelostitems',$row[12]);
 448         $xml->dataElement('category_type',$row[13]);
 449         $xml->dataElement('BlockExpiredPatronOpacActions',$row[14]);
 450         $xml->dataElement('default_privacy',$row[15]);
 451         $xml->dataElement('checkprevcheckout',$row[16]);
 452         $xml->dataElement('reset_password',$row[17]);
 453         $xml->dataElement('change_password',$row[18]);
 454         $xml->endTag('category');
 455     }
 456     $xml->endTag('patron');
 457     $xml->end();
 458     close $fh;
 459     return;
 460 }
 461
 462 sub backup_preferences {
 463     my $dbh = shift;
 464     my $backupfile = shift;
 465
 466     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 467     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 468     $xml->xmlDecl('UTF-8');
 469     $xml->startTag('preferences');
 470     my $query = "SELECT variable,value FROM systempreferences WHERE value != '' AND value IS NOT NULL";
 471     my $sth = $dbh->prepare($query);
 472     $sth->execute();
 473     while (my @row = $sth->fetchrow_array) {
 474         $xml->startTag('pref');
 475         $xml->dataElement('variable',$row[0]);
 476         $xml->dataElement('value',$row[1]);
 477         $xml->endTag('pref');
 478     }
 479     $xml->endTag('preferences');
 480     $xml->end();
 481     close $fh;
 482     return;
 483 }
 484
 485 sub backup_reports {
 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('reports');
 493
 494     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";
 495     my $sth = $dbh->prepare($query);
 496     $sth->execute();
 497     while (my @row = $sth->fetchrow_array) {
 498         $xml->startTag('sqlreport');
 499         $xml->dataElement('date_created',$row[0]);
 500         $xml->dataElement('last_modified',$row[1]);
 501         $xml->dataElement('savedsql',$row[2]);
 502         $xml->dataElement('report_name',$row[3]);
 503         $xml->dataElement('type',$row[4]);
 504         $xml->dataElement('notes',$row[5]);
 505         $xml->dataElement('cache_expiry',$row[6]);
 506         $xml->dataElement('public',$row[7]);
 507         $xml->dataElement('report_area',$row[8]);
 508         $xml->dataElement('report_group',$row[9]);
 509         $xml->dataElement('report_subgroup',$row[10]);
 510         $xml->dataElement('userid',$row[11]);
 511         $xml->endTag('sqlreport');
 512     }
 513
 514     $xml->endTag('reports');
 515     $xml->end();
 516     close $fh;
 517     return;
 518 }
 519
 520 sub backup_smsproviders {
 521     my $dbh = shift;
 522     my $backupfile = shift;
 523
 524     open(my $fh, '>', $backupfile) or die "Could not open $backupfile!";
 525     my $xml = XML::Writer->new(OUTPUT => $fh, DATA_MODE => 1, DATA_INDENT => 2, );
 526     $xml->xmlDecl('UTF-8');
 527     $xml->startTag('sms');
 528     my $query = "SELECT name,domain FROM sms_providers";
 529     my $sth = $dbh->prepare($query);
 530     $sth->execute();
 531     while (my @row = $sth->fetchrow_array) {
 532         $xml->startTag('provider');
 533         $xml->dataElement('name',$row[0]);
 534         $xml->dataElement('domain',$row[1]);
 535         $xml->endTag('provider');
 536     }
 537     $xml->endTag('sms');
 538     $xml->end();
 539     close $fh;
 540     return;
 541 }
 542
 543
 544 sub create_timestamp {
 545     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 546     $year += 1900;
 547     $mon = sprintf("%02s",$mon);
 548     $mday = sprintf("%02s",$mday);
 549     $hour = sprintf("%02s",$hour);
 550     $min = sprintf("%02s",$min);
 551     $sec = sprintf("%02s",$sec);
 552     my $str = "$year$mon$mday$hour$min$sec";
 553     return $str;
 554 }
 555
 556 sub abort {
 557     my $msg = shift;
 558     print STDERR "$0: $msg", "\n";
 559     print_usage();
 560     exit 1;
 561 }
 562
 563 sub print_usage {
 564     print <<_USAGE_;
 565
 566     mig export foo_a foo_b foo_c
 567
 568 _USAGE_
 569 }
 570