From 3a96ab7e91145b367d05e98533b5f426f762f83f Mon Sep 17 00:00:00 2001
From: "Paul Buetow (mars.fritz.box)" <paul@buetow.org>
Date: Sun, 15 Dec 2013 11:49:02 +0100
Subject: add packages

---
 yhttpd/scripts/modules/file.pm | 28 ----------------------------
 1 file changed, 28 deletions(-)
 delete mode 100644 yhttpd/scripts/modules/file.pm

(limited to 'yhttpd/scripts/modules')

diff --git a/yhttpd/scripts/modules/file.pm b/yhttpd/scripts/modules/file.pm
deleted file mode 100644
index b11e2b3..0000000
--- a/yhttpd/scripts/modules/file.pm
+++ /dev/null
@@ -1,28 +0,0 @@
-sub dopen
-{
- my $shift = shift;
- opendir DIR, $shift or die "$shift: $!\n";
- my @dir = readdir(DIR);
- closedir DIR;
- return @dir;
-}
-
-sub fopen
-{
- my $shift = shift;
- open FILE, $shift or die "$shift: $!\n";
- my @file = <FILE>; 
- close FILE;
- return @file;
-}
-
-sub fwrite
-{
- my $shift = shift;
- my @file = @_;
- open FILE, ">$shift" or die "$shift: $!\n";
- print FILE @file;
- close FILE;
-}
-
-1;
-- 
cgit v1.2.3