$kinit="/uskerberos/bin/kinit"; 

$kinit = "/uslib/heimdal/bin/kinit"; 

$kinit="/usbin/kinit"; 

die("Couln't find kinit.\\n"); 

$aklog="/usbin/aklog"; 

\# or, afslog, for heimdal weirdos $aklog="/uslib/heimdal/bin/afslog"; 

die("Couln't find aklog or afslog.\\n"); 

\# Keytab 'k=s' => sub { 

\# Run command 'c=s' => sub { 

\# Run command as user 'u=s' => sub { 

\# Time interval to sleep 'i=i' => sub { 

\# Debug 'd' => sub { 

\# Be versbose 'v' => sub { 

$princ = $ARGV\[0\]; debug\_print(2, "Principal name provided by argument = $princ"); 

$princ = getpwuid($<); debug\_print(2, "Principal name provided by argument = $princ"); 

\# Don't ask for password, a keytab was provided. debug\_print(1, "Keytab provided = $keytab"); 

\# read password, but turn off echo before: print "Password for $princ: "; system "stty -echo"; $passwd = ; system "stty echo"; printf "\\n"; chomp $passwd; \# Actually get the tickets/tokens if(obtain\_tokens()!=0) { die "Can't obtain kerberos tickets\\n"; } if ($verbose) { show\_tokens(); } 

\# I am the parent. printf "Background process pid is: $pid\\n"; if ($command) { debug\_print(1,"Waiting for child to die."); wait; debug\_print(1,"Child is dead."); } exit 0; 

\# I am the child. debug\_print(2,"I am process $$"); print "Can't set session id\\n" unless setsid(); 

debug\_print(2,"KRB5CCNAME: " . $ENV{KRB5CCNAME}); \#if ($ENV{KRB5CCNAME}) { \#$ENV{KRB5CCNAME} = $ENV{KRB5CCNAME} . "\_reauth\_$$"; \#} else { \#$ENV{KRB5CCNAME} = "/tmp/krb5cc\_reauth\_$$"; \#} 

\#debug\_print(2,"Creating " . $ENV{KRB5CCNAME}); \#system "touch $ENV{KRB5CCNAME}"; 

if ($username) { debug\_print(1, "Looking up UID for $username"); ($name,$passwd,$UID,$GID, u/junk) = getpwnam($username); debug\_print(1, "Changing to UID $UID, GID $GID"); print "Can't set group id\\n" unless setgid($GID); print "Can't set user id\\n" unless setuid($UID); if ($ENV{KRB5CCNAME}) { $ENV{KRB5CCNAME} = $ENV{KRB5CCNAME} . "\_reauth\_$$"; } else { $ENV{KRB5CCNAME} = "/tmp/krb5cc\_reauth\_$$"; } } 

debug\_print(2, "Running as uid " . $<); \# Actually get the tickets/tokens if(obtain\_tokens()!=0) { die "Can't obtain kerberos tickets\\n"; } 

if ($verbose) { show\_tokens(); } 

\# If I was told to run a command, do it. if ($command) { debug\_print(1,"About to exec $command"); exec($command) or die "Can't execute '$command'.\\n"; exit } 

debug\_print(2,"Going into auth loop (interval is $interval)."); 

\#close(STDOUT); \#close(STDERR); 

\# Otherwise, work until killed: while (1) { debug\_print(2,"Waking up to obtain new tokens."); obtain\_tokens(); if ($verbose) { show\_tokens(); } sleep $interval; }; 

\#debug\_print(1,"Running: | $kinit -f $kinit\_opts -p $princ 1>/dev/null 2>&1"); 

 print(KINIT "${passwd}\\n"); 

debug\_print(1,"kinit exited with status $status\\n"); 

 if ($verbose) { print "WARNING: kinit is not able to obtain Kerberos ticket ($status).\\n"; print " Possible DNS or network problem. Continuing anyway...\\n"; } return 1; 

 return 2; 

debug\_print(1,"Running $aklog...\\n"); 

debug\_print(1,"aklog exited with status $status\\n"); 

 return 3; 

system $klist ; system $tokens ; 

my $level = shift; my $message = shift; 

if ($debug >= $level) { print "DEBUG$debug: $message\\n"; } 

$ printf '%c\n' 65 6 $ 

إكسسوارات الهواتف الذكية تستحق ثمنها

Belgium, Brussels E1.txt Bulgaria, Sofia E1.txt Canada, Toronto E3.txt Finland, Helsinki E4.txt etc. 

"Belgium, Brussels E1.txt" "Bulgaria, Sofia E1.txt" "Canada, Toronto E3.txt" "Finland, Helsinki E4.txt" etc. 

