--- deliantra/Deliantra-Client/DC.pm	2006/04/07 18:49:52	1.4
+++ deliantra/Deliantra-Client/DC.pm	2006/04/07 20:13:13	1.5
@@ -21,6 +21,48 @@
    XSLoader::load "Crossfire::Client", $VERSION;
 }
 
+sub find_rcfile($) {
+   my $path;
+
+   for (@INC) {
+      $path = "$_/Crossfire/resources/$_[0]";
+      return $path if -r $path;
+   }
+
+   die "FATAL: can't find required file $_[0]\n";
+}
+
+sub read_cfg {
+   my ($file) = @_;
+
+   open CFG, $file
+      or return;
+
+   my $CFG;
+
+   local $/;
+   $CFG = eval <CFG>;
+
+   $::CFG = $CFG;
+
+   close CFG;
+}
+
+sub write_cfg {
+   my ($file) = @_;
+
+   open CFG, ">$file"
+      or return;
+
+   {
+      local $Data::Dumper::Purity = 1;
+      $::CFG->{VERSION} = $::VERSION;
+      print CFG Data::Dumper->Dump ([$::CFG], [qw/CFG/]);
+   }
+
+   close CFG;
+}
+
 package Crossfire::Client::Texture;
 
 use Scalar::Util;