oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

updated it for the 7.0 api

Browse source
This commit is contained in:
JT Smith 2006-05-09 21:30:31 +00:00
parent 5f66febbd6
commit ef036316cc
1 changed files with 11 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

25
sbin/fileImport.pl
View file

@ -27,7 +27,6 @@ use POSIX;
use strict; use strict;
use WebGUI::Asset::File; use WebGUI::Asset::File;
use WebGUI::Asset::File::Image; use WebGUI::Asset::File::Image;
use WebGUI::DateTime;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Storage; use WebGUI::Storage;
use WebGUI::Utility; use WebGUI::Utility;
@ -169,9 +168,7 @@ EXIT STATUS
STOP STOP
} }
# TB : Unable to use $session{os}{slash} variable. my $slash = ($^O =~ /^Win/i) ? "\\" : "/";
# Define $slash variable local for the script.
my $slash = ($^O =~ /Win/i) ? "\\" : "/";
if (!($^O =~ /^Win/i) && $> != 0 && !$override) { if (!($^O =~ /^Win/i) && $> != 0 && !$override) {
print "You must be the super user to use this utility.\n"; print "You must be the super user to use this utility.\n";
@ -182,10 +179,10 @@ if (!($^O =~ /^Win/i) && $> != 0 && !$override) {
my %ListAssetExists; my %ListAssetExists;
my %filelisthash; my %filelisthash;
print "Starting..." unless ($quiet); print "Starting..." unless ($quiet);
WebGUI::Session::open($webguiRoot,$configFile); my $session = WebGUI::Session->open($webguiRoot,$configFile);
WebGUI::Session::refreshUserInfo(3); $session->user({userId=>3});
print "OK\n" unless ($quiet); print "OK\n" unless ($quiet);
my $parent = WebGUI::Asset::File->newByDynamicClass($parentAssetId); my $parent = WebGUI::Asset::File->newByDynamicClass($session, $parentAssetId);
if (defined $parent) { if (defined $parent) {
&buildListAssetExists($parent); &buildListAssetExists($parent);
} else { } else {
@ -198,8 +195,8 @@ print "End of the childs detection\n" unless ($quiet);
&setPrivileges(); &setPrivileges();
print "Cleaning up..." unless ($quiet); print "Cleaning up..." unless ($quiet);
WebGUI::Session::end($session{var}{sessionId}); $session->var->end();
WebGUI::Session::close(); $session->close();
print "OK\n" unless ($quiet); print "OK\n" unless ($quiet);
exit 0; exit 0;
@ -227,14 +224,14 @@ sub addFiles {
if ($replaceAsset == 1) { if ($replaceAsset == 1) {
# TB : If the Asset exists, just copy the file. # TB : If the Asset exists, just copy the file.
# To be check. # To be check.
my $storage = WebGUI::Storage->get($replaceAssetId); my $storage = WebGUI::Storage->get($session, $replaceAssetId);
print "\t\tAsset exists already. Replace the file.\n" unless ($quiet); print "\t\tAsset exists already. Replace the file.\n" unless ($quiet);
my $filename = $storage->addFileFromFilesystem("$pathToFiles$slash$file->{relpath}$slash$file->{filename}"); my $filename = $storage->addFileFromFilesystem("$pathToFiles$slash$file->{relpath}$slash$file->{filename}");
$child->generateThumbnail if ($class eq 'WebGUI::Asset::File::Image'); $child->generateThumbnail if ($class eq 'WebGUI::Asset::File::Image');
$child->setSize($storage->getFileSize($filename)); $child->setSize($storage->getFileSize($filename));
} else { } else {
print "\t\tCreate the new asset.\n" unless ($quiet); print "\t\tCreate the new asset.\n" unless ($quiet);
my $storage = WebGUI::Storage->create; my $storage = WebGUI::Storage->create($session);
my $filename = $storage->addFileFromFilesystem("$pathToFiles$slash$file->{relpath}$slash$file->{filename}"); my $filename = $storage->addFileFromFilesystem("$pathToFiles$slash$file->{relpath}$slash$file->{filename}");
# TB : possibly remove the extension if the ignoreExtInName feature enabled. # TB : possibly remove the extension if the ignoreExtInName feature enabled.
my $filenameTitle = $filename; my $filenameTitle = $filename;
@ -265,8 +262,8 @@ sub addFiles {
#----------------------------------------- #-----------------------------------------
sub setPrivileges { sub setPrivileges {
print "Setting filesystem privileges.\n" unless ($quiet); print "Setting filesystem privileges.\n" unless ($quiet);
if ($session{os}{type} = "Linuxish") { if ($session->os->get("type") = "Linuxish") {
unless (system("chown -R ".$webUser." ".$session{config}{uploadsPath})) { unless (system("chown -R ".$webUser." ".$session->config->get("uploadsPath"))) {
print "Privileges set.\n" unless ($quiet); print "Privileges set.\n" unless ($quiet);
} else { } else {
print "Could not set privileges.\n"; print "Could not set privileges.\n";
@ -409,7 +406,7 @@ sub buildListAssetExists {
my ($parent) = @_; my ($parent) = @_;
my @allelement = $parent->getLineage(); my @allelement = $parent->getLineage();
foreach my $elem ( @{$allelement[0]} ) { foreach my $elem ( @{$allelement[0]} ) {
my $child = WebGUI::Asset::File->newByDynamicClass($elem); my $child = WebGUI::Asset::File->newByDynamicClass($session,$elem);
if (defined $child) { if (defined $child) {
$ListAssetExists{$child->getUrl} = $child; $ListAssetExists{$child->getUrl} = $child;
} }