ls -1 | sed 's/.*/ & \\/' 

"Belgium, Brussels E1.txt" "Bulgaria, Sofia E1.txt" "Canada, Toronto E3.txt" "Finland, Helsinki E4.txt" etc. 

Belgium, Brussels E1.txt Bulgaria, Sofia E1.txt Canada, Toronto E3.txt Finland, Helsinki E4.txt etc. 

for file in *.txt ; do echo ${file}|sed -e "s/ /./g" -e "s/[\[{\\']//g" ; done 

A Field Guide

1. The Technical thug — Usually a systems programmer who has been forced into system administration; writes scripts in a polyglot of the Bourne shell, sed, C, awk, Perl, and APL.
   
2. The Administrative fascist — Usually a retentive drone (or rarely, a harridan ex-secretary) who has been forced into system administration.
   
3. The Maniac — Usually an aging cracker who discovered that neither the Mossad nor Cuba are willing to pay a living wage for computer espionage. Fell into system administration; occasionally approaches major competitors with indesp schemes.
   
4. The Idiot — Usually a cretin, or old COBOL programmer selected to be the system administrator by a committee of cretins, and old COBOL programmers.
   

How to Identify Your System Administrator

• _Technical thug:_ Writes a suite of scripts to monitor disk usage, maintain a database of historic disk usage, predict future disk usage via least squares regression analysis, identify users who are more than a standard deviation over the mean, and send mail to the offending parties. Places script in cron. Disk usage does not change, since disk-hogs, by nature, either ignore script-generated mail, or file it away in triplicate.
  
• _Administrative fascist:_ Puts disk usage policy in motd. Uses disk quotas. Allows no exceptions, thus crippling development work. Locks accounts that go over quota.
  
• Maniac:
  # cd /home
  

  rm -rf `du -s * | sort -rn | head -1 | awk '{print $2}'`;

• Idiot:
  # cd /home
  

  cat `du -s * | sort -rn | head -1 | awk '{ printf "%s/*\n", $2}'` | compress

• _Technical thug:_ Writes a suite of scripts to monitor processes, maintain a database of CPU usage, identify processes more than a standard deviation over the norm, and renice offending processes. Places script in cron. Ends up renicing the production database into oblivion, bringing operations to a grinding halt, much to the delight of the xtrek freaks.
  
• _Administrative fascist:_ Puts CPU usage policy in motd. Uses CPU quotas. Locks accounts that go over quota. Allows no exceptions, thus crippling development work, much to the delight of the xtrek freaks.
  
• Maniac:
  # kill -9 `ps -augxww | sort -rn +8 -9 | head -1 | awk '{print $2}'`
  
• Idiot:
  # compress -f `ps -augxww | sort -rn +8 -9 | head -1 | awk '{print $2}'`
  

• Technical thug:_ Writes Perl script that creates home directory, copies in incomprehensible default environment, and places entries in /etc/passwd, /etc/shadow, and /etc/group. (By hand, _not with passmgmt.) Slaps on setuid bit; tells a nearby secretary to handle new accounts. Usually, said secretary is still dithering over the difference between ‘enter’ and ‘return’; and so, no new accounts are ever created.
  
• _Administrative fascist:_ Puts new account policy in motd. Since people without accounts cannot read the motd, nobody ever fulfills the bureaucratic requirements; and so, no new accounts are ever created.
  
• _Maniac:_ “If you're too stupid to break in and create your own account, I don't want you on the system. We've got too many goddamn sh*t-for-brains a**holes on this box anyway.”
  
• Idiot:
  # cd /home; mkdir "Bob's home directory"
  

  echo "Bob Simon:gandalf:0:0::/dev/tty:compress -f" > /etc/passwd

• _Technical thug:_ Repairs drive. Usually is able to repair filesystem from boot monitor. Failing that, front-panel toggles microkernel in and starts script on neighboring machine to load binary boot code into broken machine, reformat and reinstall OS. Lets it run over the weekend while he goes mountain climbing.
  
• _Administrative fascist:_ Begins investigation to determine who broke the drive. Refuses to fix system until culprit is identified and charged for the equipment.
  
• _Maniac, large system:_ Rips drive from system, uses sledgehammer to smash same to flinders. Calls manufacturer, threatens pets. Abuses field engineer while they put in a new drive and reinstall the OS.
  
• _Maniac, small system:_ Rips drive from system, uses ball-peen hammer to smash same to flinders. Calls Requisitions, threatens pets. Abuses bystanders while putting in new drive and reinstalling OS.
  
