From d9cf8ffe90c807cb8644bb35840a54f2eaab1508 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 20 Nov 1997 11:28:22 -0800
Subject: [PATCH] now does cvs tagging automatically
Rev: bin/export.pike:1.10
---
bin/export.pike | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/bin/export.pike b/bin/export.pike
index 5482acd60b..543dd3d069 100755
--- a/bin/export.pike
+++ b/bin/export.pike
@@ -1,6 +1,6 @@
#!/usr/local/bin/pike
-/* $Id: export.pike,v 1.9 1997/10/22 02:37:42 hubbe Exp $ */
+/* $Id: export.pike,v 1.10 1997/11/20 19:28:22 hubbe Exp $ */
#include <simulate.h>
@@ -61,6 +61,15 @@ int main(int argc, string *argv)
string *files;
vpath=replace(version()," ","-");
+ mapping x=localtime(time());
+ string tag=replace(vpath,({"Pike-","."}),({"","_"}))+"-"+
+ sprintf("%02d%02d%02d-%02d%02d",
+ x->year,
+ x->mon+1,
+ x->mday,
+ x->hour,
+ x->min);
+
tmp=reverse(argv[0]/"/");
except_modules=mklist(argv[1..]);
e=search(tmp,"pike");
@@ -73,6 +82,9 @@ int main(int argc, string *argv)
tmp=reverse(tmp[e+1..]);
cd(tmp*"/");
perror("Sourcedir = "+tmp*"/"+"/pike\n");
+
+ perror("Creating tag "+tag+" in the background.\n");
+ system("cd pike ; cvs tag -R -F "+tag+"&");
fix_configure("pike/src");
--
GitLab