zarb-ml/mageia-sysadm/2010-November/000908.html


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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
 <HEAD>
   <TITLE> [Mageia-sysadm] [135] - factorise the code who deal with ip ( so we can change it at one place for ipv6 support )
   </TITLE>
   <LINK REL="Index" HREF="index.html" >
   <LINK REL="made" HREF="mailto:mageia-sysadm%40mageia.org?Subject=Re%3A%20%5BMageia-sysadm%5D%20%5B135%5D%20-%20factorise%20the%20code%20who%20deal%20with%20ip%20%28%20so%20we%0A%20can%20change%20it%20at%20one%20place%20for%20ipv6%20support%20%29&In-Reply-To=%3C20101124230307.6C6FE3FD75%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="000907.html">
   <LINK REL="Next"  HREF="000909.html">
 </HEAD>
 <BODY BGCOLOR="#ffffff">
   <H1>[Mageia-sysadm] [135] - factorise the code who deal with ip ( so we can change it at one place for ipv6 support )</H1>
    <B>root at mageia.org</B> 
    <A HREF="mailto:mageia-sysadm%40mageia.org?Subject=Re%3A%20%5BMageia-sysadm%5D%20%5B135%5D%20-%20factorise%20the%20code%20who%20deal%20with%20ip%20%28%20so%20we%0A%20can%20change%20it%20at%20one%20place%20for%20ipv6%20support%20%29&In-Reply-To=%3C20101124230307.6C6FE3FD75%40valstar.mageia.org%3E"
       TITLE="[Mageia-sysadm] [135] - factorise the code who deal with ip ( so we can change it at one place for ipv6 support )">root at mageia.org
       </A><BR>
    <I>Thu Nov 25 00:03:07 CET 2010</I>
    <P><UL>
        <LI>Previous message: <A HREF="000907.html">[Mageia-sysadm] [464] fix missing subscribe
</A></li>
        <LI>Next message: <A HREF="000909.html">[Mageia-sysadm] [465] do not pass iurt logdir as argument, it would require a wrapper parsing the option, we will handle this in ulri
</A></li>
         <LI> <B>Messages sorted by:</B> 
              <a href="date.html#908">[ date ]</a>
              <a href="thread.html#908">[ thread ]</a>
              <a href="subject.html#908">[ subject ]</a>
              <a href="author.html#908">[ author ]</a>
         </LI>
       </UL>
    <HR>  
<!--beginarticle-->
<PRE>Revision: 135
Author:   misc
Date:     2010-11-25 00:03:07 +0100 (Thu, 25 Nov 2010)
Log Message:
-----------
- factorise the code who deal with ip ( so we can change it at one place for ipv6 support )

Modified Paths:
--------------
    identity/CatDap/trunk/lib/CatDap/Controller/user.pm

Modified: identity/CatDap/trunk/lib/CatDap/Controller/user.pm
===================================================================
--- identity/CatDap/trunk/lib/CatDap/Controller/user.pm	2010-11-24 19:26:09 UTC (rev 134)
+++ identity/CatDap/trunk/lib/CatDap/Controller/user.pm	2010-11-24 23:03:07 UTC (rev 135)
@@ -55,7 +55,7 @@
     my $mesg;
     my $dn;
     my @errors;
-    my $keyprefix = sprintf(&quot;%02x%02x%02x&quot;,split /\./,$c-&gt;req-&gt;address);
+    my $keyprefix = $self-&gt;get_keyprefix($c);
     if (! defined $c-&gt;user or not $c-&gt;req-&gt;cookie('key')) {
 	if (not $c-&gt;req-&gt;param('password')) {
 	    push @errors,$c-&gt;loc('Your session has expired');
@@ -112,6 +112,10 @@
 
 }
 
+sub get_keyprefix : Private {
+    my ( $self, $c ) = @_;
+    return sprintf(&quot;%02x%02x%02x&quot;,split /\./,$c-&gt;req-&gt;address);
+}
 =head2 index
 
 =cut
@@ -286,7 +290,7 @@
     } else {
 
         # re-encrypt the new password and forward to user view
-        my $keyprefix = sprintf(&quot;%02x%02x%02x&quot;,split /\./,$c-&gt;req-&gt;address);
+        my $keyprefix = $self-&gt;get_keyprefix($c);
         my $key = $c-&gt;req-&gt;cookie('key')-&gt;value;
         $cipher = Crypt::CBC-&gt;new( -key    =&gt; $keyprefix . $key,
             -cipher =&gt; 'Blowfish'
@@ -314,7 +318,7 @@
             $c-&gt;res-&gt;redirect('/user');
 	}
 	# cache password for next request with form data
-        my $keyprefix = sprintf(&quot;%02x%02x%02x&quot;,split /\./,$c-&gt;req-&gt;address);
+        my $keyprefix = $self-&gt;get_keyprefix($c);
 	my $key = Data::UUID-&gt;new-&gt;create_str();
         $cipher = Crypt::CBC-&gt;new( -key    =&gt; $keyprefix . $key,
                 -cipher =&gt; 'Blowfish'
@@ -331,7 +335,7 @@
     }
 
     #Re-authenticate user
-    my $keyprefix = sprintf(&quot;%02x%02x%02x&quot;,split /\./,$c-&gt;req-&gt;address);
+    my $keyprefix = $self-&gt;get_keyprefix($c);
     my $key = $c-&gt;req-&gt;cookie('key')-&gt;value;
     $cipher = Crypt::CBC-&gt;new( -key    =&gt; $keyprefix . $key,
         -cipher =&gt; 'Blowfish'
-------------- next part --------------
An HTML attachment was scrubbed...
URL: &lt;/pipermail/mageia-sysadm/attachments/20101125/fa7a0339/attachment.html&gt;
</PRE>


<!--endarticle-->
    <HR>
    <P><UL>
        <!--threads-->
	<LI>Previous message: <A HREF="000907.html">[Mageia-sysadm] [464] fix missing subscribe
</A></li>
	<LI>Next message: <A HREF="000909.html">[Mageia-sysadm] [465] do not pass iurt logdir as argument, it would require a wrapper parsing the option, we will handle this in ulri
</A></li>
         <LI> <B>Messages sorted by:</B> 
              <a href="date.html#908">[ date ]</a>
              <a href="thread.html#908">[ thread ]</a>
              <a href="subject.html#908">[ subject ]</a>
              <a href="author.html#908">[ 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>