Re: [hylafax-users] Faxing form linux

[Hans-Peter Jansen <hpj@urpla.net>]

On Thursday 03 October 2002 10:39, Pedro Rocadas wrote:
> --- prakash  modak <prakashmodak_74@rediffmail.com>
>
> wrote:
> >   Hi,
> >
> >   How can i fax from  linux client ..
> >   i configured  whfc and it workes perfect with
> > windows as it
> > gives
> >   faxport and it automaticlly popup when U say
> > print.
> >
> >   is their anything like this in linux which pop's
> > up
> >   automaticlly..
> >
> >
> >   Prakash
>
> Can't remember well right now but, try gnofax(?),
> KSendfax(?), look in the new KDE versions,
> StraOffice/openOffice (search the mailling list to see
> how to send fax), etc,etc,etc.

Or roll your own. See attachment.

Hans-Peter
#!/bin/sh
echo DEFANGED.42136
exit
#!/bin/sh
echo DEFANGED.218
exit
#!/bin/sh
echo DEFANGED.42137
exit
#!/usr/bin/wish

#   tkfaxspool - graphical frontend for faxspool
#   Copyright (c) 1998  Martin Schulze <joey@infodrom.north.de>
#	Hacked by Hans-Peter Jansen <hpj.lisa@t-online.de>

#   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; either version 2 of the License, or
#   (at your option) any later version.

#   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.

wm title . "Sende Fax"

set faxnr "0-"

frame .line
label .title -text "Bitte Fax-Nummer eingeben:" -highlightthickness 4 -font -adobe-helvetica-bold-r-*-*-13-*-*-*-*-*-*-*
entry .input -relief sunken -width 20 -textvariable faxnr -font -adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
button .button -text "Abbruch" -command { exit } -font -adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*

pack .title .line -side top 
pack .input -side left -padx 1m -pady 1m -in .line
pack .button -side left -padx 1m -in .line

focus .input
.input icursor 2

bind .input <Escape> { exit }

bind .input <Return> {
    destroy .

    if [info exists env(HOME)] {
	set fname "[set env(HOME)]"
    } else {
	set fname "/tmp"
    }
    append fname "/tkfaxspool.ps"
    set tmpfile [open $fname "w"]

    # Capture the input
    while { ! [eof stdin] } {
	set input [gets stdin]
	puts $tmpfile $input
    }
    close stdin
    close $tmpfile

	# no header, medium resolution, 
    exec "/usr/bin/sendfax" "-n" "-m" "-h" "djini" "-d" "$faxnr" "$fname"
    exec "/bin/rm" "$fname"
}