chat/chat.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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("./_");