[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/DB.pm

Comparing deliantra/Deliantra-Client/DC/DB.pm (file contents):
Revision 1.15 by root, Mon Aug 6 02:11:45 2007 UTC vs.
Revision 1.16 by root, Mon Aug 6 05:06:33 2007 UTC

    CFPlus::DB::Server::req (put => @_);
 }
 sub unlink($$) {
    CFPlus::DB::Server::req (unlink => @_);
+}
+sub read_file($$) {
+   CFPlus::DB::Server::req (read_file => @_);
 }
 sub write_file($$$) {
    CFPlus::DB::Server::req (write_file => @_);
 }
 sub do_unlink {
    unlink $_[0];
 }
+sub do_read_file {
+   my ($path) = @_;
+   utf8::downgrade $path;
+   open my $fh, "<:raw", $path
+      or return;
+   sysread $fh, my $buf, -s $fh;
+   $buf
+}
 sub do_write_file {
-   my ($file, $data) = @_;
+   my ($path, $data) = @_;
-   utf8::downgrade $file;
+   utf8::downgrade $path;
    utf8::downgrade $data;
-   open my $fh, ">:raw", $file
+   open my $fh, ">:raw", $path
       or return;
-   print $fh $data;
+   syswrite $fh, $data;
    close $fh;
    1
 }
 sub do_prefetch_file {
-   my ($file, $size) = @_;
+   my ($path, $size) = @_;
-   utf8::downgrade $file;
+   utf8::downgrade $path;
-   open my $fh, "<:raw", $file
+   open my $fh, "<:raw", $path
       or return;
    sysread $fh, my $buf, $size;
    1
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines