save point.

1 files changed, 15 insertions, 0 deletions

diff --git a/chat/chat.sh b/chat/chat.sh
new file mode 100755
index 0000000..f203228
--- /dev/null
+++ b/chat/chat.sh
@@ -0,0 +1,15 @@
+#!/usr/pkg/bin/perl
+chdir("/home/segfault/chat");
+my $sentence="";
+my $i=0;
+@words=split(/ /,join(" ",@ARGV));
+foreach(@words) {
+ if(!chdir($_)) {
+  $args=join(" ",@words[$i .. $#words]);
+  $args =~ s/'/'\\''/g;
+  system("./_ '" . $args . "'\n");
+  exit;
+ }
+ $i++;
+}
+system("./_");