Mailinglist Archive: opensuse-de (3194 mails)

[ud0f@xxxxxxxxxxxxxxxxxxx (Wolfgang Arnsberg)]

Hallo Listen-Menschen,

habe SO4.0 SP3 von der Chip-CD installiert. Mit dabei ist ein TK/TCL
(Tk/Tcl ist installiert) Script, welches das faxen aus SO ermöglichen
soll. Kann mir jemand erklären, wie ich das mgetty+sendfax-Paket
konfigurieren muß, bzw was ich sonst noch erledigen muß damit das Script
läuft?
Das Script unterliegt der GNU Public License, ich poste es mal hier, und
verweise ausdrücklich auf die selbige:
-----------snip--------snip--------------
#! /usr/bin/wish 
 
#   tkfaxspool - graphical frontend for faxspool 
#   Copyright (c) 1998  Martin Schulze <joey@xxxxxxxxxxxxxxxxx> 
 
#   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. 
 
#   You should have received a copy of the GNU General Public License 
#   along with this program; if not, write to the Free Software 
#   Foundation, Inc., 59 Temple Place, Suite 330, Boston, 
#   MA 02111-1307, USA 
 
wm title . "tkfaxspool" 
 
frame .line 
label .title -text "Input a fax nr. and press Enter." 
label .label -text "Faxnr.:" 
entry .input -relief sunken -width 20 -textvariable faxnr 
 
button .button -text "Abort" -command { exit } 
 
pack .title .line -side top -anchor w 
pack .label -side left -in .line 
pack .input -side left -padx 1m -pady 1m -in .line 
pack .button -side left -padx 1m -in .line 
 
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 
 
    exec "/usr/bin/faxspool" "-q" "$faxnr" "$fname" 
    exec "/bin/rm" "$fname" 
} 

 
wm title . "tkfaxspool" 
 
frame .line 
label .title -text "Input a fax nr. and press Enter." 
label .label -text "Faxnr.:" 
entry .input -relief sunken -width 20 -textvariable faxnr 
 
button .button -text "Abort" -command { exit } 
 
pack .title .line -side top -anchor w 
pack .label -side left -in .line 
pack .input -side left -padx 1m -pady 1m -in .line 
pack .button -side left -padx 1m -in .line 
 
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 
 
    exec "/usr/bin/faxspool" "-q" "$faxnr" "$fname" 
    exec "/bin/rm" "$fname" 
} 

---------snip-----------------snip------------------

Hat jemand das schon zum rennen gebracht? Wäre schön, wenn mir jemand
helfen könnte.

Merci im voraus.

\  /\  /\   Gruß
 \/  \/. \. Wolfgang


--
Um aus der Liste ausgetragen zu werden, eine Mail an majordomo@xxxxxxxx
schicken, mit dem Text: unsubscribe suse-linux