Changeset 3778176 for debian/lib/gutenbach
- Timestamp:
- Jun 24, 2010, 1:48:08 AM (14 years ago)
- Branches:
- master, debian, mac, no-cups, nodebathena, web
- Children:
- abc5705
- Parents:
- b30ec0c
- git-author:
- Jessica Hamrick <jhamrick@…> (05/12/10 23:17:54)
- git-committer:
- Jessica B. Hamrick <jhamrick@…> (06/24/10 01:48:08)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
debian/lib/gutenbach
re20354c r3778176 96 96 open(ZEPHYR, "|-", @zwrite_command) or die "Couldn't launch zwrite: $!"; 97 97 98 print(ZEPHYR $arguments{"user"},"\@",$arguments{"options"}{"job-originating-host-name"}," is playing:\n"); 99 my $status = "User: ".$arguments{"user"}."\@".$arguments{"options"}{"job-originating-host-name"}; 98 my $status; 99 if (exists($arguments{"options"}{"job-originating-host-name"})) { 100 print(ZEPHYR $arguments{"user"},"\@",$arguments{"options"}{"job-originating-host-name"}," is playing:\n"); 101 $status = "User: ".$arguments{"user"}."\@".$arguments{"options"}{"job-originating-host-name"}; 102 } else { 103 print(ZEPHYR $arguments{"user"}," is playing:\n"); 104 $status = "User: ".$arguments{"user"}; 105 } 100 106 101 107 # SIGHUP handler, in case we were aborted
Note: See TracChangeset
for help on using the changeset viewer.