From 9cd3ccffd5372dfde3af478e3f832f18db4be3f1 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 6 Apr 2013 13:14:41 +0200
Subject: tagging tags

---
 ychat-0.7.8/scripts/modules/CVS/Entries    |  2 ++
 ychat-0.7.8/scripts/modules/CVS/Repository |  1 +
 ychat-0.7.8/scripts/modules/CVS/Root       |  1 +
 ychat-0.7.8/scripts/modules/file.pm        | 28 ++++++++++++++++++++++++++++
 4 files changed, 32 insertions(+)
 create mode 100644 ychat-0.7.8/scripts/modules/CVS/Entries
 create mode 100644 ychat-0.7.8/scripts/modules/CVS/Repository
 create mode 100644 ychat-0.7.8/scripts/modules/CVS/Root
 create mode 100755 ychat-0.7.8/scripts/modules/file.pm

(limited to 'ychat-0.7.8/scripts/modules')

diff --git a/ychat-0.7.8/scripts/modules/CVS/Entries b/ychat-0.7.8/scripts/modules/CVS/Entries
new file mode 100644
index 0000000..1490d42
--- /dev/null
+++ b/ychat-0.7.8/scripts/modules/CVS/Entries
@@ -0,0 +1,2 @@
+/file.pm/1.3/Tue Sep  7 17:00:25 2004//
+D
diff --git a/ychat-0.7.8/scripts/modules/CVS/Repository b/ychat-0.7.8/scripts/modules/CVS/Repository
new file mode 100644
index 0000000..ac40d52
--- /dev/null
+++ b/ychat-0.7.8/scripts/modules/CVS/Repository
@@ -0,0 +1 @@
+ychat/scripts/modules
diff --git a/ychat-0.7.8/scripts/modules/CVS/Root b/ychat-0.7.8/scripts/modules/CVS/Root
new file mode 100644
index 0000000..745de68
--- /dev/null
+++ b/ychat-0.7.8/scripts/modules/CVS/Root
@@ -0,0 +1 @@
+:pserver:anonymous@buetow.org:/usr/home/cvs/cvsroot
diff --git a/ychat-0.7.8/scripts/modules/file.pm b/ychat-0.7.8/scripts/modules/file.pm
new file mode 100755
index 0000000..b11e2b3
--- /dev/null
+++ b/ychat-0.7.8/scripts/modules/file.pm
@@ -0,0 +1,28 @@
+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