pidgin/pidgin
Clone
Summary
Browse
Changes
Graph
Update the ChangeLog and configure.ac for release
release-2.x.y
v2.14.2
2021-04-01, Gary Kramlich
2eb25613d054
Update the ChangeLog and configure.ac for release
Testing Done:
Ran `make dist-check` locally.
Reviewed at https://reviews.imfreedom.org/r/590/
/*
silcpurple_util.c
Author: Pekka Riikonen <priikone@silcnet.org>
Copyright (C) 2004 - 2005 Pekka Riikonen
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 of the License.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
*/
#include
"silcincludes.h"
#include
"silcclient.h"
#include
"silcpurple.h"
#include
"imgstore.h"
/**************************** Utility Routines *******************************/
static
char
str
[
256
],
str2
[
256
];
const
char
*
silcpurple_silcdir
(
void
)
{
const
char
*
hd
=
purple_home_dir
();
memset
(
str
,
0
,
sizeof
(
str
));
g_snprintf
(
str
,
sizeof
(
str
)
-
1
,
"%s"
G_DIR_SEPARATOR_S
".silc"
,
hd
?
hd
:
"/tmp"
);
return
(
const
char
*
)
str
;
}
const
char
*
silcpurple_session_file
(
const
char
*
account
)
{
memset
(
str2
,
0
,
sizeof
(
str2
));
g_snprintf
(
str2
,
sizeof
(
str2
)
-
1
,
"%s"
G_DIR_SEPARATOR_S
"%s_session"
,
silcpurple_silcdir
(),
account
);
return
(
const
char
*
)
str2
;
}
gboolean
silcpurple_ip_is_private
(
const
char
*
ip
)
{
if
(
silc_net_is_ip4
(
ip
))
{
if
(
!
strncmp
(
ip
,
"10."
,
3
))
{
return
TRUE
;
}
else
if
(
!
strncmp
(
ip
,
"172."
,
4
)
&&
strlen
(
ip
)
>
6
)
{
char
tmp
[
3
];
int
s
;
memset
(
tmp
,
0
,
sizeof
(
tmp
));
strncpy
(
tmp
,
ip
+
4
,
2
);
s
=
atoi
(
tmp
);
if
(
s
>=
16
&&
s
<=
31
)
return
TRUE
;
}
else
if
(
!
strncmp
(
ip
,
"192.168."
,
8
))
{
return
TRUE
;
}
}
return
FALSE
;
}
/* This checks stats for various SILC files and directories. First it
checks if ~/.silc directory exist and is owned by the correct user. If
it doesn't exist, it will create the directory. After that it checks if
user's Public and Private key files exists and creates them if needed. */
gboolean
silcpurple_check_silc_dir
(
PurpleConnection
*
gc
)
{
char
filename
[
256
],
file_public_key
[
256
],
file_private_key
[
256
];
char
servfilename
[
256
],
clientfilename
[
256
],
friendsfilename
[
256
];
char
pkd
[
256
],
prd
[
256
];
struct
stat
st
;
struct
passwd
*
pw
;
int
fd
;
pw
=
getpwuid
(
getuid
());
if
(
!
pw
)
{
purple_debug_error
(
"silc"
,
"silc: %s
\n
"
,
g_strerror
(
errno
));
return
FALSE
;
}
g_snprintf
(
filename
,
sizeof
(
filename
)
-
1
,
"%s"
,
silcpurple_silcdir
());
g_snprintf
(
servfilename
,
sizeof
(
servfilename
)
-
1
,
"%s"
G_DIR_SEPARATOR_S
"serverkeys"
,
silcpurple_silcdir
());
g_snprintf
(
clientfilename
,
sizeof
(
clientfilename
)
-
1
,
"%s"
G_DIR_SEPARATOR_S
"clientkeys"
,
silcpurple_silcdir
());
g_snprintf
(
friendsfilename
,
sizeof
(
friendsfilename
)
-
1
,
"%s"
G_DIR_SEPARATOR_S
"friends"
,
silcpurple_silcdir
());
/*
* Check ~/.silc directory
*/
if
((
g_stat
(
filename
,
&
st
))
==
-1
)
{
/* If dir doesn't exist */
if
(
errno
==
ENOENT
)
{
if
(
pw
->
pw_uid
==
geteuid
())
{
if
((
g_mkdir
(
filename
,
0755
))
==
-1
)
{
purple_debug_error
(
"silc"
,
"Couldn't create '%s' directory
\n
"
,
filename
);
return
FALSE
;
}
}
else
{
purple_debug_error
(
"silc"
,
"Couldn't create '%s' directory due to a wrong uid!
\n
"
,
filename
);
return
FALSE
;
}
}
else
{
purple_debug_error
(
"silc"
,
"Couldn't stat '%s' directory, error: %s
\n
"
,
filename
,
g_strerror
(
errno
));
return
FALSE
;
}
}
else
{
#ifndef _WIN32
/* Check the owner of the dir */
if
(
st
.
st_uid
!=
0
&&
st
.
st_uid
!=
pw
->
pw_uid
)
{
purple_debug_error
(
"silc"
,
"You don't seem to own '%s' directory
\n
"
,
filename
);
return
FALSE
;
}
#endif
}
/*
* Check ~./silc/serverkeys directory
*/
if
((
g_stat
(
servfilename
,
&
st
))
==
-1
)
{
/* If dir doesn't exist */
if
(
errno
==
ENOENT
)
{
if
(
pw
->
pw_uid
==
geteuid
())
{
if
((
g_mkdir
(
servfilename
,
0755
))
==
-1
)
{
purple_debug_error
(
"silc"
,
"Couldn't create '%s' directory
\n
"
,
servfilename
);
return
FALSE
;
}
}
else
{
purple_debug_error
(
"silc"
,
"Couldn't create '%s' directory due to a wrong uid!
\n
"
,
servfilename
);
return
FALSE
;
}
}
else
{
purple_debug_error
(
"silc"
,
"Couldn't stat '%s' directory, error: %s
\n
"
,
servfilename
,
g_strerror
(
errno
));
return
FALSE
;
}
}
/*
* Check ~./silc/clientkeys directory
*/
if
((
g_stat
(
clientfilename
,
&
st
))
==
-1
)
{
/* If dir doesn't exist */
if
(
errno
==
ENOENT
)
{
if
(
pw
->
pw_uid
==
geteuid
())
{
if
((
g_mkdir
(
clientfilename
,
0755
))
==
-1
)
{
purple_debug_error
(
"silc"
,
"Couldn't create '%s' directory
\n
"
,
clientfilename
);
return
FALSE
;
}
}
else
{
purple_debug_error
(
"silc"
,
"Couldn't create '%s' directory due to a wrong uid!
\n
"
,
clientfilename
);
return
FALSE
;
}
}
else
{
purple_debug_error
(
"silc"
,
"Couldn't stat '%s' directory, error: %s
\n
"
,
clientfilename
,
g_strerror
(
errno
));
return
FALSE
;
}
}
/*
* Check ~./silc/friends directory
*/
if
((
g_stat
(
friendsfilename
,
&
st
))
==
-1
)
{
/* If dir doesn't exist */
if
(
errno
==
ENOENT
)
{
if
(
pw
->
pw_uid
==
geteuid
())
{
if
((
g_mkdir
(
friendsfilename
,
0755
))
==
-1
)
{
purple_debug_error
(
"silc"
,
"Couldn't create '%s' directory
\n
"
,
friendsfilename
);
return
FALSE
;
}
}
else
{
purple_debug_error
(
"silc"
,
"Couldn't create '%s' directory due to a wrong uid!
\n
"
,
friendsfilename
);
return
FALSE
;
}
}
else
{
purple_debug_error
(
"silc"
,
"Couldn't stat '%s' directory, error: %s
\n
"
,
friendsfilename
,
g_strerror
(
errno
));
return
FALSE
;
}
}
/*
* Check Public and Private keys
*/
g_snprintf
(
pkd
,
sizeof
(
pkd
),
"%s"
G_DIR_SEPARATOR_S
"public_key.pub"
,
silcpurple_silcdir
());
g_snprintf
(
prd
,
sizeof
(
prd
),
"%s"
G_DIR_SEPARATOR_S
"private_key.prv"
,
silcpurple_silcdir
());
g_snprintf
(
file_public_key
,
sizeof
(
file_public_key
)
-
1
,
"%s"
,
purple_account_get_string
(
gc
->
account
,
"public-key"
,
pkd
));
g_snprintf
(
file_private_key
,
sizeof
(
file_public_key
)
-
1
,
"%s"
,
purple_account_get_string
(
gc
->
account
,
"private-key"
,
prd
));
if
((
g_stat
(
file_public_key
,
&
st
))
==
-1
)
{
/* If file doesn't exist */
if
(
errno
==
ENOENT
)
{
purple_connection_update_progress
(
gc
,
_
(
"Creating SILC key pair..."
),
1
,
5
);
if
(
!
silc_create_key_pair
(
SILCPURPLE_DEF_PKCS
,
SILCPURPLE_DEF_PKCS_LEN
,
file_public_key
,
file_private_key
,
NULL
,
(
gc
->
password
==
NULL
)
?
""
:
gc
->
password
,
NULL
,
NULL
,
NULL
,
FALSE
))
{
purple_debug_error
(
"silc"
,
"Couldn't create key pair
\n
"
);
return
FALSE
;
}
if
((
g_stat
(
file_public_key
,
&
st
))
==
-1
)
{
purple_debug_error
(
"silc"
,
"Couldn't stat '%s' public key, error: %s
\n
"
,
file_public_key
,
g_strerror
(
errno
));
return
FALSE
;
}
}
else
{
purple_debug_error
(
"silc"
,
"Couldn't stat '%s' public key, error: %s
\n
"
,
file_public_key
,
g_strerror
(
errno
));
return
FALSE
;
}
}
#ifndef _WIN32
/* Check the owner of the public key */
if
(
st
.
st_uid
!=
0
&&
st
.
st_uid
!=
pw
->
pw_uid
)
{
purple_debug_error
(
"silc"
,
"You don't seem to own your public key!?
\n
"
);
return
FALSE
;
}
#endif
if
((
fd
=
g_open
(
file_private_key
,
O_RDONLY
,
0
))
!=
-1
)
{
if
((
fstat
(
fd
,
&
st
))
==
-1
)
{
purple_debug_error
(
"silc"
,
"Couldn't stat '%s' private key, error: %s
\n
"
,
file_private_key
,
g_strerror
(
errno
));
close
(
fd
);
return
FALSE
;
}
}
else
if
((
g_stat
(
file_private_key
,
&
st
))
==
-1
)
{
/* If file doesn't exist */
if
(
errno
==
ENOENT
)
{
purple_connection_update_progress
(
gc
,
_
(
"Creating SILC key pair..."
),
1
,
5
);
if
(
!
silc_create_key_pair
(
SILCPURPLE_DEF_PKCS
,
SILCPURPLE_DEF_PKCS_LEN
,
file_public_key
,
file_private_key
,
NULL
,
(
gc
->
password
==
NULL
)
?
""
:
gc
->
password
,
NULL
,
NULL
,
NULL
,
FALSE
))
{
purple_debug_error
(
"silc"
,
"Couldn't create key pair
\n
"
);
return
FALSE
;
}
if
((
fd
=
g_open
(
file_private_key
,
O_RDONLY
,
0
))
!=
-1
)
{
if
((
fstat
(
fd
,
&
st
))
==
-1
)
{
purple_debug_error
(
"silc"
,
"Couldn't stat '%s' private key, error: %s
\n
"
,
file_private_key
,
g_strerror
(
errno
));
close
(
fd
);
return
FALSE
;
}
}
/* This shouldn't really happen because silc_create_key_pair()
* will set the permissions */
else
if
((
g_stat
(
file_private_key
,
&
st
))
==
-1
)
{
purple_debug_error
(
"silc"
,
"Couldn't stat '%s' private key, error: %s
\n
"
,
file_private_key
,
g_strerror
(
errno
));
return
FALSE
;
}
}
else
{
purple_debug_error
(
"silc"
,
"Couldn't stat '%s' private key, error: %s
\n
"
,
file_private_key
,
g_strerror
(
errno
));
return
FALSE
;
}
}
#ifndef _WIN32
/* Check the owner of the private key */
if
(
st
.
st_uid
!=
0
&&
st
.
st_uid
!=
pw
->
pw_uid
)
{
purple_debug_error
(
"silc"
,
"You don't seem to own your private key!?
\n
"
);
if
(
fd
!=
-1
)
close
(
fd
);
return
FALSE
;
}
/* Check the permissions for the private key */
if
((
st
.
st_mode
&
0777
)
!=
0600
)
{
purple_debug_warning
(
"silc"
,
"Wrong permissions in your private key file `%s'!
\n
"
"Trying to change them ...
\n
"
,
file_private_key
);
if
((
fd
==
-1
)
||
(
fchmod
(
fd
,
S_IRUSR
|
S_IWUSR
))
==
-1
)
{
purple_debug_error
(
"silc"
,
"Failed to change permissions for private key file!
\n
"
"Permissions for your private key file must be 0600.
\n
"
);
if
(
fd
!=
-1
)
close
(
fd
);
return
FALSE
;
}
purple_debug_warning
(
"silc"
,
"Done.
\n\n
"
);
}
#endif
if
(
fd
!=
-1
)
close
(
fd
);
return
TRUE
;
}
#ifdef _WIN32
struct
passwd
*
getpwuid
(
uid_t
uid
)
{
struct
passwd
*
pwd
=
calloc
(
1
,
sizeof
(
struct
passwd
));
return
pwd
;
}
uid_t
getuid
()
{
return
0
;
}
uid_t
geteuid
()
{
return
0
;
}
#endif
void
silcpurple_show_public_key
(
SilcPurple
sg
,
const
char
*
name
,
SilcPublicKey
public_key
,
GCallback
callback
,
void
*
context
)
{
SilcPublicKeyIdentifier
ident
;
SilcPKCS
pkcs
;
char
*
fingerprint
,
*
babbleprint
;
unsigned
char
*
pk
;
SilcUInt32
pk_len
,
key_len
=
0
;
GString
*
s
;
char
*
buf
;
ident
=
silc_pkcs_decode_identifier
(
public_key
->
identifier
);
if
(
!
ident
)
return
;
pk
=
silc_pkcs_public_key_encode
(
public_key
,
&
pk_len
);
fingerprint
=
silc_hash_fingerprint
(
NULL
,
pk
,
pk_len
);
babbleprint
=
silc_hash_babbleprint
(
NULL
,
pk
,
pk_len
);
if
(
silc_pkcs_alloc
((
unsigned
char
*
)
public_key
->
name
,
&
pkcs
))
{
key_len
=
silc_pkcs_public_key_set
(
pkcs
,
public_key
);
silc_pkcs_free
(
pkcs
);
}
s
=
g_string_new
(
""
);
if
(
ident
->
realname
)
/* Hint for translators: Please check the tabulator width here and in
the next strings (short strings: 2 tabs, longer strings 1 tab,
sum: 3 tabs or 24 characters) */
g_string_append_printf
(
s
,
_
(
"Real Name:
\t
%s
\n
"
),
ident
->
realname
);
if
(
ident
->
username
)
g_string_append_printf
(
s
,
_
(
"User Name:
\t
%s
\n
"
),
ident
->
username
);
if
(
ident
->
email
)
g_string_append_printf
(
s
,
_
(
"Email:
\t\t
%s
\n
"
),
ident
->
email
);
if
(
ident
->
host
)
g_string_append_printf
(
s
,
_
(
"Host Name:
\t
%s
\n
"
),
ident
->
host
);
if
(
ident
->
org
)
g_string_append_printf
(
s
,
_
(
"Organization:
\t
%s
\n
"
),
ident
->
org
);
if
(
ident
->
country
)
g_string_append_printf
(
s
,
_
(
"Country:
\t
%s
\n
"
),
ident
->
country
);
g_string_append_printf
(
s
,
_
(
"Algorithm:
\t
%s
\n
"
),
public_key
->
name
);
g_string_append_printf
(
s
,
_
(
"Key Length:
\t
%d bits
\n
"
),
(
int
)
key_len
);
g_string_append_printf
(
s
,
"
\n
"
);
g_string_append_printf
(
s
,
_
(
"Public Key Fingerprint:
\n
%s
\n\n
"
),
fingerprint
);
g_string_append_printf
(
s
,
_
(
"Public Key Babbleprint:
\n
%s"
),
babbleprint
);
buf
=
g_string_free
(
s
,
FALSE
);
purple_request_action
(
sg
->
gc
,
_
(
"Public Key Information"
),
_
(
"Public Key Information"
),
buf
,
0
,
purple_connection_get_account
(
sg
->
gc
),
NULL
,
NULL
,
context
,
1
,
_
(
"Close"
),
callback
);
g_free
(
buf
);
silc_free
(
fingerprint
);
silc_free
(
babbleprint
);
silc_free
(
pk
);
silc_pkcs_free_identifier
(
ident
);
}
SilcAttributePayload
silcpurple_get_attr
(
SilcDList
attrs
,
SilcAttribute
attribute
)
{
SilcAttributePayload
attr
=
NULL
;
if
(
!
attrs
)
return
NULL
;
silc_dlist_start
(
attrs
);
while
((
attr
=
silc_dlist_get
(
attrs
))
!=
SILC_LIST_END
)
if
(
attribute
==
silc_attribute_get_attribute
(
attr
))
break
;
return
attr
;
}
void
silcpurple_get_umode_string
(
SilcUInt32
mode
,
char
*
buf
,
SilcUInt32
buf_size
)
{
memset
(
buf
,
0
,
buf_size
);
if
((
mode
&
SILC_UMODE_SERVER_OPERATOR
)
||
(
mode
&
SILC_UMODE_ROUTER_OPERATOR
))
{
strcat
(
buf
,
(
mode
&
SILC_UMODE_SERVER_OPERATOR
)
?
"[server operator] "
:
(
mode
&
SILC_UMODE_ROUTER_OPERATOR
)
?
"[SILC operator] "
:
"[unknown mode] "
);
}
if
(
mode
&
SILC_UMODE_GONE
)
strcat
(
buf
,
"[away] "
);
if
(
mode
&
SILC_UMODE_INDISPOSED
)
strcat
(
buf
,
"[indisposed] "
);
if
(
mode
&
SILC_UMODE_BUSY
)
strcat
(
buf
,
"[busy] "
);
if
(
mode
&
SILC_UMODE_PAGE
)
strcat
(
buf
,
"[wake me up] "
);
if
(
mode
&
SILC_UMODE_HYPER
)
strcat
(
buf
,
"[hyperactive] "
);
if
(
mode
&
SILC_UMODE_ROBOT
)
strcat
(
buf
,
"[robot] "
);
if
(
mode
&
SILC_UMODE_ANONYMOUS
)
strcat
(
buf
,
"[anonymous] "
);
if
(
mode
&
SILC_UMODE_BLOCK_PRIVMSG
)
strcat
(
buf
,
"[blocks private messages] "
);
if
(
mode
&
SILC_UMODE_DETACHED
)
strcat
(
buf
,
"[detached] "
);
if
(
mode
&
SILC_UMODE_REJECT_WATCHING
)
strcat
(
buf
,
"[rejects watching] "
);
if
(
mode
&
SILC_UMODE_BLOCK_INVITE
)
strcat
(
buf
,
"[blocks invites] "
);
g_strchomp
(
buf
);
}
void
silcpurple_get_chmode_string
(
SilcUInt32
mode
,
char
*
buf
,
SilcUInt32
buf_size
)
{
memset
(
buf
,
0
,
buf_size
);
if
(
mode
&
SILC_CHANNEL_MODE_FOUNDER_AUTH
)
strcat
(
buf
,
"[permanent] "
);
if
(
mode
&
SILC_CHANNEL_MODE_PRIVATE
)
strcat
(
buf
,
"[private] "
);
if
(
mode
&
SILC_CHANNEL_MODE_SECRET
)
strcat
(
buf
,
"[secret] "
);
if
(
mode
&
SILC_CHANNEL_MODE_PRIVKEY
)
strcat
(
buf
,
"[private key] "
);
if
(
mode
&
SILC_CHANNEL_MODE_INVITE
)
strcat
(
buf
,
"[invite only] "
);
if
(
mode
&
SILC_CHANNEL_MODE_TOPIC
)
strcat
(
buf
,
"[topic restricted] "
);
if
(
mode
&
SILC_CHANNEL_MODE_ULIMIT
)
strcat
(
buf
,
"[user count limit] "
);
if
(
mode
&
SILC_CHANNEL_MODE_PASSPHRASE
)
strcat
(
buf
,
"[passphrase auth] "
);
if
(
mode
&
SILC_CHANNEL_MODE_CHANNEL_AUTH
)
strcat
(
buf
,
"[public key auth] "
);
if
(
mode
&
SILC_CHANNEL_MODE_SILENCE_USERS
)
strcat
(
buf
,
"[users silenced] "
);
if
(
mode
&
SILC_CHANNEL_MODE_SILENCE_OPERS
)
strcat
(
buf
,
"[operators silenced] "
);
g_strchomp
(
buf
);
}
void
silcpurple_get_chumode_string
(
SilcUInt32
mode
,
char
*
buf
,
SilcUInt32
buf_size
)
{
memset
(
buf
,
0
,
buf_size
);
if
(
mode
&
SILC_CHANNEL_UMODE_CHANFO
)
strcat
(
buf
,
"[founder] "
);
if
(
mode
&
SILC_CHANNEL_UMODE_CHANOP
)
strcat
(
buf
,
"[operator] "
);
if
(
mode
&
SILC_CHANNEL_UMODE_BLOCK_MESSAGES
)
strcat
(
buf
,
"[blocks messages] "
);
if
(
mode
&
SILC_CHANNEL_UMODE_BLOCK_MESSAGES_USERS
)
strcat
(
buf
,
"[blocks user messages] "
);
if
(
mode
&
SILC_CHANNEL_UMODE_BLOCK_MESSAGES_ROBOTS
)
strcat
(
buf
,
"[blocks robot messages] "
);
if
(
mode
&
SILC_CHANNEL_UMODE_QUIET
)
strcat
(
buf
,
"[quieted] "
);
g_strchomp
(
buf
);
}
void
silcpurple_parse_attrs
(
SilcDList
attrs
,
char
**
moodstr
,
char
**
statusstr
,
char
**
contactstr
,
char
**
langstr
,
char
**
devicestr
,
char
**
tzstr
,
char
**
geostr
)
{
SilcAttributePayload
attr
;
SilcAttributeMood
mood
=
0
;
SilcAttributeContact
contact
;
SilcAttributeObjDevice
device
;
SilcAttributeObjGeo
geo
;
char
tmp
[
1024
];
GString
*
s
;
*
moodstr
=
NULL
;
*
statusstr
=
NULL
;
*
contactstr
=
NULL
;
*
langstr
=
NULL
;
*
devicestr
=
NULL
;
*
tzstr
=
NULL
;
*
geostr
=
NULL
;
if
(
!
attrs
)
return
;
s
=
g_string_new
(
""
);
attr
=
silcpurple_get_attr
(
attrs
,
SILC_ATTRIBUTE_STATUS_MOOD
);
if
(
attr
&&
silc_attribute_get_object
(
attr
,
&
mood
,
sizeof
(
mood
)))
{
if
(
mood
&
SILC_ATTRIBUTE_MOOD_HAPPY
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Happy"
));
if
(
mood
&
SILC_ATTRIBUTE_MOOD_SAD
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Sad"
));
if
(
mood
&
SILC_ATTRIBUTE_MOOD_ANGRY
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Angry"
));
if
(
mood
&
SILC_ATTRIBUTE_MOOD_JEALOUS
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Jealous"
));
if
(
mood
&
SILC_ATTRIBUTE_MOOD_ASHAMED
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Ashamed"
));
if
(
mood
&
SILC_ATTRIBUTE_MOOD_INVINCIBLE
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Invincible"
));
if
(
mood
&
SILC_ATTRIBUTE_MOOD_INLOVE
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"In Love"
));
if
(
mood
&
SILC_ATTRIBUTE_MOOD_SLEEPY
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Sleepy"
));
if
(
mood
&
SILC_ATTRIBUTE_MOOD_BORED
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Bored"
));
if
(
mood
&
SILC_ATTRIBUTE_MOOD_EXCITED
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Excited"
));
if
(
mood
&
SILC_ATTRIBUTE_MOOD_ANXIOUS
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Anxious"
));
}
if
(
strlen
(
s
->
str
))
{
*
moodstr
=
s
->
str
;
g_string_free
(
s
,
FALSE
);
g_strchomp
(
*
moodstr
);
}
else
g_string_free
(
s
,
TRUE
);
attr
=
silcpurple_get_attr
(
attrs
,
SILC_ATTRIBUTE_STATUS_FREETEXT
);
memset
(
tmp
,
0
,
sizeof
(
tmp
));
if
(
attr
&&
silc_attribute_get_object
(
attr
,
tmp
,
sizeof
(
tmp
)))
*
statusstr
=
g_strdup
(
tmp
);
s
=
g_string_new
(
""
);
attr
=
silcpurple_get_attr
(
attrs
,
SILC_ATTRIBUTE_PREFERRED_CONTACT
);
if
(
attr
&&
silc_attribute_get_object
(
attr
,
&
contact
,
sizeof
(
contact
)))
{
if
(
contact
&
SILC_ATTRIBUTE_CONTACT_CHAT
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Chat"
));
if
(
contact
&
SILC_ATTRIBUTE_CONTACT_EMAIL
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Email"
));
if
(
contact
&
SILC_ATTRIBUTE_CONTACT_CALL
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Phone"
));
if
(
contact
&
SILC_ATTRIBUTE_CONTACT_PAGE
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Paging"
));
if
(
contact
&
SILC_ATTRIBUTE_CONTACT_SMS
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"SMS"
));
if
(
contact
&
SILC_ATTRIBUTE_CONTACT_MMS
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"MMS"
));
if
(
contact
&
SILC_ATTRIBUTE_CONTACT_VIDEO
)
g_string_append_printf
(
s
,
"[%s] "
,
_
(
"Video Conferencing"
));
}
if
(
strlen
(
s
->
str
))
{
*
contactstr
=
s
->
str
;
g_string_free
(
s
,
FALSE
);
g_strchomp
(
*
contactstr
);
}
else
g_string_free
(
s
,
TRUE
);
attr
=
silcpurple_get_attr
(
attrs
,
SILC_ATTRIBUTE_PREFERRED_LANGUAGE
);
memset
(
tmp
,
0
,
sizeof
(
tmp
));
if
(
attr
&&
silc_attribute_get_object
(
attr
,
tmp
,
sizeof
(
tmp
)))
*
langstr
=
g_strdup
(
tmp
);
s
=
g_string_new
(
""
);
attr
=
silcpurple_get_attr
(
attrs
,
SILC_ATTRIBUTE_DEVICE_INFO
);
memset
(
&
device
,
0
,
sizeof
(
device
));
if
(
attr
&&
silc_attribute_get_object
(
attr
,
&
device
,
sizeof
(
device
)))
{
if
(
device
.
type
==
SILC_ATTRIBUTE_DEVICE_COMPUTER
)
g_string_append_printf
(
s
,
"%s: "
,
_
(
"Computer"
));
if
(
device
.
type
==
SILC_ATTRIBUTE_DEVICE_MOBILE_PHONE
)
g_string_append_printf
(
s
,
"%s: "
,
_
(
"Mobile Phone"
));
if
(
device
.
type
==
SILC_ATTRIBUTE_DEVICE_PDA
)
g_string_append_printf
(
s
,
"%s: "
,
_
(
"PDA"
));
if
(
device
.
type
==
SILC_ATTRIBUTE_DEVICE_TERMINAL
)
g_string_append_printf
(
s
,
"%s: "
,
_
(
"Terminal"
));
g_string_append_printf
(
s
,
"%s %s %s %s"
,
device
.
manufacturer
?
device
.
manufacturer
:
""
,
device
.
version
?
device
.
version
:
""
,
device
.
model
?
device
.
model
:
""
,
device
.
language
?
device
.
language
:
""
);
}
if
(
strlen
(
s
->
str
))
{
*
devicestr
=
s
->
str
;
g_string_free
(
s
,
FALSE
);
}
else
g_string_free
(
s
,
TRUE
);
attr
=
silcpurple_get_attr
(
attrs
,
SILC_ATTRIBUTE_TIMEZONE
);
memset
(
tmp
,
0
,
sizeof
(
tmp
));
if
(
attr
&&
silc_attribute_get_object
(
attr
,
tmp
,
sizeof
(
tmp
)))
*
tzstr
=
g_strdup
(
tmp
);
attr
=
silcpurple_get_attr
(
attrs
,
SILC_ATTRIBUTE_GEOLOCATION
);
memset
(
&
geo
,
0
,
sizeof
(
geo
));
if
(
attr
&&
silc_attribute_get_object
(
attr
,
&
geo
,
sizeof
(
geo
)))
*
geostr
=
g_strdup_printf
(
"%s %s %s (%s)"
,
geo
.
longitude
?
geo
.
longitude
:
""
,
geo
.
latitude
?
geo
.
latitude
:
""
,
geo
.
altitude
?
geo
.
altitude
:
""
,
geo
.
accuracy
?
geo
.
accuracy
:
""
);
}
#ifdef HAVE_SILCMIME_H
/* Returns MIME type of filetype */
char
*
silcpurple_file2mime
(
const
char
*
filename
)
{
const
char
*
ct
;
ct
=
strrchr
(
filename
,
'.'
);
if
(
!
ct
)
return
NULL
;
else
if
(
!
g_ascii_strcasecmp
(
".png"
,
ct
))
return
strdup
(
"image/png"
);
else
if
(
!
g_ascii_strcasecmp
(
".jpg"
,
ct
))
return
strdup
(
"image/jpeg"
);
else
if
(
!
g_ascii_strcasecmp
(
".jpeg"
,
ct
))
return
strdup
(
"image/jpeg"
);
else
if
(
!
g_ascii_strcasecmp
(
".gif"
,
ct
))
return
strdup
(
"image/gif"
);
else
if
(
!
g_ascii_strcasecmp
(
".tiff"
,
ct
))
return
strdup
(
"image/tiff"
);
return
NULL
;
}
/* Checks if message has images, and assembles MIME message if it has.
If only one image is present, creates simple MIME image message. If
there are multiple images and/or text with images multipart MIME
message is created. */
SilcDList
silcpurple_image_message
(
const
char
*
msg
,
SilcUInt32
*
mflags
)
{
SilcMime
mime
=
NULL
,
p
;
SilcDList
list
,
parts
=
NULL
;
const
char
*
start
,
*
end
,
*
last
;
GData
*
attribs
;
char
*
type
;
gboolean
images
=
FALSE
;
last
=
msg
;
while
(
last
&&
*
last
&&
purple_markup_find_tag
(
"img"
,
last
,
&
start
,
&
end
,
&
attribs
))
{
PurpleStoredImage
*
image
=
NULL
;
const
char
*
id
;
/* Check if there is text before image */
if
(
start
-
last
)
{
char
*
text
,
*
tmp
;
p
=
silc_mime_alloc
();
/* Add content type */
silc_mime_add_field
(
p
,
"Content-Type"
,
"text/plain; charset=utf-8"
);
tmp
=
g_strndup
(
last
,
start
-
last
);
text
=
purple_unescape_html
(
tmp
);
g_free
(
tmp
);
/* Add text */
silc_mime_add_data
(
p
,
(
unsigned
char
*
)
text
,
strlen
(
text
));
g_free
(
text
);
if
(
!
parts
)
parts
=
silc_dlist_init
();
silc_dlist_add
(
parts
,
p
);
}
id
=
g_datalist_get_data
(
&
attribs
,
"id"
);
if
(
id
&&
(
image
=
purple_imgstore_find_by_id
(
atoi
(
id
))))
{
unsigned
long
imglen
=
purple_imgstore_get_size
(
image
);
gconstpointer
img
=
purple_imgstore_get_data
(
image
);
p
=
silc_mime_alloc
();
/* Add content type */
type
=
silcpurple_file2mime
(
purple_imgstore_get_filename
(
image
));
if
(
!
type
)
{
g_datalist_clear
(
&
attribs
);
last
=
end
+
1
;
continue
;
}
silc_mime_add_field
(
p
,
"Content-Type"
,
type
);
silc_free
(
type
);
/* Add content transfer encoding */
silc_mime_add_field
(
p
,
"Content-Transfer-Encoding"
,
"binary"
);
/* Add image data */
silc_mime_add_data
(
p
,
img
,
imglen
);
if
(
!
parts
)
parts
=
silc_dlist_init
();
silc_dlist_add
(
parts
,
p
);
images
=
TRUE
;
}
g_datalist_clear
(
&
attribs
);
/* Continue after tag */
last
=
end
+
1
;
}
/* Check for text after the image(s) */
if
(
images
&&
last
&&
*
last
)
{
char
*
tmp
=
purple_unescape_html
(
last
);
p
=
silc_mime_alloc
();
/* Add content type */
silc_mime_add_field
(
p
,
"Content-Type"
,
"text/plain; charset=utf-8"
);
/* Add text */
silc_mime_add_data
(
p
,
(
unsigned
char
*
)
tmp
,
strlen
(
tmp
));
g_free
(
tmp
);
if
(
!
parts
)
parts
=
silc_dlist_init
();
silc_dlist_add
(
parts
,
p
);
}
/* If there weren't any images, don't return anything. */
if
(
!
images
)
{
if
(
parts
)
silc_dlist_uninit
(
parts
);
return
NULL
;
}
if
(
silc_dlist_count
(
parts
)
>
1
)
{
/* Multipart MIME message */
char
b
[
32
];
mime
=
silc_mime_alloc
();
silc_mime_add_field
(
mime
,
"MIME-Version"
,
"1.0"
);
g_snprintf
(
b
,
sizeof
(
b
),
"b%4X%4X"
,
(
unsigned
int
)
time
(
NULL
),
silc_dlist_count
(
parts
));
silc_mime_set_multipart
(
mime
,
"mixed"
,
b
);
silc_dlist_start
(
parts
);
while
((
p
=
silc_dlist_get
(
parts
))
!=
SILC_LIST_END
)
silc_mime_add_multipart
(
mime
,
p
);
}
else
{
/* Simple MIME message */
silc_dlist_start
(
parts
);
mime
=
silc_dlist_get
(
parts
);
silc_mime_add_field
(
mime
,
"MIME-Version"
,
"1.0"
);
}
*
mflags
&=
~
SILC_MESSAGE_FLAG_UTF8
;
*
mflags
|=
SILC_MESSAGE_FLAG_DATA
;
/* Encode message. Fragment if it is too large */
list
=
silc_mime_encode_partial
(
mime
,
0xfc00
);
silc_dlist_uninit
(
parts
);
/* Added multiparts gets freed here */
silc_mime_free
(
mime
);
return
list
;
}
#endif
/* HAVE_SILCMIME_H */