bbs/magicka
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update files to have upload date...

Browse Source
This commit is contained in:
Andrew Pamment
2017-09-28 17:56:17 +10:00
parent 01b7ad9481
commit 7aea5a869d
4 changed files with 80 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
utils/massupload/massupload.pl
View File

@@ -31,7 +31,8 @@ my $stmt = qq(CREATE TABLE IF NOT EXISTS files (
description TEXT,
size INTEGER,
dlcount INTEGER,
approved INTEGER););
approved INTEGER,
uploaddate INTEGER););
my $rv = $dbh->do($stmt);
my $string;
@@ -81,8 +82,9 @@ foreach my $fp (glob("$dir/*")) {
print(" not zip file.\n");
}
my $size = -s $fp;
$sth = $dbh->prepare('INSERT INTO files (filename, description, size, dlcount, approved) VALUES($1, $2, $3, 0, 1)');
$sth->execute($fp, $string, $size);
my $curtime = time();
$sth = $dbh->prepare('INSERT INTO files (filename, description, size, dlcount, approved, uploaddate) VALUES($1, $2, $3, 0, 1, $4)');
$sth->execute($fp, $string, $size, $curtime);
}
}
}
}