aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Youri/Repository
diff options
context:
space:
mode:
authorFlorent Villard <warly@mandriva.com>2006-08-05 12:49:19 +0000
committerFlorent Villard <warly@mandriva.com>2006-08-05 12:49:19 +0000
commit49b1c37357b72374aaa6053d503a242e8b85dd0e (patch)
tree85a71280539ea0a0ae2e8f4e9e8837bf7e9d7660 /lib/Youri/Repository
parent648860b1d702c26deef80cbb262f575f4818ae0d (diff)
downloadmga-youri-core-49b1c37357b72374aaa6053d503a242e8b85dd0e.tar
mga-youri-core-49b1c37357b72374aaa6053d503a242e8b85dd0e.tar.gz
mga-youri-core-49b1c37357b72374aaa6053d503a242e8b85dd0e.tar.bz2
mga-youri-core-49b1c37357b72374aaa6053d503a242e8b85dd0e.tar.xz
mga-youri-core-49b1c37357b72374aaa6053d503a242e8b85dd0e.zip
use define to get the user
Diffstat (limited to 'lib/Youri/Repository')
-rw-r--r--lib/Youri/Repository/Mandriva_upload.pm17
1 files changed, 9 insertions, 8 deletions
diff --git a/lib/Youri/Repository/Mandriva_upload.pm b/lib/Youri/Repository/Mandriva_upload.pm
index 0b5ee58..b4e393b 100644
--- a/lib/Youri/Repository/Mandriva_upload.pm
+++ b/lib/Youri/Repository/Mandriva_upload.pm
@@ -33,7 +33,6 @@ sub _init {
install_root => '',
test => 0, # test mode
verbose => 0, # verbose mode
- user => '',
@_
);
@@ -44,17 +43,19 @@ sub _init {
}
}
print "Initializing repository for @{$self->{_arch}}\n";
- foreach my $v ('user', 'noarch', 'install_root', 'upload_root', 'verbose') {
+ foreach my $v ('noarch', 'install_root', 'upload_root', 'verbose') {
$self->{"_$v"} = $options{$v}
}
-
+ $self
+}
+sub get_group_id {
+ my ($user) = @_;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
$year+=1900;
$mon++;
my $hostname = `hostname`;
my ($host) = $hostname =~ /([^.]*)/;
- $self->{group_id} = sprintf "$year%02d%02d%02d%02d%02d.$self->{_user}.$host.${$}_", $mon, $mday, $hour, $min, $sec;
- $self
+ sprintf "$year%02d%02d%02d%02d%02d.$self->{_user}.$host.${$}_", $mon, $mday, $hour, $min, $sec;
}
sub _get_media_config {
@@ -103,15 +104,15 @@ sub get_package_charset {
}
sub get_upload_dir {
- my ($self, $package, $target, $define, $user) = @_;
+ my ($self, $package, $target, $define) = @_;
croak "Not a class method" unless ref $self;
my $arch = $package->get_arch();
- print "USER $user\n";
return
$self->{_upload_root} .
"/todo/$target/" .
$self->_get_section($package, $target, $define) .
- "/$self->{group_id}"
+ '/' .
+ get_group_id($define->{user})
}
sub get_install_path {