freebsd-ports/irc/sirc/scripts/sirc-proto

#!/bin/sh

SIRCLIB=PREFIX.SED/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 PERL5.SED ${SIRCLIB}/dsirc "$@"
      ;;
  *)  eval exec PREFIX.SED/bin/ssfe $SSFE PERL5.SED ${SIRCLIB}/dsirc \"\$@\"
esac
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 1998-05-07 05:20:22 +00:00			`#!/bin/sh`

Better fix for perl5-in-current world. Submitted by: maintainer 1998-09-16 06:55:18 +00:00			`SIRCLIB=PREFIX.SED/libexec/sirc ; export SIRCLIB`
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 1998-05-07 05:20:22 +00:00
			`if test -z "$SIRCSERVER" && test -z "$IRCSERVER"`
			`then`
			`SIRCSERVER="irc.dal.net"`
			`export SIRCSERVER`
			`fi`

			`case "$1" in`
			`-d) shift`
Better fix for perl5-in-current world. Submitted by: maintainer 1998-09-16 06:55:18 +00:00			`exec PERL5.SED ${SIRCLIB}/dsirc "$@"`
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 1998-05-07 05:20:22 +00:00			`;;`
Better fix for perl5-in-current world. Submitted by: maintainer 1998-09-16 06:55:18 +00:00			`*) eval exec PREFIX.SED/bin/ssfe $SSFE PERL5.SED ${SIRCLIB}/dsirc \"\$@\"`
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 1998-05-07 05:20:22 +00:00			`esac`