Thank you all for the responses.

@Steven, yes, the usual help message is printed out

@Roland, it works for my other machine, under Ubuntu 20.04 with 5.11 kernel, but the perl version I believe to be the same (perhaps the OS details are not relevant here at all);

I'm sending the log in the attachments.

It seems that the script hangs up at this point:

>> ./GetComponents:580: $rec{"AUTH_URL_ORIG"} = $rec{"AUTH_URL"};
>> ./GetComponents:583: if ($ANONYMOUS_CHECKOUT) {
>> ./GetComponents:584: delete $rec{AUTH_URL};
>> ./GetComponents:592: my @checkouts = split( /\s+/m, $rec{"CHECKOUT"} );
>> ./GetComponents:593: foreach my $checkout (@checkouts) {
>> ./GetComponents:596: my ( $dir1, $dir2 );
>> ./GetComponents:597: if ( $checkout =~ m!/! ) {
>> ./GetComponents:598: ( $dir1, $dir2 ) = $checkout =~ m!(.+)/(.+)!;
>> ./GetComponents:603: if ( defined( $rec{URL} ) ) {
>> ./GetComponents:604: $rec{URL} = $rec{"URL_ORIG"};
>> ./GetComponents:605: $rec{URL} =~ s!\$1!$dir1!;
>> ./GetComponents:606: $rec{URL} =~ s!\$2!$dir2!;
>> ./GetComponents:608: if ( defined( $rec{AUTH_URL} ) ) {
>> ./GetComponents:616: if ( $rec{"TYPE"} eq "svn" ) {
>> ./GetComponents:617: my $url = ($rec{"AUTH_URL"} or $rec{"URL"});
>> ./GetComponents:618: if ( $url =~ m!https://! ) {
>> ./GetComponents:619: my $base = $url;
>> ./GetComponents:620: $base =~ s/(https\:\/\/[\w\.]+)\/(.*)$/$1/i;
>> ./GetComponents:621: unless ( defined $svn_servers{$base} ) {
>> ./GetComponents:622: my $ret = `$svn --non-interactive info $url 2>&1`;

Best regards

Konrad

pon., 24 sty 2022 o 16:23 Steven R. Brandt <sbrandt@cct.lsu.edu> napisał(a):

What change are you referring to? Thanks.

--Steve

On 1/24/2022 9:21 AM, Barkhouse, Wayne wrote:
The directory structure on bitbucket.org has changed. I ran into the same problem.

cheers,
Wayne

***************************************
Dr. Wayne Barkhouse
Professor
Department of Physics and Astrophysics
University of North Dakota
Grand Forks, ND 58202-7129

Email: wayne.barkhouse@und.edu
Phone: 701-777-3520
FaX: 701-777-3523
***************************************

From: users-bounces@einsteintoolkit.org <users-bounces@einsteintoolkit.org> on behalf of Roland Haas <rhaas@illinois.edu>
Sent: Monday, January 24, 2022 9:20 AM
To: Konrad Topolski <k.topolski2@student.uw.edu.pl>
Cc: Einstein Toolkit Users <users@einsteintoolkit.org>
Subject: Re: [Users] GetComponents script not working

Hello Konrad,

Hmm, workedforme (not helpful I know), when I tested this last week on
a Ubuntu 20.04 VM, which makes debugging this harder. No output at all
is very strange. If you can try, does it work with any other OS?

Can you try thess command lines, which makes Perl enter Debug mode, and
send the log file GetComponents.log that it produces, please?

export PERL5DB='sub DB::DB {my ($p, $f, $l) = caller;my $code = \@{"::_<$f"};print STDERR ">> $f:$l: $code->[$l]";}'

(all in one line)

and

/usr/bin/perl -d ./GetComponents --parallel https://bitbucket.org/einsteintoolkit/manifest/raw/ET_2021_11/einsteintoolkit.th 2>&1 | tee GetComponents.log

(also a single line)

Yours,
Roland

--
My email is as private as my paper mail. I therefore support encrypting
and signing email messages. Get my PGP key from http://pgp.mit.edu .
_______________________________________________
Users mailing list
Users@einsteintoolkit.org
http://lists.einsteintoolkit.org/mailman/listinfo/users
_______________________________________________
Users mailing list
Users@einsteintoolkit.org
http://lists.einsteintoolkit.org/mailman/listinfo/users