Skip to content

Commit

Permalink
Add back critical header lines to src/seguid-cli.tcl [#7]
Browse files Browse the repository at this point in the history
  • Loading branch information
HenrikBengtsson committed Apr 29, 2024
1 parent 4754adf commit 21e803a
Showing 1 changed file with 16 additions and 1 deletion.
17 changes: 16 additions & 1 deletion src/seguid-cli.tcl
Original file line number Diff line number Diff line change
@@ -1,3 +1,12 @@
#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

set script_path [file dirname [info script]]
source [file join $script_path base64.tcl]
source [file join $script_path sha1.tcl]
source [file join $script_path seguid.tcl]


##################
## Main
Expand Down Expand Up @@ -63,4 +72,10 @@ if {[set err [validate $text $alphabet]] ne "ok"} {
exit 1
}

puts stdout [calculate_seguid $text $mode $form]
puts stdout [calculate_seguid $text $mode $form]






0 comments on commit 21e803a

Please sign in to comment.