Select Code to Download

#this script will create the database which will be used
#CAREFUL! IF THERE EXISTS A PREVIOUS DATABASE IT WILL DELETE IT !!!
...
`rm checksum_db.sqlite`;
my $dbh = DBI->connect("dbi:SQLite:dbname=checksum_db.sqlite","","");
$dbh->do("CREATE TABLE checksums (id INTEGER PRIMARY KEY,checksum VARC
+HAR(42),size INTEGER,last_date_modified DATE,name VARCHAR(200) UNIQUE
+,is_dir VARCHAR(1),is_file VARCHAR(1),is_link VARCHAR(1),UNIQUE (chec
+ksum,name));");

minsize: 64
directories:
...
    file: 1
    link: 0
    regex: .*

#this will be used just for the first run
#!/usr/bin/perl 
...
}

#!/usr/bin/perl 
use strict;
...
    );
}

#!/usr/bin/perl 
use strict;
...
};

close $script;