p
u
b
l
i
c
f
u
n
c
t
i
o
n
l
o
g
i
n
(
$
u
s
e
r
n
a
m
e
,
$
p
a
s
s
w
o
r
d
)
{
i
f
(
$
t
h
i
s
u
s
e
r
R
e
p
o
s
i
t
o
r
y
i
s
V
a
l
i
d
(
$
u
s
e
r
n
a
m
e
,
$
p
a
s
s
w
o
r
d
)
)
{
r
e
t
u
r
n
r
e
d
i
r
e
c
t
(
"
h
o
m
e
p
a
g
e
"
)
;
}
a
d
d
F
l
a
s
h
(
"
e
r
r
o
r
"
,
"
B
a
d
c
r
e
d
e
n
t
i
a
l
s
"
)
;
r
e
t
u
r
n
r
e
d
i
r
e
c
t
(
"
l
o
g
i
n
"
)
;
}