/[webpac2]/trunk/lib/WebPAC/Input.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 9 by dpavlin, Sat Jul 16 17:14:43 2005 UTC revision 11 by dpavlin, Sat Jul 16 20:54:28 2005 UTC
# Line 27  Perhaps a little code snippet. Line 27  Perhaps a little code snippet.
27          format => 'NULL',          format => 'NULL',
28          config => $config,          config => $config,
29          lookup => $lookup_obj,          lookup => $lookup_obj,
30            low_mem => 1,
31      );      );
32    
33      $db->open('/path/to/database');      $db->open('/path/to/database');
# Line 34  Perhaps a little code snippet. Line 35  Perhaps a little code snippet.
35      while (my $row = $db->fetch) {      while (my $row = $db->fetch) {
36          ...          ...
37      }      }
     $db->close;  
38    
39  =head1 FUNCTIONS  =head1 FUNCTIONS
40    
# Line 45  Create new input database object. Line 45  Create new input database object.
45    my $db = new WebPAC::Input(    my $db = new WebPAC::Input(
46          format => 'NULL'          format => 'NULL'
47          code_page => 'ISO-8859-2',          code_page => 'ISO-8859-2',
48            low_mem => 1,
49    );    );
50    
51  Optional parametar C<code_page> specify application code page (which will be  Optional parametar C<code_page> specify application code page (which will be
52  used internally). This should probably be your terminal encoding, and by  used internally). This should probably be your terminal encoding, and by
53  default, it C<ISO-8859-2>.  default, it C<ISO-8859-2>.
54    
55    Default is not to use C<low_mem> options (see L<MEMORY USAGE> below).
56    
57  =cut  =cut
58    
59  sub new {  sub new {
# Line 60  sub new { Line 63  sub new {
63    
64          $self->{'code_page'} ||= 'ISO-8859-2';          $self->{'code_page'} ||= 'ISO-8859-2';
65    
66            my $log = $self->_get_logger;
67    
68            # running with low_mem flag? well, use DBM::Deep then.
69            if ($self->{'low_mem'}) {
70                    $log->info("running with low_mem which impacts performance (<32 Mb memory usage)");
71    
72                    my $db_file = "data.db";
73    
74                    if (-e $db_file) {
75                            unlink $db_file or $log->logdie("can't remove '$db_file' from last run");
76                            $log->debug("removed '$db_file' from last run");
77                    }
78    
79                    require DBM::Deep;
80    
81                    my $db = new DBM::Deep $db_file;
82    
83                    $log->logdie("DBM::Deep error: $!") unless ($db);
84    
85                    if ($db->error()) {
86                            $log->logdie("can't open '$db_file' under low_mem: ",$db->error());
87                    } else {
88                            $log->debug("using file '$db_file' for DBM::Deep");
89                    }
90    
91                    $self->{'db'} = $db;
92            }
93    
94          $self ? return $self : return undef;          $self ? return $self : return undef;
95  }  }
96    
Legend:
Removed from v.9  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26