• _Idiot:_ Doesn't notice anything wrong.
  

• _Technical thug:_ Writes scripts to monitor network, then rewires entire machine room, improving response time by 2%. Shrugs shoulders, says, “I've done all I can do,” and goes mountain climbing.
  
• _Administrative fascist:_ Puts network usage policy in motd. Calls up Berkeley and AT&T, badgers whoever answers for network quotas. Tries to get xtrek freaks fired.
  
• _Maniac:_ Every two hours, pulls ethernet cable from wall and waits for connections to time out.
  
• Idiot:
  # compress -f /dev/en0
  

• _Technical thug:_ Hacks the code of emacs' doctor-mode to answer new users questions. Doesn't bother to tell people how to start the new “guru-mode”, or for that matter, emacs.
  
• _Administrative fascist:_ Puts user support policy in motd. Maintains queue of questions. Answers them when he gets a chance, often within two weeks of receipt of the proper form.
  
• _Maniac:_ Screams at users until they go away. Sometimes barters knowledge for powerful drink and/or sycophantic adulation.
  
• _Idiot:_ Answers all questions to best of his knowledge until the user realizes few Unix systems support punched cards or JCL.
  

• _Technical thug:_ Answers question in hex, binary, postfix, and/or French until user gives up and goes away.
  
• _Administrative fascist:_ Locks user's account until user can present documentation demonstrating their qualification to use the machine.
  
• Maniac:
  # cat > > ~luse.cshrc alias vi 'rm \!*;unalias vi;grep -v BoZo ~/.cshrc > ~/.z; mv -f ~/.z ~/.cshrc' ^D
  
• _Idiot:_ Answers all questions to best of his knowledge. Recruits user to system administration team.
  

• _Technical thug:_ Ignores packaged accounting software; trusts scripts to sniff out any problems & compute charges.
  
• _Administrative fascist:_ Devotes 75% of disk space to accounting records owned by root and chmod'ed 000.
  
• _Maniac:_ Laughs fool head off at very mention of accounting.
  
• Idiot:
  # lpr /etc/wtmp /usadm/paact
  

• _Technical thug:_ BSD. Crippled on System V boxes.
  
• _Administrative fascist:_ System V. Horrified by the people who use BSD. Places frequent calls to DEA.
  
• Maniac:_ Prefers BSD, but doesn't care as long as _his processes run quickly.
  
• Idiot:
  # cd c:
  

• _Technical thug:_ Weeps.
  
• _Administrative fascist:_ AIX—doesn't much care for the OS, but loves the jackboots.
  
• _Maniac:_ System V, but keeps AIX skills up, knowing full well how much Big Financial Institutions love IBM…
  
• _Idiot:_ AIX.
  

• _Technical thug:_ Rewrites lpd in FORTH.
  
• _Administrative fascist:_ Puts printer use policy in motd. Calls customer support every time the printer freezes. Tries to get user who submitted the most recent job fired.
  
• _Maniac:_ Writes script that kills all the daemons, clears all the print queues, and maybe restarts the daemons. Runs it once a hour from cron.
  
• Idiot:
  # kill -9 /dev/lp ; /dev/lp &
  

• _Technical thug:_ Reads source code of new release, takes only what he likes.
  
• _Administrative fascist:_ Instigates lawsuit against the vendor for having shipped a product with bugs in it in the first place.
  
• Maniac:
  # uptime 1:33pm up 19 days, 22:49, 167 users, load average: 6.49, 6.45, 6.31
  

  wall

  Well, it's upgrade time. Should take a few hours. And good luck on that 5:00 deadline, guys! We're all pulling for you! ^D
  
• Idiot:
  # dd if=/dev/rmt8 of=/vmunix
  

• _Technical thug:_ Rewrites sendmail.cf from scratch. Rewrites sendmail in SNOBOL. Hacks kernel to implement file locking. Hacks kernel to implement “better” semaphores. Rewrites sendmail in assembly. Hacks kernel to …
  
• _Administrative fascist:_ Puts mail use policy in motd. Locks accounts that go over mail use quota. Keeps quota low enough that people go back to interoffice mail, thus solving problem.
  
