OK. Here is the patch that works for VSS running on Japanese systems. Let
me know if this script finds a permanent home. It is too valuable a tool
to let it slip away. :-)
Kevin Hendrickson
On Tue, 2 Apr 2002, Thomas S. Urban wrote:
>
> On Tue, Apr 02, 2002 at 07:02:43 -0500, Kevin Hendrickson sent 0.9K bytes:
> > I'm new to the list and was wondering if vss2cvs is being maintained
> > anywhere other than http://www.laine.org? I cannot seem to get to that
> > site anymore. I'm interested in posting a patch I've made to the latest
> > version that allows it to work on Japanese systems running VSS. It fixes a
> > problem with parse_user_and_timestamp which only handled US and European
> > time formats and lacked the Japanese words to parse with. Any ideas where
> > I should post the patch? :-)
>
> I have my own version that I patched to support features I wanted
> (controlling what files are imported, handling shared files in a
> semi-smart way, and some other stuff). I provided my changed to Laine,
> but never heard back from him. Since www.laine.org has been down, I've
> been contacted several times for the scripts. Given that situation, I
> am considering putting together a site for my modified versions of the
> scripts. You can send your patches to me and I'll try to incorporate
> them into my stuff.
>
> If someone else wants to take over maintenance, or if Laine would like
> to speak up, I'm ok with that too.
>
> Scott
>
>
>
--
*--------+---------+---------+---------+---------+---------+---------+-*
Kevin Hendrickson "On the internet, no one knows you're a dog."
[EMAIL PROTECTED] _DreaD_ http://www.italcomputations.com
[EMAIL PROTECTED] "Why, oh why, didn't I take the BLUE pill?"
--- vss2cvs.pl Tue Dec 4 02:23:42 2001
+++ vss2cvs-nihon.pl Fri Mar 29 00:10:40 2002
@@ -354,7 +354,7 @@
if(/^Label: "(.+)"$/) {
$label = $1;
$_=myread();
- }
+ }
($user,$timestamp) = parse_user_and_timestamp($_);
$_=myread();
@@ -542,15 +542,22 @@
# For U.S. format dates: mm/dd/yy, time as hh:mm[am or pm indicator]
#
die "can't parse timestamp $_"
-
unless(m@^User:[\s]*(.*)\s+Date:\s+(\d+)/(\d+)/(\d+)\s+Time:\s+(\d+):(\d+)([ap])@);
- my ($user, $mo, $day, $yr, $hr, $min, $sec) = ($1, $2, $3, $4, $5, $6, 0);
- $user =~ s/[\s]+/_/g; # eliminate blanks in userid - CVS might not like it
+#
+unless(m@^User:[\s]*(.*)\s+Date:\s+(\d+)/(\d+)/(\d+)\s+Time:\s+(\d+):(\d+)([ap])@);
+# my ($user, $mo, $day, $yr, $hr, $min, $sec) = ($1, $2, $3, $4, $5, $6, 0);
+# $user =~ s/[\s]+/_/g; # eliminate blanks in userid - CVS might not like it
#
# For U.K (and other) format dates: dd.mm.yy hh:mm (no am or PM):
#
#
unless(m@^User:[\s]*([^\s]+)\s+Date:\s+(\d+)/(\d+)/(\d+)\s+Time:\s+(\d+):(\d+)([ap]*)@);
# my ($user, $day, $mo, $yr, $hr, $min, $sec) = ($1, $2, $3, $4, $5, $6, 0);
#
+
+#
+# For Japanese format dates: yy.mm.dd hh:mm (no am or PM):
+#
+
+unless(m@^���[�U�[:[\s]*([^\s]+)\s+���t:\s+(\d+)/(\d+)/(\d+)\s+����:\s+(\d+):(\d+)([ap]*)@);
+
+ my ($user, $yr, $mo, $day, $hr, $min, $sec) = ($1, $2, $3, $4, $5, $6, 0);
+ $user =~ s/[\s]+/_/g; # eliminate blanks in userid - CVS might not like it
# gmtime returns and
# timelocal takes second, minute, hour, day, month, year
