Return to ezreturn.pl CVS log

Up to [local] / wpscripts / ezreturn

Annotation of wpscripts/ezreturn/ezreturn.pl, Revision 1.1.1.1

1.1       yason       1: #!/usr/bin/perl
                      2: use strict;
                      3: use dbops;
                      4: use fs;
                      5:
                      6: # We will use array of files, each described as follows:
                      7: #  $ID[$file]           -- ID in database
                      8: #  $file_type[$file]    -- string constant that describes type of file (e.g "epdz")
                      9: #  $file_name[$file]    -- file name (e.g 66666.eps)
                     10: #  $file_retpath[$file] -- return path without leading slash (e.g /WIDEPRINT/Заявки/Медвед)
                     11: our $ID_ref;
                     12: our $file_type_ref;
                     13: our $file_name_ref;
                     14: our $file_retpath_ref;
                     15:
                     16: # will deref ID_ref to know how many files we've got
                     17: our @ID;
                     18:
                     19: dbops::connect() or die("dbops::connect()");
                     20: dbops::select()  or die("dbops::select()");
                     21:
                     22: ($ID_ref, $file_type_ref, $file_name_ref, $file_retpath_ref) = dbops::getall();
                     23:
                     24: # temporary
                     25: @ID = @$ID_ref;
                     26:
                     27: if (scalar(@$file_name_ref) == 0) {
                     28:
                     29:        print "[main] nothing to do\n";
                     30:
                     31:        dbops::disconnect();
                     32:        exit(-1);
                     33: }
                     34:
                     35: # got something
                     36: print "[main] got " . scalar(@ID) . " ab_want files from all tables\n";
                     37:
                     38: fs::copy($ID_ref, $file_type_ref, $file_name_ref, $file_retpath_ref);
                     39:
                     40: dbops::disconnect();
                     41:
                     42: exit(0);
                     43: