Ah, so it's subversion that's hanging. GetComponents should have a print statement before calling svn in verbose mode.

Could you add a print statement before line 622 so we can see the svn command with the $svn and $url expanded? Also, what is your svn version?

--Steve

On 1/24/2022 9:57 AM, Konrad Topolski wrote:
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 <[email protected]> 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 <http://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: [email protected]
    Phone: 701-777-3520
    FaX: 701-777-3523
    ***************************************

    ------------------------------------------------------------------------
    *From:* [email protected]
    <[email protected]>
    <mailto:[email protected]> on behalf of Roland
    Haas <[email protected]> <mailto:[email protected]>
    *Sent:* Monday, January 24, 2022 9:20 AM
    *To:* Konrad Topolski <[email protected]>
    <mailto:[email protected]>
    *Cc:* Einstein Toolkit Users <[email protected]>
    <mailto:[email protected]>
    *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
    [email protected]
    http://lists.einsteintoolkit.org/mailman/listinfo/users
    _______________________________________________
    Users mailing list
    [email protected]
    http://lists.einsteintoolkit.org/mailman/listinfo/users


_______________________________________________
Users mailing list
[email protected]
http://lists.einsteintoolkit.org/mailman/listinfo/users
_______________________________________________
Users mailing list
[email protected]
http://lists.einsteintoolkit.org/mailman/listinfo/users

Reply via email to