From 4c4cb98772f35fac0ef4225066ddf71d75a3d0ff Mon Sep 17 00:00:00 2001
From: Matthew Hunt <mph@FreeBSD.org>
Date: Thu, 7 May 1998 05:20:22 +0000
Subject: Import of sirc, Yet Another IRC Client.  (Is this the "net"
 equivalent of Minesweeper in "games"?)  This one is written in Perl, so it is
 convenient for people who would like to script in Perl.

PR:		6535
Submitted by:	Studded@dal.net
---
 irc/sirc/scripts/sirc-proto | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 irc/sirc/scripts/sirc-proto

(limited to 'irc/sirc/scripts/sirc-proto')

diff --git a/irc/sirc/scripts/sirc-proto b/irc/sirc/scripts/sirc-proto
new file mode 100644
index 000000000000..2de5b34e9810
--- /dev/null
+++ b/irc/sirc/scripts/sirc-proto
@@ -0,0 +1,17 @@
+#!/bin/sh
+
+PREFIX=
+SIRCLIB=${PREFIX}/libexec/sirc ; export SIRCLIB
+
+if test -z "$SIRCSERVER" && test -z "$IRCSERVER"
+then
+  SIRCSERVER="irc.dal.net"
+  export SIRCSERVER
+fi
+
+case "$1" in
+  -d) shift
+      exec ${PREFIX}/bin/perl5 ${SIRCLIB}/dsirc "$@"
+      ;;
+  *)  eval exec ${PREFIX}/bin/ssfe $SSFE ${PREFIX}/bin/perl5 ${SIRCLIB}/dsirc \"\$@\"
+esac
-- 
cgit v1.2.3