aboutsummaryrefslogtreecommitdiff
path: root/net-im/icb
diff options
context:
space:
mode:
authorMartin Wilke <miwi@FreeBSD.org>2013-06-04 08:20:26 +0000
committerMartin Wilke <miwi@FreeBSD.org>2013-06-04 08:20:26 +0000
commitef883f0a44f8b0404682ecb10b558433a84936b0 (patch)
treef7d4f039f482f0aee13df14a453690347a96e3f7 /net-im/icb
parent4ee2403cf0daca7a7b7b0e218723031ba056b4dc (diff)
downloadports-ef883f0a44f8b0404682ecb10b558433a84936b0.tar.gz
ports-ef883f0a44f8b0404682ecb10b558433a84936b0.zip
Notes
Diffstat (limited to 'net-im/icb')
-rw-r--r--net-im/icb/Makefile3
-rw-r--r--net-im/icb/files/patch-icb::c_log.c43
-rw-r--r--net-im/icb/files/patch-icb__c_hush.c29
-rw-r--r--net-im/icb/files/patch-icb__oset.c44
-rw-r--r--net-im/icb/files/patch-icb__parse.c19
-rw-r--r--net-im/icb/files/patch-icb__tcl.c11
6 files changed, 148 insertions, 1 deletions
diff --git a/net-im/icb/Makefile b/net-im/icb/Makefile
index f57f67dfdd0c..f6364535e149 100644
--- a/net-im/icb/Makefile
+++ b/net-im/icb/Makefile
@@ -5,7 +5,8 @@ PORTNAME= icb
PORTVERSION= 5.1.0
PORTREVISION= 4
CATEGORIES= net-im tcl
-MASTER_SITES= http://www.obfuscation.org/icb/
+#MASTER_SITES= http://www.obfuscation.org/icb/
+MASTER_SITES= http://fossies.org/linux/misc/old/
DISTNAME= c${PORTNAME}-${PORTVERSION}
MAINTAINER= ports@FreeBSD.org
diff --git a/net-im/icb/files/patch-icb::c_log.c b/net-im/icb/files/patch-icb::c_log.c
index 2e3dcdb5b338..e6992aece038 100644
--- a/net-im/icb/files/patch-icb::c_log.c
+++ b/net-im/icb/files/patch-icb::c_log.c
@@ -20,3 +20,46 @@
/* determine pathname to use */
if (path == NULL || *path == '\0') {
+@@ -43,17 +47,17 @@
+ /* expand a tilde style path */
+ if (*path == '~')
+ if ((path = tildexpand(path)) == NULL) {
+- strcpy(TRET, "c_log: bad login id in path");
++ strcpy(Tcl_GetStringResult(interp), "c_log: bad login id in path");
+ return(-1);
+ }
+
+ /* open the session log */
+ if ((logfp = fopen(path, "a")) == NULL) {
+ if (errno > sys_nerr)
+- sprintf(TRET,
++ sprintf(Tcl_GetStringResult(interp),
+ "c_log: can't open \"%s\": errno %d", path, errno);
+ else
+- sprintf(TRET,
++ sprintf(Tcl_GetStringResult(interp),
+ "c_log: can't open \"%s\": %s", path, strerror(errno));
+ return(-1);
+ }
+@@ -61,10 +65,10 @@
+ /* protect the logfile against others */
+ if (fchmod((int)(fileno(logfp)), 0600) != 0) {
+ if (errno > sys_nerr)
+- sprintf(TRET,
++ sprintf(Tcl_GetStringResult(interp),
+ "c_log: can't fchmod \"%s\": errno %d", path, errno);
+ else
+- sprintf(TRET,
++ sprintf(Tcl_GetStringResult(interp),
+ "c_log: can't fchmod \"%s\": %s", path, strerror(errno));
+ fclose(logfp);
+ logfp = NULL;
+@@ -146,7 +150,7 @@
+ return(TCL_ERROR);
+ } else {
+ if (logging()) {
+- sprintf(TRET, "c_log: session logging already on");
++ sprintf(Tcl_GetStringResult(interp), "c_log: session logging already on");
+ return(TCL_ERROR);
+ } else
+ if (startsessionlog(interp, argv[1]) < 0)
diff --git a/net-im/icb/files/patch-icb__c_hush.c b/net-im/icb/files/patch-icb__c_hush.c
new file mode 100644
index 000000000000..958c0ccbd666
--- /dev/null
+++ b/net-im/icb/files/patch-icb__c_hush.c
@@ -0,0 +1,29 @@
+--- icb/c_hush.c.orig
++++ icb/c_hush.c
+@@ -23,7 +23,7 @@
+ while (*nick == ' ' || *nick == '\t') nick++;
+
+ if (*nick == '\0') {
+- strcpy(TRET, "c_hush: can't hush a null nickname");
++ strcpy(Tcl_GetStringResult(interp), "c_hush: can't hush a null nickname");
+ return(-1);
+ }
+
+@@ -31,7 +31,7 @@
+ *(nick + MAX_NICKLEN) = '\0';
+
+ if ((hp = strmakenode(strlen(nick))) == NULL) {
+- strcpy(TRET, "c_hush: out of memory");
++ strcpy(Tcl_GetStringResult(interp), "c_hush: out of memory");
+ return(-1);
+ }
+ strcpy(hp->str, nick);
+@@ -55,7 +55,7 @@
+ STRLIST *s;
+
+ if ((s = strgetnode(nick, hushhead, 1)) == NULL) {
+- sprintf(TRET, "c_hush: %s is not being hushed", nick);
++ sprintf(Tcl_GetStringResult(interp), "c_hush: %s is not being hushed", nick);
+ return(-1);
+ }
+ sprintf(mbuf,
diff --git a/net-im/icb/files/patch-icb__oset.c b/net-im/icb/files/patch-icb__oset.c
index f1f53379b1ea..0b6ac775ca2e 100644
--- a/net-im/icb/files/patch-icb__oset.c
+++ b/net-im/icb/files/patch-icb__oset.c
@@ -18,3 +18,47 @@
return(TCL_OK);
}
}
+@@ -109,7 +109,7 @@
+ }
+
+ if (vars[x].name == NULL) {
+- sprintf(TRET, "oset: no such variable \"%s\"", argv[1]);
++ sprintf(Tcl_GetStringResult(interp), "oset: no such variable \"%s\"", argv[1]);
+ return(TCL_ERROR);
+ }
+
+@@ -278,7 +278,7 @@
+ }
+
+ if (vars[x].name == NULL) {
+- sprintf(TRET, "ounset: no such variable \"%s\"", argv[1]);
++ sprintf(Tcl_GetStringResult(interp), "ounset: no such variable \"%s\"", argv[1]);
+ return(TCL_ERROR);
+ }
+
+@@ -310,7 +310,7 @@
+ case V_NONNEG:
+ tmp = atoi(s);
+ if (tmp < 0) {
+- strcpy(TRET, "oset: only non-negative values allowed");
++ strcpy(Tcl_GetStringResult(interp), "oset: only non-negative values allowed");
+ return(-1);
+ }
+ memcpy (address, &tmp, sizeof(int));
+@@ -331,14 +331,14 @@
+ *i_addr = (int)0;
+ }
+ else {
+- strcpy(TRET, "oset: only boolean values allowed");
++ strcpy(Tcl_GetStringResult(interp), "oset: only boolean values allowed");
+ return(-1);
+ }
+ break;
+ case V_STRING:
+ tmp = strlen(s) + 1;
+ if ((p = malloc(tmp)) == NULL) {
+- strcpy(TRET, "oset: not enough memory to set string");
++ strcpy(Tcl_GetStringResult(interp), "oset: not enough memory to set string");
+ return(-1);
+ }
+ memcpy (p, s, tmp);
diff --git a/net-im/icb/files/patch-icb__parse.c b/net-im/icb/files/patch-icb__parse.c
index 1fd2bf03fbe2..08f35c067e11 100644
--- a/net-im/icb/files/patch-icb__parse.c
+++ b/net-im/icb/files/patch-icb__parse.c
@@ -11,3 +11,22 @@
extern Tcl_Interp *interp;
char *nextword();
+@@ -78,14 +82,14 @@
+
+ /* Print the tcl result. */
+ if (result == TCL_OK) {
+- if (*interp->result != 0)
+- putl(interp->result, PL_SL);
++ if (Tcl_GetStringResult(interp) != 0)
++ putl(Tcl_GetStringResult(interp), PL_SL);
+ } else {
+- if (interp->result) {
++ if (Tcl_GetStringResult(interp)) {
+ sprintf(mbuf,
+ "%s[=Error=] %s%s",
+ printcolor(ColERROR, ColSANE),
+- interp->result,
++ Tcl_GetStringResult(interp),
+ printcolor(ColSANE, ColSANE));
+ putl(mbuf, PL_SL);
+ } else {
diff --git a/net-im/icb/files/patch-icb__tcl.c b/net-im/icb/files/patch-icb__tcl.c
index 56b1d2d9346a..69a035eb5e7f 100644
--- a/net-im/icb/files/patch-icb__tcl.c
+++ b/net-im/icb/files/patch-icb__tcl.c
@@ -10,3 +10,14 @@
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
+@@ -70,8 +73,8 @@
+ for (x = 0; defprocs[x] != 0; x++)
+ if (Tcl_Eval(interp, defprocs[x]) != TCL_OK) {
+ printf("Default binding failed: %s\r\n", defprocs[x]);
+- if (*interp->result != 0)
+- puts(interp->result);
++ if (Tcl_GetStringResult(interp) != 0)
++ puts(Tcl_GetStringResult(interp));
+ }
+
+ }