Hello.
With this diff Nudges plugin add an option to allow to log sent/received
nudges.
There isn't the ":" problem anymore.
It should work perfectly.
Thanks
Index: lang/langen
===================================================================
--- lang/langen (revisione 7923)
+++ lang/langen (copia locale)
@@ -16,3 +16,5 @@
delay Minimum time between 2 nudge from the same contact (in seconds)
send_nudge Send nudge
block_nudge Block/Unblock nudges
+log_nudge Log nudges notification (Log system in amsn preferences must be enabled)
+nudge_received You have just received a Nudge
\ Nessun a-capo alla fine del file
Index: Nudge.tcl
===================================================================
--- Nudge.tcl (revisione 7923)
+++ Nudge.tcl (copia locale)
@@ -75,6 +75,7 @@
addbutton {1}
addblockbutton {0}
addclmenuitem {0}
+ lognudge {1}
limit {1}
delay {60}
}
@@ -98,6 +99,7 @@
[list bool "$::Nudge::language(add_button)" addbutton] \
[list bool "$::Nudge::language(add_blockbutton)" addblockbutton] \
[list bool "$::Nudge::language(add_clmenuitem)" addclmenuitem] \
+ [list bool "$::Nudge::language(log_nudge)" lognudge] \
[list bool "$::Nudge::language(limit)" limit] \
[list str "\t$::Nudge::language(delay):" delay] \
]
@@ -149,6 +151,8 @@
block_nudge "Block/Unblock Nudges" \
no_nudge_support "You cannot sent a nudge to your contact because he or she doesn't use a client that supports nudges" \
nudge_sent "You have just sent a Nudge" \
+ log_nudge "Log nudges notification (Log system in amsn preferences must be enabled)" \
+ nudge_received "You have just received a Nudge" \
]
}
@@ -168,6 +172,7 @@
add_clmenuitem "[trans add_clmenuitem]" send_nudge "[trans send_nudge]" \
no_nudge_support "[trans no_nudge_support]" nudge_sent "[trans nudge_sent]" \
limit "[trans limit]" delay "[trans delay]" block_nudge "[trans block_nudge]" \
+ log_nudge "[trans log_nudge]" nudge_received "[trans nudge_received]" \
]
}
@@ -236,6 +241,11 @@
#Shake that window
::Nudge::shake ${win_name} $::Nudge::config(shakes)
}
+
+ #if the user choosed to log nudges notification
+ if {$::Nudge::config(lognudge) == 1 && [::config::getKey keep_logs]} {
+ ::log::WriteLog $chatid "\|\"LITA$::Nudge::language(nudge_received)!\n" 0 $chatid
+ }
#If Growl plugin is loaded, show the notification, Mac OS X only
if { [info commands ::growl::InitPlugin] != "" } {
@@ -245,7 +255,7 @@
::abook::setVolatileData $chatid last_nudge $timestamp
::Nudge::log "Receiving nudge from <[::abook::getDisplayNick $chatid]> is finished"
-
+
}
}
@@ -506,6 +516,11 @@
#Send the packet of the nudge
::Nudge::SendPacket $chatid
+
+ #if the user choosed to log nudges notification
+ if {$::Nudge::config(lognudge) == 1 && [::config::getKey keep_logs]} {
+ ::log::WriteLog $chatid "\|\"LITA$::Nudge::language(nudge_sent)!\n" 0 $chatid
+ }
}
################################################
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier.
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel
