3 # SourceForge: Breaking Down the Barriers to Open Source Development
4 # Copyright 1999-2000 (c) The SourceForge Crew
5 # http://sourceforge.net
8 ########################
9 # global configuration #
10 ########################
11 $config{'database_include'} = '/etc/gforge/database.inc'; # database include file
12 $config{'lock_file'} = '/tmp/sf-backend'; # lockfile location
13 $config{'log_file'} = '/home/dummy/backend.log'; # logfile location
14 $config{'group_dir_prefix'} = '/home/groups'; # prefix for group directories
15 $config{'user_dir_prefix'} = '/home/users'; # prefix for user directories
16 $config{'database_dump_dir'} = '/home/dummy/dumps'; # where are the database dumps kept
17 $config{'delete_tar_dir'} = '/tmp'; # place to stick tarballs of deleted accounts/groups
18 $config{'dummy_uid'} = getpwnam('dummy'); # userid of the dummy user
19 $config{'days_since_epoch'} = int(time()/3600/24); # number of days since the epoch
20 $config{'hostname'} = hostname(); # machine hostname
26 open(Log, ">>$config{'log_file'}") || die "Couldn't Open Logfile: $!\n";
32 ##############################
33 # log message to the logfile #
34 ##############################
37 my $time = strftime "%Y-%m-%d - %T", localtime;
38 print "$time\t$msg\n";
42 ##########################
43 # exit the script nicely #
44 ##########################
46 &logme("------ Script Ended -------\n");
51 #########################################
52 # open a file and read it into an array #
53 #########################################
55 my $filename = shift(@_);
57 # Now read in the file as a big array
58 open (FD, $filename) || die &logme("Can't open $filename: $!");
62 &logme("Opened $filename with $@tmp_array Lines");
66 ################################
67 # write an array out to a file #
68 ################################
70 my ($filename, @filearray) = @_;
72 # Write this array out to $filename
73 open(FD, ">$filename") || die &logme("Can't open $filename: $!");
74 foreach (@filearray) {
79 &logme("Wrote $filename with $#filearray Lines");