Return to epickup.pl CVS log

Up to [local] / wpscripts / epickup

Annotation of wpscripts/epickup/epickup.pl, Revision 1.1

1.1     ! yason       1: #!/usr/bin/perl
        !             2:
        !             3: # Back up EPD files. Steps are:
        !             4: # - grep printed and not backed up EPD files from db.
        !             5: # - iterate over result; rar file using tmp/ dir in spool.
        !             6: # - put archive into spool.
        !             7: # - goto step 2 if there are more files.
        !             8:
        !             9:
        !            10: use dbops;
        !            11: use conv;
        !            12: use strict;
        !            13: use log;
        !            14:
        !            15: # SIGINT catcher
        !            16: $SIG{INT} = \&sigint;
        !            17: sub sigint()
        !            18: {
        !            19:     log::stdout("caught interrupt signal (exiting).\n");
        !            20:     exit(1);
        !            21: }
        !            22:
        !            23: our $SPOOL_EPDZ_DIR = "/usr/backup/epd/zayavki";
        !            24: our $SPOOL_EPDP_DIR = "/usr/backup/epd/proba";
        !            25: our @ID;
        !            26: our $ID_ref;
        !            27: our @paths;
        !            28: our $paths_ref;
        !            29: our $i;
        !            30:
        !            31: dbops::connect();
        !            32: dbops::select();
        !            33:
        !            34: # EPD zayavki
        !            35: ($ID_ref, $paths_ref) = dbops::fetch($dbops::EPD_ZAYAVKA_T);
        !            36: @ID            = @$ID_ref;
        !            37: @paths          = @$paths_ref;
        !            38:
        !            39:
        !            40: log::stdout("[working on epd-zayavki] ($#ID elements)\n");
        !            41: for ($i = 0; $i < $#paths; $i++)
        !            42: {
        !            43:     # db::fetch() gives us converted pathnames
        !            44:     if (! -e $paths[$i])
        !            45:     {
        !            46:        log::err("$paths[$i] doesn't exist");
        !            47:        log::put("item with ID=$ID[$i] is broken (not found). FIXING");
        !            48:
        !            49:        # XXX here we mark file as backed up even it doesn't exist.
        !            50:        dbops::fixate($ID[$i]);
        !            51:        next;
        !            52:        # NOTREACHED
        !            53:     }
        !            54:
        !            55:     log::stdout("compressing $paths[$i] into spool..\n");
        !            56:
        !            57:     system("/usr/local/bin/rar a -rr10% -ep '$SPOOL_EPDZ_DIR/".conv::basename($paths[$i]).".rar'"." \"$paths[$i]\"");
        !            58:     if( ($? >> 8) == 0)
        !            59:     {
        !            60:        # 0 exit status
        !            61:        log::stdout(" $paths[$i] compressed\n");
        !            62:        log::put("created archive $paths[$i].rar");
        !            63:
        !            64:        # XXX additional check, maybe unneeded?
        !            65:        if (-e "$SPOOL_EPDZ_DIR/".conv::basename($paths[$i]).".rar")
        !            66:        {
        !            67:            # modify DB
        !            68:            dbops::markok($ID[$i]);
        !            69:            log::put("ID=$ID[$i] marked as backed up");
        !            70:        }
        !            71:        else
        !            72:        {
        !            73:            # something strange
        !            74:            # do not modify db
        !            75:            log::err("$SPOOL_EPDZ_DIR/".conv::basename($paths[$i]).".rar can't stat after compressing");
        !            76:        }
        !            77:     }
        !            78:     else
        !            79:     {
        !            80:        # error
        !            81:        log::stdout(" $paths[$i] compression failed!\n");
        !            82:     }
        !            83:
        !            84:
        !            85: } # epd-zayavki
        !            86:
        !            87: # probas
        !            88: ($ID_ref, $paths_ref) = dbops::fetch($dbops::EPD_PROBA_T);
        !            89: @ID            = @$ID_ref;
        !            90: @paths          = @$paths_ref;
        !            91:
        !            92: log::stdout("[working on epd-probas] ($#ID elements)\n");
        !            93: for ($i = 0; $i < $#paths; $i++)
        !            94: {
        !            95:     # db::fetch() gives us converted pathnames
        !            96:     if (! -e $paths[$i])
        !            97:     {
        !            98:        log::err("$paths[$i] doesn't exist");
        !            99:        log::put("item with ID=$ID[$i] is broken (not found). FIXING");
        !           100:
        !           101:        # XXX here we mark file as backed up even it doesn't exist.
        !           102:        dbops::fixate($ID[$i]);
        !           103:        next;
        !           104:        # NOTREACHED
        !           105:     }
        !           106:
        !           107:     log::stdout("compressing $paths[$i] into spool..\n");
        !           108:
        !           109:     system("/usr/local/bin/rar a -rr10% -ep $SPOOL_EPDP_DIR/".conv::basename($paths[$i]).".rar"." $paths[$i]");
        !           110:     if( ($? >> 8) == 0)
        !           111:     {
        !           112:        # 0 exit status
        !           113:        log::stdout(" $paths[$i] compressed\n");
        !           114:        log::put("created archive $paths[$i].rar");
        !           115:
        !           116:        # XXX additional check, maybe unneeded?
        !           117:        if (-e "$SPOOL_EPDP_DIR/".conv::basename($paths[$i]).".rar")
        !           118:        {
        !           119:            # modify DB
        !           120:            dbops::markok($ID[$i]);
        !           121:            log::put("ID=$ID[$i] marked as backed up");
        !           122:        }
        !           123:        else
        !           124:        {
        !           125:            # something strange
        !           126:            # do not modify db
        !           127:            log::err("$SPOOL_EPDP_DIR/".conv::basename($paths[$i]).".rar can't stat after compressing");
        !           128:        }
        !           129:     }
        !           130:     else
        !           131:     {
        !           132:        # error
        !           133:        log::stdout(" $paths[$i] compression failed!\n");
        !           134:     }
        !           135:
        !           136:
        !           137: } # epd-probas
        !           138:
        !           139:
        !           140: dbops::disconnect();