1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE> [Mageia-sysadm] [224] use hostname function from perl core module Sys::Hostname ( and so avoid 1 useless fork )
</TITLE>
<LINK REL="Index" HREF="index.html" >
<LINK REL="made" HREF="mailto:mageia-sysadm%40mageia.org?Subject=Re%3A%20%5BMageia-sysadm%5D%20%5B224%5D%20use%20hostname%20function%20from%20perl%20core%20module%0A%20Sys%3A%3AHostname%20%28%20and%20so%20avoid%201%20useless%20fork%20%29&In-Reply-To=%3C20110106032527.179C5419D8%40valstar.mageia.org%3E">
<META NAME="robots" CONTENT="index,nofollow">
<META http-equiv="Content-Type" content="text/html; charset=us-ascii">
<LINK REL="Previous" HREF="001573.html">
<LINK REL="Next" HREF="001575.html">
</HEAD>
<BODY BGCOLOR="#ffffff">
<H1>[Mageia-sysadm] [224] use hostname function from perl core module Sys::Hostname ( and so avoid 1 useless fork )</H1>
<B>root at mageia.org</B>
<A HREF="mailto:mageia-sysadm%40mageia.org?Subject=Re%3A%20%5BMageia-sysadm%5D%20%5B224%5D%20use%20hostname%20function%20from%20perl%20core%20module%0A%20Sys%3A%3AHostname%20%28%20and%20so%20avoid%201%20useless%20fork%20%29&In-Reply-To=%3C20110106032527.179C5419D8%40valstar.mageia.org%3E"
TITLE="[Mageia-sysadm] [224] use hostname function from perl core module Sys::Hostname ( and so avoid 1 useless fork )">root at mageia.org
</A><BR>
<I>Thu Jan 6 04:25:27 CET 2011</I>
<P><UL>
<LI>Previous message: <A HREF="001573.html">[Mageia-sysadm] [223] - fix copyright, based on svn log.
</A></li>
<LI>Next message: <A HREF="001575.html">[Mageia-sysadm] Fwd: Re: Serveur Nfrance mlo/mageia
</A></li>
<LI> <B>Messages sorted by:</B>
<a href="date.html#1574">[ date ]</a>
<a href="thread.html#1574">[ thread ]</a>
<a href="subject.html#1574">[ subject ]</a>
<a href="author.html#1574">[ author ]</a>
</LI>
</UL>
<HR>
<!--beginarticle-->
<PRE>Revision: 224
Author: misc
Date: 2011-01-06 04:25:26 +0100 (Thu, 06 Jan 2011)
Log Message:
-----------
use hostname function from perl core module Sys::Hostname ( and so avoid 1 useless fork )
Modified Paths:
--------------
build_system/mdv-youri-core/trunk/lib/Youri/Repository/Mageia_upload.pm
Modified: build_system/mdv-youri-core/trunk/lib/Youri/Repository/Mageia_upload.pm
===================================================================
--- build_system/mdv-youri-core/trunk/lib/Youri/Repository/Mageia_upload.pm 2011-01-06 03:18:34 UTC (rev 223)
+++ build_system/mdv-youri-core/trunk/lib/Youri/Repository/Mageia_upload.pm 2011-01-06 03:25:26 UTC (rev 224)
@@ -19,6 +19,7 @@
use base qw/Youri::Repository/;
use MDV::Distribconf::Build;
use SVN::Client;
+use Sys::Hostname;
use constant {
PACKAGE_CLASS => 'Youri::Package::URPM',
@@ -70,8 +71,7 @@
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
$year+=1900;
$mon++;
- my $hostname = `hostname`;
- my ($host) = $hostname =~ /([^.]*)/;
+ my ($host) = hostname =~ /([^.]*)/;
sprintf "$year%02d%02d%02d%02d%02d.$user.$host.${$}_", $mon, $mday, $hour, $min, $sec;
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: </pipermail/mageia-sysadm/attachments/20110106/bc32c1f4/attachment.html>
</PRE>
<!--endarticle-->
<HR>
<P><UL>
<!--threads-->
<LI>Previous message: <A HREF="001573.html">[Mageia-sysadm] [223] - fix copyright, based on svn log.
</A></li>
<LI>Next message: <A HREF="001575.html">[Mageia-sysadm] Fwd: Re: Serveur Nfrance mlo/mageia
</A></li>
<LI> <B>Messages sorted by:</B>
<a href="date.html#1574">[ date ]</a>
<a href="thread.html#1574">[ thread ]</a>
<a href="subject.html#1574">[ subject ]</a>
<a href="author.html#1574">[ author ]</a>
</LI>
</UL>
<hr>
<a href="https://www.mageia.org/mailman/listinfo/mageia-sysadm">More information about the Mageia-sysadm
mailing list</a><br>
</body></html>
|
