Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^13: Change in Berkeley DB in Perl 5.12?

by Anonymous Monk
on Dec 23, 2011 at 18:08 UTC ( #944947=note: print w/ replies, xml ) Need Help??


in reply to Re^12: Change in Berkeley DB in Perl 5.12?
in thread Change in Berkeley DB in Perl 5.12?

Just in case you're wondering, maybe the license changed, it hasn't

curent license http://www.oracle.com/technetwork/database/berkeleydb/downloads/oslicense-093458.html Open Source License for Berkeley DB

original license http://web.archive.org/web/20060315212050/http://www.sleepycat.com/company/oslicense.html Open Source License for Berkeley DB

$ diff license-BerkeleyDB-2005.txt license-BerkeleyDB-2011.txt 3,4c3,4 < * Copyright (c) 1990-2005 < * Sleepycat Software. All rights reserved. --- > * Copyright (c) 1990-2009 > * Oracle Corporation. All rights reserved. 25c25 < * THIS SOFTWARE IS PROVIDED BY SLEEPYCAT SOFTWARE ``AS IS'' AND ANY + EXPRESS --- > * THIS SOFTWARE IS PROVIDED BY ORACLE CORPORATION ``AS IS'' AND ANY + EXPRESS 28c28 < * NON-INFRINGEMENT, ARE DISCLAIMED. IN NO EVENT SHALL SLEEPYCAT SO +FTWARE --- > * NON-INFRINGEMENT, ARE DISCLAIMED. IN NO EVENT SHALL ORACLE CORPO +RATION 39c39 < * The Regents of the University of California. All rights reser +ved. --- > * The Regents of the University of California. All rights res +erved. 67c67 < * The President and Fellows of Harvard University. All rights r +eserved. --- > * The President and Fellows of Harvard University. All rights + reserved.


Comment on Re^13: Change in Berkeley DB in Perl 5.12?
Download Code
Re^14: Change in Berkeley DB in Perl 5.12?
by BrowserUk (Pope) on Dec 23, 2011 at 18:18 UTC

    It's just a shame that you can't download it for free any more since Oracle got their grubby mitts on it.


    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.

    The start of some sanity?

      It's just a shame that you can't download it for free any more since Oracle got their grubby mitts on it.

      I think you can

      http://www.oracle.com/technetwork/database/berkeleydb/downloads/

      free Oracle account (mailme mailer) http://download.oracle.com/otn/berkeley-db/db-5.2.36.tar.gz.md5

      direct http://download.oracle.com/berkeley-db/db-5.2.36.tar.gz.md5

        Clicking any of the downloads via your first link result in redirection to an Oracle Access Manager page that reports: "System error. Please re-try your action. If you continue to get this error, please contact the Administrator."

        Your second link redirects to the same place immediately.

        Your third link actually results in a download. But it is a file called: C:\Downloaded\db-5.2.36.tar.gz.gz (note that the .md5 suffix has been replaced by a second '.gz' suffix), which is a whole 51 bytes. So unless the doubled .gz means that they've come up with some remarkable compression algorithm, it is doubtful if that contains any of the DB files which are listed as ranging from 12 to 45MB (compressed).

        Free doesn't just mean 'costs nothing'.


        With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
        Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
        "Science is about questioning the status quo. Questioning authority".
        In the absence of evidence, opinion is indistinguishable from prejudice.

        The start of some sanity?

        #!/usr/bin/perl -- use LWP::Simple qw/ get mirror $ua /; $ua->show_progress(1); my $html = get( q{http://www.oracle.com/technetwork/database/berkeleyd +b/downloads/} ); if( my( $current ) = $html =~ m{href=\x22http[^\x22]+?/([^/]+md5)\x22} +i ){ print "$current\n"; die "UHOH " if $current =~ /[^a-zA-Z0-9\.\-]/; mirror( "http://download.oracle.com/berkeley-db/$current", $curren +t ); $current =~ s/\.md5$//i; mirror( "http://download.oracle.com/berkeley-db/$current", $curren +t ); } __END__ ** GET http://www.oracle.com/technetwork/database/berkeleydb/downloads +/ ==> 301 Moved Permanently ** GET http://www.oracle.com/technetwork/database/berkeleydb/downloads +/index.html ==> 200 OK (1s) db-5.2.36.tar.gz.md5 ** GET http://download.oracle.com/berkeley-db/db-5.2.36.tar.gz.md5 ==> + 304 Not Modified ** GET http://download.oracle.com/berkeley-db/db-5.2.36.tar.gz ==> 304 + Not Modified

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://944947]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (10)
As of 2014-09-19 14:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (140 votes), past polls