• Maniac:
  # kill -9 `ps -augxww | grep sendmail | awk '{print $2}'`
  

  rm -f /usspool/mail/*

  wall

  Mail is down. Please use interoffice mail until we have it back up. ^D
  

  write max

  I've got my boots and backpack. Ready to leave for Mount Tam? ^D
  
• Idiot:
  # echo "HELP!" | mail tech_support.AT.vendor.com%kremvax%bitnet!BIFF!!!
  

• _Technical thug:_ Writes RDBMS in Perl and Smalltalk. Users give up and go back to post-it notes.
  
• _Administrative fascist:_ Oracle. Users give up and go back to post-it notes.
  
• _Maniac:_ Tells the users to use flat files and grep, the way God meant man to keep track of phone numbers. Users give up and go back to post-it notes.
  
• Idiot:
  % dd ibs=80 if=/dev/rdisk001s7 | grep "Fred"
  

Other Guidelines

• _Technical thug:_ Longer than eight kilobytes. Sources the output of a Perl script, rewrites itself.
  
• _Administrative fascist:_ Typical lines include
  umask 777 alias cd 'cd \!*; rm -rf ching *hack mille omega rogue xtrek > /dev/null &'
  
• _Maniac:_ Typical lines include
  alias rm 'rm -rf \!*' alias hose kill -9 '`ps -augxww | grep \!* | awk \'{print $2}\'`' alias kill 'kill -9 \!* ; kill -9 \!* ; kill -9 \!*' alias renice 'echo Renice\? You must mean kill -9.; kill -9 \!*'
  
• _Idiot:_ Typical lines include
  alias dir ls alias era rm alias kitty cat alias process_table ps setenv DISPLAY vt100
  

• _Technical thug:_ Writes entries for Obsfuscated C contest. Optimizes INTERCAL scripts. Maintains ENIAC emulator. Virtual reality.
  
• _Administrative fascist:_ Bugs office. Audits card-key logs. Modifies old TVs to listen in on cellular phone conversations. Listens to police band.
  
• _Maniac:_ Volunteers at Survival Research Labs. Bugs office. Edits card-key logs. Modifies old TVs to listen in on cellular phone conversations. Jams police band.
  
• _Idiot:_ Ties shoes. Maintains COBOL decimal to roman numeral converter. Rereads flowcharts from his salad days at Rand.
  

• _Technical thug:_ Drinks “Smart Drinks.” Attends raves. Hangs out at poetry readings and Whole Earth Review events and tries to pick up Birkenstock MOTAS.
  
• _Administrative fascist:_ Reads Readers Digest and Mein Kampf. Sometimes turns up car radio and sings along to John Denver. Golfs. Drinks gin martinis. Hangs out in yuppie bars and tries to pick up dominatrixes.
  
• _Maniac:_ Reads Utne Reader and Mein Kampf. Faithfully attends Dickies and Ramones concerts. Punches out people who say “virtual reality.” Drinks damn near anything, but favors Wild Turkey, Black Bush, and grain alcohol. Hangs out in neighborhood bars and tries to pick up MOTAS by drinking longshoremen under the table.
  
• Idiot:_ Reads Time and Newsweek—and _believes them. Drinks Jagermeister. Tries to pick up close blood relations—often succeeds, producing next generation of idiots.
  

• _Technical thug:_ Clinton, but only because he liked Gore's book.
  
• _Administrative fascist:_ Bush. Possibly Clinton, but only because he liked Tipper.
  
• _Maniac:_ Frank Zappa.
  
• _Idiot:_ Perot.
  

• _Technical thug:_ Richard Stallman — Larry Wall.
  
• _Administrative fascist:_ Nixon — Buchanan.
  
• _Maniac:_ Frank Zappa.
  
• _Idiot:_ Quayle.
  

• _Technical fascist:_ Hacks kernel & writes a horde of scripts to prevent folk from ever using more than their fair share of system resources. Resulting overhead and load brings system to its knees.
  
• Technical maniac:_ Writes scripts that _seem to be monitoring the system, but are actually encrypting large lists of passwords. Uses nearby nodes as beta test sites for worms.
  
• _Technical idiot:_ Writes superuser-run scripts that sooner or later do rm -rf /.
  
• _Fascistic maniac:_ At first hint of cracker incursions, whether real or imagined, shuts down system by triggering water-on-the-brain detectors and Halon system.
  
• Fascistic idiot:
  # cp /dev/null /etc/passwd
  
• _Maniacal idiot:_ Napalms the CPU.
  

min_width=GPU 100% 100% 100% 100%

GPU_BRAND=NVIDIA // or AMD

T_WARN=70

T_CRIT=90

!/usbin/env perl

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 3 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, see http://www.gnu.org/licenses/.

default values

$stripped_title = preg_replace("/[^\p{L}0-9\s()@_'&-]+/u", '', get_the_title( $post_object ) ); 

cat data.xml | awk -F'\t' '{printf "%-65s\t%-65s\t%-10s\t%-10s\t%-10s\t%-100s\t%-100s\t\n" ,(length($1)>60)?substr($1,0,50)"...":$1, (length($2)>60)?substr($2,0,58)"...":$2, (length($3)>1)?substr($3,0,20)" ":$3, (length($14)>1)?substr($14,0,20)" ":$4, $5, $1, $2} '| fzf 

/bin/sh is the Almquist shell. me% ksh --version version sh (AT&T Research) 93u+ 2012-08-01 me% bash --version GNU bash, version 5.0.3(0)-release (amd64-portbld-freebsd11.2) 

me% ./shellbench -s sh,bash,ksh -c sample/assign.sh --------------------------------------------------------------- name sh bash ksh --------------------------------------------------------------- [null loop] 970,233 403,326 614,986 assign.sh: positional params 3,212,104 533,680 2,320,475 assign.sh: variable 4,399,471 1,315,650 6,356,457 assign.sh: local var 4,407,139 1,349,358 error assign.sh: local var (typeset) error 1,244,267 3,096,062 --------------------------------------------------------------- me% ./shellbench -s sh,bash,ksh -c sample/cmp.sh --------------------------------------------------------------- name sh bash ksh --------------------------------------------------------------- [null loop] 974,446 405,296 615,435 cmp.sh: [ ] 2,122,266 368,651 4,659,189 cmp.sh: [[ ]] error 636,511 29,285,902 cmp.sh: case 4,091,252 1,116,886 38,211,857 --------------------------------------------------------------- me% ./shellbench -s sh,bash,ksh -c sample/count.sh --------------------------------------------------------------- name sh bash ksh --------------------------------------------------------------- [null loop] 966,575 404,708 618,038 count.sh: posix 1,433,782 662,993 942,077 count.sh: typeset -i error 613,535 918,969 count.sh: increment error 845,290 3,863,558 --------------------------------------------------------------- me% ./shellbench -s sh,bash,ksh -c sample/eval.sh --------------------------------------------------------------- name sh bash ksh --------------------------------------------------------------- [null loop] 974,158 412,523 628,518 eval.sh: direct assign 1,761,935 282,393 658,831 eval.sh: eval assign 932,933 118,282 315,872 eval.sh: command subs 5,764 2,753 114,871 --------------------------------------------------------------- me% ./shellbench -s sh,bash,ksh -c sample/func.sh --------------------------------------------------------------- name sh bash ksh --------------------------------------------------------------- [null loop] 966,125 404,461 616,734 func.sh: no func 6,317,337 1,140,825 5,808,822 func.sh: func 2,909,820 319,780 854,618 --------------------------------------------------------------- me% ./shellbench -s sh,bash,ksh -c sample/null.sh --------------------------------------------------------------- name sh bash ksh --------------------------------------------------------------- [null loop] 966,857 404,676 615,303 null.sh: assign variable 4,320,214 1,679,428 5,498,903 null.sh: define function 10,014,013 1,793,510 5,558,627 null.sh: undefined variable 6,205,140 690,323 3,648,905 null.sh: : command 6,663,393 1,140,983 5,931,546 --------------------------------------------------------------- me% ./shellbench -s sh,bash,ksh -c sample/output.sh --------------------------------------------------------------- name sh bash ksh --------------------------------------------------------------- [null loop] 966,213 406,563 616,224 output.sh: echo 1,619,911 477,538 2,492,384 output.sh: printf 1,597,145 500,865 601,209 output.sh: print error error 1,024,328 --------------------------------------------------------------- me% ./shellbench -s sh,bash,ksh -c sample/subshell.sh --------------------------------------------------------------- name sh bash ksh --------------------------------------------------------------- [null loop] 965,811 390,643 613,184 subshell.sh: no subshell 5,351,171 1,053,726 6,475,971 subshell.sh: brace 5,345,017 1,023,909 5,962,792 subshell.sh: subshell 6,622 3,061 300,260 subshell.sh: command subs 1,951,503 2,784 179,446 subshell.sh: external command 2,307 1,602 2,232 --------------------------------------------------------------- 

void paste_esc () { FILE * clip_escaped = popen ("xclip -o -selection clipboard | "ESCAPER, "r"); if (clip_escaped == NULL) return; char buff [256]; size_t buffsize; while (buffsize = fread (buff, 1, 255, clip_escaped)) ttywrite (buff, buffsize, 0); pclose (clip_escaped); } 

#!/usbin/env perl while () { s/([!#\$%&\*\(\) ='"\\\|\[\]`~,<>\?])/\\\1/g; print stdout $_; } 

 xsel --logfile /dev/null -i --primary xsel --logfile /dev/null -i --clipboard