File: hello-world.ft

package info (click to toggle)
freetalk 3.2-11
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 1,804 kB
  • sloc: sh: 4,387; cpp: 3,281; lisp: 1,044; makefile: 133; sed: 16
file content (20 lines) | stat: -rwxr-xr-x 447 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/freetalk -s
!#

; file: hello-world.ft

;;; Example:
; chmod +x hello-world.ft
; ./hello-world.ft

(ft-set-jid! "YOUR-NAME@gmail.com")
(ft-set-server! "talk.google.com")
(ft-set-password! "YOUR-PASSWORD")
(ft-set-sslconn! #t)

(if (ft-login-blocking)
   (begin
     (ft-send-message "YOUR-FRIEND@gmail.com" "Hi")
     (ft-send-message "YOUR-FRIEND@gmail.com" "Are you there?")
     (ft-disconnect))
   (display "Could not connect\n"))